GetObject Excel ???

[galileogali]

Since Word I open Excel, but if it was already open I would like to assign it to an object with this code

On Error Resume Next
Set xlp = GetObject(Application.Path & "\EXCEL.EXE", "Excel.Application")
If xlp Is Nothing Then
    Set xlp = CreateObject("Excel.Application")
End If

However, still open Excel

Set xlp = GetObject(Application.Path & "\EXCEL.EXE", "Excel.Application")

xlp is Nothing

What I Have wrong????

 

[Leith Ross]

Hello ,

Here is some information about using GetObject:

Syntax - GetObject([pathname] [, class])

<title>GetObject Function</title><style>@import url(office.css);</style><link disabled="" href="msoffice.css" rel="stylesheet">If pathname is a zero-length string (""), GetObject returns a new object instance of the specified type. If the pathname argument is omitted, GetObject returns a currently active object of the specified type. If no object of the specified type exists, an error occurs.

This should work.

On Error Resume Next
  Set xlp = GetObject(, "Excel.Application")
  Err.Clear
On Error GoTo 0

If xlp Is Nothing Then
   Set xlp = CreateObject("Excel.Application")
End If

Sincerely,
Leith Ross

 

[galileogali]

Thank you for the example and the explanation

 

[brettdj]

Credit to the following post to Kevin Jones. I now use this technique whereas previously I used code similar to Leith's


Be aware that when launching Excel through automation using the CreateObject function, Excel does not load any Add-Ins or other workbooks normally loaded automatically. This is not a good way to start an Excel session that will be used by the user. To start an Excel application instance without using automation from any application other than Excel, the Excel application must be launched using non-automation means. The code below illustrates the steps to do this. The code first tries to obtain an automation handle to an existing application instance. If an existing instance is not found then a new instance is started using the Shell command.

   Dim ExcelApplication As Object
   Dim TimeoutTime As Long
   
   On Error Resume Next
   Set ExcelApplication = GetObject(, "Excel.Application")
   On Error GoTo 0
   If ExcelApplication Is Nothing Then
       Shell "Excel.exe"
       TimeoutTime = Timer + 5
       On Error Resume Next
       Do
           DoEvents
           Err.Reset
           Set ExcelApplication = GetObject(, "Excel.Application")
       Loop Until Not ExcelApplication Is Nothing Or Timer > TimeoutTime
       On Error GoTo 0
   End If
   If ExcelApplication Is Nothing Then
       MsgBox "Unable to launch Excel."
   Else
       ' Do something with the Excel instance...
   End If