Checking whether Excel is already open

[10_a_c]

Hello:

I have a VB form which will load Excel but I want to add code which will
first check to see whether Excel is already open and then branch accordingly.
I assumed that Excel.Visible = True would take care of that but it is not
working.

Let me thank you in advance for any and all suggestions.

 

[Gary''s Student]

checkout:

http://word.mvps.org/FAQs/InterDev/ControlXLFromWord.htm

 

[Dave Patrick]

Here's what I do.

If IsExecuting("excel.exe") = True Then
Set oExcel = GetObject(, "Excel.Application")
Else
Set oExcel = CreateObject("Excel.Application")
End If

Public Function IsExecuting(sProc)
Dim list As Object
Set list = GetObject("winmgmts:").ExecQuery( _
"select * from win32_process where name='" & sProc & "'")
If list.Count > 0 Then IsExecuting = True
End Function


--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

 

[10_a_c]

Gary''s Student:


Thanks for the link and assistance.



10_a_c

 

[10_a_c]

Dave:


Thanks for the code.


10_a_c

Here's what I do.

If IsExecuting("excel.exe") = True Then
Set oExcel = GetObject(, "Excel.Application")
Else
Set oExcel = CreateObject("Excel.Application")
End If

Public Function IsExecuting(sProc)
Dim list As Object
Set list = GetObject("winmgmts:").ExecQuery( _
"select * from win32_process where name='" & sProc & "'")
If list.Count > 0 Then IsExecuting = True
End Function


--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

Hello:

I have a VB form which will load Excel but I want to add code which will
first check to see whether Excel is already open and then branch
accordingly.
I assumed that Excel.Visible = True would take care of that but it is not
working.

Let me thank you in advance for any and all suggestions.

 

[Dave Patrick]

You're welcome.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect