IE to Book1, to book2, then close Book1.xls

[GotDebt]

Greetings,

I am trying to link (web link) to an Excel file (Book1.xls) that will
open another Excel file (Book2.xls) then close itself (Book1.xls). It
will work when I run just Book1.xls but if I load it through IE as a
link, it does not seem to want to work (asks to save the file or opens
book1.xls twice, or out of memory errors).

I basically want to use Book1.xls to determine where to load book2.xls
(either from the Web or from the local PC).

Here is the code that I have for Book1.xls:


Sub auto_open()

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim i As Integer

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

Set xlWB = xlApp.Workbooks.Open("c:\Book2.xls")

Set xlApp = Nothing
Set xlWB = Nothing

Excel.Application.ThisWorkbook.Saved = True
Excel.Application.Quit

End Sub


Any ideas?

 

[GJones]

GotDebt;

If your book1 is already on a PC then you do not need to
do the creat object because you are already in it. Just
use Workbooks.Open("yourpath")

At the end put in this line to get it to stop asking the
question.

Application.DisplayAlerts=False

Also if book2 is opened and you want book1 to close out
you can use

ThisWorkBook.Close after the alerts are disabled.

Thanks,

Greg

-----Original Message-----

Greetings,

I am trying to link (web link) to an Excel file (Book1.xls) that will
open another Excel file (Book2.xls) then close itself (Book1.xls). It
will work when I run just Book1.xls but if I load it through IE as a
link, it does not seem to want to work (asks to save the file or opens
book1.xls twice, or out of memory errors).

I basically want to use Book1.xls to determine where to load book2.xls
(either from the Web or from the local PC).

Here is the code that I have for Book1.xls:


Sub auto_open()

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim i As Integer

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

Set xlWB = xlApp.Workbooks.Open("c:\Book2.xls")

Set xlApp = Nothing
Set xlWB = Nothing

Excel.Application.ThisWorkbook.Saved = True
Excel.Application.Quit

End Sub


Any ideas?


------------------------------------------------

~~View and post usenet messages directly from http://www.ExcelForum.com/

~~Now Available: Financial Statements.xls, a step by step

guide to creating financial statements

 

[GotDebt]

Greg,

Actually Book1.xls contains the macro and is on the web as a link. Th
user clicks the link www..../book1.xls, IE loads Excel then th
Book1.xls has this macro in it.

I think I already tried it using your method to open book2.xls...
But I'll try it after lunch and let you know what happens...

Thanks,
Joh

 

[GotDebt]

I tried the following, but I can still see the project for Book1.xl
after it is closed (out of memory errors occur if any macros are run i
Book2.xls):

Sub auto_open()

Dim xlWB As Excel.Workbook
Set xlWB = Excel.Workbooks.Open("c:\Book2.xls")


Application.DisplayAlerts = False
Excel.Application.ThisWorkbook.Saved = True
Windows("Book1.xls").Close False
Set xlWB = Nothing


End Sub


Any ideas