Is there anybody who knows,
what i can do to close Excel ?
With the old TAutoOle : oExcel:End() it was ok.
Antonio told me : oExcel := NIL.
It is not working, because in the Filemanager
Excel is still visible and not closed.
Regards U.König 
With Fivewin and xharbour, just comment your line oxls:end()
You dont need it anymore .
Good luck
I think what you want is
oExcel:quit()
oExcel := nil
Gale FORd wrote:I think what you want is
oExcel:quit()
oExcel := nil
I thought the same as you, but after helping someone with an Excel problem we found that Excel will still be running even though you cannot see it.
Running the task manager after doing the oExcel:quit() shows that Excel would still be resident until the variable was set to nil.
oExcel:Quit()
oExcel := NIL
works fine.
but it creates the worksheet in the background.
I tried to do nothing on the end.
It works also, but with the difference : Excel shows the sheet
and stays open.
I have to close excel with the button ( because I want to check the sheet )
A Test with the Taskmanager shows, that Excel is closed.
Thank you
U. König
What if you try this way
oExcel:WorkBooks:Close()
oExcel:Quit()
Regards
Gale FORd wrote:I thought the same as you, but after helping someone with an Excel problem we found that Excel will still be running even though you cannot see it.
Running the task manager after doing the oExcel:quit() shows that Excel would still be resident until the variable was set to nil.
I did not believe it either. I will put something together tomorrow.
Ok, thank you. I'm pretty curious...
EMG
FUNCTION MAIN()
LOCAL lRunTest := .t.
LOCAL oExcel, oSheet
clear screen
do while lRunTest
@ 10, 0 say 'Run Excel Test ' get lRunTest picture 'y'
read
if lastkey() = 27
exit
endif
if lRunTest
@ 20, 0
// This does not work
// even though you tell excel to quit it is still
// running until variable gets reset.
oExcel = CREATEOBJECT( "Excel.Application" )
oExcel:quit()
@ 20, 0 say 'Ok now check with Task Manager'
wait
// Works if you run in function that releases variable
// or you release variable yourself
oExcel := nil
TestExcel()
@ 20, 0 clear
@ 20, 0 say 'Ok now check Task Manager again'
endif
enddo
RETURN( nil )
FUNCTION TestExcel()
LOCAL oExcel, oSheet
oExcel = CREATEOBJECT( "Excel.Application" )
oExcel:quit()
RETURN( nil )I forgot to mention that when you check in the task manager, you have to look under the Processs tab. It is not in the Applications tab.
This is perfectly normal as the automatic destructor is called when the variable exits the scope. It's not a problem at all.
EMG
It was a problem for the person I was helping some time ago because he was using a prg wide static variable. The person in this thread mentioned that Excel was still running so without seeing how he was using the variable I wanted to make sure the variable lost the connection with Excel.
Have a great day. 
Ok, understood.
EMG