How to kill Excel Instance

[JRudy]

Hi,

I have code here to kill Excel Instance, but the process won't ended. Any
sugestion for it ?

btw,I ran my code in MS ACCESS

SUB TEST
Dim oExcel As New Excel.Application
Dim oInvbook As Excel.Workbook
Dim oSheet As Excel.Worksheet


Set oExcel = CreateObject("excel.application")
Set oInvbook = oExcel.Workbooks.Open("\\cd020\db\productionsummary.xls",
, , , , , , , , True)
Set oSheet =
oExcel.Workbooks("productionsummary.xls").Sheets("shift_sum2x")

Call Locate_file
oSheet.Activate
oExcel.Visible = True
oSheet.Copy
oInvbook.Close

ActiveWorkbook.SaveAs Filename:=vPath & " vfname" & ".xls"
ActiveWorkbook.Close
oExcel.Quit
Set oExcel = Nothing
set oInvbook = nothing
set osheet = nothing
END SUB

 

[Tom Ogilvy]

since you do
Dim oExcel As New Excel.Application

the first time you refer to oExcel, a new instance will be created. You
don't need CreateObject

I would release the variables like this. (and add references to
ActiveWorkbook


Call Locate_file
oSheet.Activate
oExcel.Visible = True
oSheet.Copy
set oSheet = nothing
oInvbook.Close
set oInvbook = nothing

oExcel.ActiveWorkbook.SaveAs Filename:=vPath & " vfname" & ".xls"
oExcel.ActiveWorkbook.Close
oExcel.Quit
Set oExcel = Nothing


END SUB

 

[JRudy]

Tom,

thx for your feedback
but I did it from MS ACCESS
that's why I need to make new instance.
Whenever I set nothing and quit the excel, I still see the instance at the
task manager.
Any idea how can I work it out ?

 

[Tom Ogilvy]

I answered the question. Your answer represents you don't understand the
significance of the using the new keyword.

I also highlighted areas that could be causing your problem and suggested
how to fix it. Since you obviously have made no attempt to test the
suggestions, there is little else that can be said.

 

[JRudy]

Sorry I didnt watch that object in from of the active worksheet.
You got it right

Thx a lot

Regards,

Rudy