Detecting an active instance of Excel from Word VBA

Sorcerer13 · #1 05-28-2014, 02:20 AM

Paul....

Thanks for the reply, but the same thing happens with YOUR code (slightly modified, see below: duplicate "As" removed, and lines to render an existing Excel instance visible).

If you put this code in a word module, set the references, then step through via PF8, even if every instance of Excel has been shut down, it appears that the GetObject actually starts Excel!

Even if an existing Excel document is open when the Word VBA runs, the VBA opens another Excel document!

I don't think what I'm trying to do is Rocket Science, but it sure seems difficult!

Any ideas???

Code:

Public Sub TestExcelFromWord()
Dim gxlApp                  As Excel.Application
' Needs reference to Microsoft Excel 14.0 Object Library
Dim gbooExcelIsRunning      As Boolean
' Test whether Excel is already running.
  On Error Resume Next
  gbooExcelIsRunning = False ' Flag to record if we start Excel, so we can close it later.
  Set gxlApp = GetObject(, "Excel.Application")
'Start Excel if it isn't running
  If gxlApp Is Nothing Then
    Set gxlApp = CreateObject("Excel.Application")
    If gxlApp Is Nothing Then
      MsgBox "Can't start Excel.", vbExclamation
      Exit Sub
    End If
  ' Record that we've started Excel.
    gbooExcelIsRunning = True
   Else
    gxlApp.Visible = True
  End If
  On Error GoTo 0
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
problem copying active excel table onto word, office 2013	billb	Word	2	01-08-2014 05:12 PM
Word vs bookmarks, another instance <g>	eNGiNe	Word	6	12-05-2012 01:05 AM
www....com does not stay active in excel 2010	waltdisneypixar	Excel	6	06-11-2012 12:55 AM
How to create multiple pages, 1 instance of word window	cs_starter	Mail Merge	1	09-08-2011 12:52 AM
VB Code in Excel Active worksheet	shakilhyd	Excel	2	05-17-2010 07:50 AM