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" wrote in message
...
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

--
Regards,
Tom Ogilvy


"JRudy" wrote in message
...
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\productionsummar y.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