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

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

I'll try it tomorrow... I had read about the orphan "problem" but I
missed the "before" line.

Thanks for the help :-) Hope it works

ps: Set XLObj = CreateObject("Excel.Application")
XLObj.Workbooks.Open are indeed on 2 seperate lines!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

If I understand, you are left with an invisible instance
of Excel. Not an answer to your question, but to get out
of trouble Robert Bruce has a vbs script he has titled:

"Activate A Lost, Hidden Excel Instance"

http://myweb.tiscali.co.uk/xlvba/exc...elop/index.htm

Regards,
Sandy
savituk yahoo co uk

-----Original Message-----
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
.

Thanks Jim,

It did the trick! One problem less to wory about :-)



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!