If you are doing this for the purpose of automation, then perhaps you may
want to explain why you need this further as others may have alternative
solutions. For example, if you were referencing an instance and then
released it, then you have to keep it for as long as needed.

Also, what Office versions are you targeting? Generally the higher the
version, the easier to work with.

Making a routine that gets references to all open Excel instances involves
making dummy Add-ins, DLL's, and interprocess communications. Not a simple
process. I have not done it before with Office applications.

In Excel XP or after, you can use ActiveX EXE's as Add-ins, which might
simplify the process.

The add-in DLL/EXE would get Excel's instance and deliver it to your EXE.
The problem is that you can't use ObjPtr(), VarPtr(), CopyMemory and send
the reference to Application or any other object to another process(EXE), if
you do, the application will crash. The only way to do it is through DCOM,
see the KB articles below which return a recordset object, you can use the
same method to return Excel.Application. You may have to do something like
Coffee2 sample that comes with MSDN, which is not very simple.

Links:

How To Create a DCOM Client/Server Application by Using Visual Basic
http://support.microsoft.com/default...b;en-us;266717

How To Create a DCOM Client/Server with Events by Using Visual Basic
http://support.microsoft.com/default...b;en-us;267836

Using DCOM with complex objects:

How To Implement Visual Basic COM Objects Returning Recordsets
http://support.microsoft.com/default...b;en-us;224424

INFO: Passing ADO Recordsets in Visual Basic Procedures
http://support.microsoft.com/default...b;en-us;193871

Coffee2 sample:

http://msdn.microsoft.com/library/de...ffeeCoffee.asp
http://msdn.microsoft.com/library/de...entsinking.asp



"TCook" wrote in message
...
Hello All,

I am building something that needs to grab a certain instance of MS Excel.
Unfortunately, "GetObject" randomly chooses an instance and, therefore, is
not appropriate / robust enough by itself. In pseudo code, what I need is
below:

For each pProcess in Processes
If instr(pProcess.Name, "Excel") 0 And pProcess.Visible = True
Then
Set MyAppInstance = pProcess.Instance

Exit For
End If
Next pProcess

Thanks & Regards,

TC