Exporting data to an already open Excel Workbook 2

[ActMod]

vbslammer was very helpful in providing the code that enabled me to open a closed Excel Workbook. Now I need to export data from Access to an already open Excel Workbook. I can't figure out how to get Access to find all open Excel Workbooks. Is there a way to sort through all open Excel Workbooks to find a particular one to which data can be exported?

Thank you for any help.

 

[JunglesMcBeef]

G'day,

If you want to find out if an Excel app is already opened try this:

Set XLApp = GetObject(, "Excel.Application&quot

Then check if there is an instance already opened, eg:

If XLApp <> Nothing Then
<<enter code>>

Activate the Excel app and manipulate it from there.
Any questions don't hesitate to ask

 

[oharab]

As a next step, if you want to find a particular workbook from several open ones, assuming they are all in the same instance of excel you will need to step through them.

Dim XLApp as Excel.Application
Dim WB As Excel.Workbook

Set XLApp = GetObject(, &quot;Excel.Application&quot
for Each WB in XLApp.Workbooks
if WB.Name=&quot;G:\XL\MyBook.xls&quot; then

   end if
next WB

hth

Ben

----------------------------------------------
Ben O'Hara
[URL unfurl="true"]www.RobotParade.co.uk[/URL]

"Where are all the stupid people from...
...And how'd they get so dumb?"
                        [i]NoFX-The Decline[/i]
----------------------------------------------

 

[ActMod]

Thanks much to both JunglesMcBeef and oharab for helpful suggestions. The macro seems to work but it doesn't find my open Excel workbook. I guess because it is not in the &quot;instance&quot; that the macro is searching. Assuming that is the problem, is there anyway to find and search through all open instances or some other workaround to the problem?

Thanks again.

Jim