Process Excel Remains After Sheet Move

Osmar Morais

New Member
I´m trying to move a worksheet originally opened from a CSV file to another workbook and than save it; everything is working but the Excel process remains in memory after application end.

Follow the code used:

DEF VAR chExcel AS COM-HANDLE NO-UNDO.
DEF VAR chWBook AS COM-HANDLE NO-UNDO.
DEF VAR chWBTmp AS COM-HANDLE NO-UNDO.
DEF VAR chWSheet AS COM-HANDLE NO-UNDO.
DEF VAR cArqCSV AS CHAR NO-UNDO.
CREATE "Excel.Application" chExcel.
ASSIGN chWBook = chExcel:Workbooks:OPEN("s:\ems204\MatrizExcel\ModeloEs1103.xls").
ASSIGN cArqCSV = "c:\temp\#Atd041004-052553.csv".
ASSIGN chWBTmp = chExcel:Workbooks:OPEN(cArqCSV).
ASSIGN chWSheet = chExcel:ActiveSheet().
ASSIGN chWSheet:NAME = "Base".
NO-RETURN-VALUE chWSheet:Move(chWBook:Sheets(1)).
/*
chWBTmp:CLOSE().
*/
IF VALID-HANDLE(chWSheet) THEN
RELEASE OBJECT chWSheet.
IF VALID-HANDLE(chWBTmp) THEN
RELEASE OBJECT chWBTmp.
chWBook:SaveAs("c:\temp\Test.xls",43,"","",FALSE,FALSE,1).
chWBook:CLOSE().
IF VALID-HANDLE(chWBook) THEN
RELEASE OBJECT chWBook.
chExcel:QUIT().
IF VALID-HANDLE(chExcel) THEN
RELEASE OBJECT chExcel.

Thanks for any help.
 
Top