Application.Quit doesnt terminate the Process

[Gindo70]

Hello,
i have following Problem:
I wrote a Macro in Word, that opens an Excel file, changes stuff and saves ist again. When it runs a second time i get "method rows of object _global failed" as Error. (It works fine, if i close Word inbetween the runs).
I suppose it's because the EXCEL:EXE *32 process does not terminate. (i can see it in the Task-Manager)
I appreciate any help.

    Dim oExcel As Excel.Application
    Dim oWB As Workbook
    Set oExcel = New Excel.Application
    oExcel.Visible = False
    Set oWB = oExcel.Workbooks.Open(spath)
    NextRow = oWB.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1 ' Error at this row
    'more code
    oWB.Save
    
    oWB.Close
    oExcel.Quit

 

[Fluff]

Untested, but try

Dim oExcel As Excel.Application
Dim oWB As Workbook
Set oExcel = New Excel.Application
oExcel.Visible = False
Set oWB = oExcel.Workbooks.Open(sPath)
With oWB.Worksheets(1)
    NextRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
End With
'more code
oWB.Save

oWB.Close
oExcel.Quit

 

[Gindo70]

Thank you, it works!
But why does the With-Block resolve this Problem?

 

[RoryA]

Because the red part below was not properly qualified and was therefore creating an implicit reference to an Excel.Application object that you had no control over (which is why the process remained running):

NextRow = oWB.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1