From Access I'm using the following code to open an instance of XL invisibly
in the background. The workbook is doing some heavy calculations and
handing answers back to Access.

--------------------------------------------------------------
If Not IsFileOpen(sFileAndPathName) Then
Set appXL = CreateObject("Excel.Application")
Set appXLWB = appXL.Workbooks.Open(sFileAndPathName, UpdateLinks:=0)
End If
--------------------------------------------------------------

When the Access app is closed it closes the workbook along with it.
However, if the Access app is ctl-alt-deleted, the XL workbook is left
orphaned on the users machine. To solve this problem I kick off a timer
from the Workbook_Open event. Every 10 minutes it checks if it's Access
companion is open and if not it closes itself.

This works great in testing (opening the XL file by double clicking it) but
when Access opens the workbook (using the above code) the Workbook_Open
event isn't firing. I tried using Auto_Open from a sub with the same
result.

How can I get the Open event to fire? What am I missing?

Thanks for any help.
-Jeremy

Jeremy,
Workbook_Open() fires when its WB is opened by automation. This works for
me, so I'm not sure why yours is not.
However, Auto-Open routines have to be called in order to run.

NickHK


"Jeremy Gollehon" wrote in message
...
From Access I'm using the following code to open an instance of XL
invisibly
in the background. The workbook is doing some heavy calculations and
handing answers back to Access.

--------------------------------------------------------------
If Not IsFileOpen(sFileAndPathName) Then
Set appXL = CreateObject("Excel.Application")
Set appXLWB = appXL.Workbooks.Open(sFileAndPathName, UpdateLinks:=0)
End If
--------------------------------------------------------------

When the Access app is closed it closes the workbook along with it.
However, if the Access app is ctl-alt-deleted, the XL workbook is left
orphaned on the users machine. To solve this problem I kick off a timer
from the Workbook_Open event. Every 10 minutes it checks if it's Access
companion is open and if not it closes itself.

This works great in testing (opening the XL file by double clicking it)
but
when Access opens the workbook (using the above code) the Workbook_Open
event isn't firing. I tried using Auto_Open from a sub with the same
result.

How can I get the Open event to fire? What am I missing?

Thanks for any help.
-Jeremy

Hi Nick,
Thanks for the reply. Do you think the fact that I'm using late binding
could have anything to do with it?

It's strange. I realize now that not only is the open event firing but XL
it's like its opening in safe mode. Meaning add-ins aren't loaded either.
hmmm...

Trying a reboot now to see if it's something weird with my machine.
Doubtful but worth a try.

-Jeremy

NickHK wrote:
Jeremy,
Workbook_Open() fires when its WB is opened by automation. This works
for me, so I'm not sure why yours is not.
However, Auto-Open routines have to be called in order to run.

NickHK


"Jeremy Gollehon" wrote in message
...
From Access I'm using the following code to open an instance of XL
invisibly in the background. The workbook is doing some heavy
calculations and handing answers back to Access.

--------------------------------------------------------------
If Not IsFileOpen(sFileAndPathName) Then
Set appXL = CreateObject("Excel.Application")
Set appXLWB = appXL.Workbooks.Open(sFileAndPathName,
UpdateLinks:=0) End If
--------------------------------------------------------------

When the Access app is closed it closes the workbook along with it.
However, if the Access app is ctl-alt-deleted, the XL workbook is
left orphaned on the users machine. To solve this problem I kick
off a timer from the Workbook_Open event. Every 10 minutes it
checks if it's Access companion is open and if not it closes itself.

This works great in testing (opening the XL file by double clicking
it) but when Access opens the workbook (using the above code) the
Workbook_Open event isn't firing. I tried using Auto_Open from a
sub with the same result.

How can I get the Open event to fire? What am I missing?

Thanks for any help.
-Jeremy