xl not closing

[Bolerophone]

I'm creating a xl worksheet i VB6 using the following code.

Public objXL As New Excel.Application
Public wbXL As New Excel.Workbook
Public wsXL As New Excel.Worksheet


    Set wbXL = Workbooks.Open(App.Path & "\test.xls") 
    Set wsXL = wbXL.Worksheets.Add(, Worksheets(1))

i close these in this manner.

wbXL.Save
    Set wsXL = Nothing
    wbXL.Close False
    Set wbXL = Nothing
    Set objXL = Nothing

After executing above code, when i open the task manager there still is an instance of xl process in memory.

i hv win xp, vb6 SP5 , office2k. can any1 help

-amresh-

[Bombdrop]

This is a a pain yopu would think that by setting the object to nothing it would destory the Excel application but you have to quite the application also.

bXL.Save
    Set wsXL = Nothing
    wbXL.Close False
    Set wbXL = Nothing
    'This is what we need 
    objXL.Quit
    Set objXL = Nothing

Hope this helps!!

[si_the_geek]

There is also something else which might cause issues along these lines, which I would strongly recommend changing.

You are referencing Excel based objects, but are not specifying any parent objects, therefore VB will make assumptions (which could easily be incorrect, and may not even reference Excel at all!).

What you should have is this:

Public objXL As New Excel.Application
Public wbXL As New Excel.Workbook
Public wsXL As New Excel.Worksheet
 
 
    Set wbXL = [b]objXL.[/b]Workbooks.Open(App.Path & "\test.xls") 
    Set wsXL = wbXL.Worksheets.Add(, [b]wbXL.[/b]Worksheets(1))

[Bolerophone]

thanks. I will try these methods.

-Amresh-

[Bolerophone]

I tried both the methods. However the excel application instance in the task manager does go away however only when I exit my application and not when the function calling objXL.Quit exits.

Well it works for me. Still any insights will be great.

[dglienna]

maybe set the value of the function to nothing?