Search not helping with Orphaned Excel in task Mngr

[RobDog888]

Got the PM Si

Ok, after readng the thread I have a couple of questions/suggestions.

First, since you using a blank new workbook, do you have any personal macros that execute when Excel opens? Second, the posted code examples are all valid and should work. Are you only using the posted code and nothing additional? this is code in a VB 6 Project and not behind Excel's VBA IDE?

In your first post, second code examle, if you click command1 and then 2 it works correctly but if you click command1, command 3, command4 and then command2 will it work ok?

Perhaps placing some Debug.Print statements in command 3 and command4 to print to the immediate window with the number of workbooks open and / or sheets in the book(s).

Use the early binding for the testing to make sure you working with the desired version. Once we get it working with one we can test the other.

'Add a reference to MS Excel 10.0 Object Library
Dim oXLApp As Excel.Application
Dim oXLBook As Excel.Workbook
 
Private Sub Command1_Click()
    Set oXLApp = New Excel.Application
    oXLApp.Visible = True  
End Sub
 
Private Sub Command2_Click()
    Debug.Print "#2 - oXLApp.WorkBooks.Count Before: " & oXLApp.WorkBooks.Count
    'oXLApp.Visible = False 'No need to complicate things until its resolved 
    oXLApp.Quit
    Set oXLApp = Nothing
End Sub
 
Private Sub Command3_Click()
    Debug.Print "#3 - oXLApp.WorkBooks.Count Before: " & oXLApp.WorkBooks.Count
    Set oXLBook = oXLApp.Workbooks.Add
    Debug.Print "#3 - oXLApp.WorkBooks.Count After: " & oXLApp.WorkBooks.Count
End Sub
 
Private Sub Command4_Click()
    Debug.Print "#4 - oXLApp.WorkBooks.Count Before: " & oXLApp.WorkBooks.Count
    oXLBook.Close
    Set oXLBook = Nothing
    Debug.Print "#4 - oXLApp.WorkBooks.Count After: " & oXLApp.WorkBooks.Count
End Sub

Press Alt+G in the VB 6 IDE to open the Immediate window.

I was just taking a break from painting a bedroom so I may not be back for a while (unless its just too hot to do more).