Sam,

The first thing I spotted is an unqualified reference to the new sheet.
All references to anything in Excel using automation should be qualified with
the proper parent reference.
Therefore "Befo=Sheets(1)" should read...
Befo=XLObj.ActiveWorkbook.Sheets(1)
Unless this is done, an "orphan" is created and Excel will refuse to quit.

Also, I am curious, are the Set statement and Workbooks.Open statement really on
the same line?

Regards,
Jim Cone
San Francisco, CA

"Sam" wrote in message
m...
I've got the following problem:

When I open an excel file from VB6, save it and close it again EXCEL
does not remain in the taskbar, but when I make a copy of a sheet and
save and close the file excel does remain?
Anybody has an idea?
This doesn't work:

Dim XLObj as Public XLObj As Excel.Application
Set XLObj = CreateObject("Excel.Application") XLObj.Workbooks.Open
"c:\test_file.xls"
XLObj.DisplayAlerts = False
XLObj.ActiveWorkbook.Sheets("testsheet").Copy Befo=Sheets(1)
XLObj.ActiveWorkbook.Save
XLObj.ActiveWorkbook.Close
XLObj.UserControl = False
XLObj.DisplayAlerts = True
XLObj.Quit
Set XLObj = Nothing

This works:
Dim XLObj as Public XLObj As Excel.Application
Set XLObj = CreateObject("Excel.Application") XLObj.Workbooks.Open
"c:\test_file.xls"
XLObj.DisplayAlerts = False
XLObj.ActiveWorkbook.Save
XLObj.ActiveWorkbook.Close
XLObj.UserControl = False
XLObj.DisplayAlerts = True
XLObj.Quit
Set XLObj = Nothing