Некорректная работа с Excel

← →
NewAndrey (2003-02-12 20:06) [0]

Помогите, пожалуйста, разобраться как правильно работать с Excel.
Есть код аналогичный следующему:

var
xls: Variant;
WorkBook: Variant;
begin
xls:=CreateOleObject("Excel.Application");
if VarType(xls) <> VarDispatch then
begin
ShowMessage("MS Excel 97/2000 is not installed");
Exit;
end;
xls.DisplayAlerts:=False;
WorkBook:=xls.WorkBooks.Add;
{
забиваю данные
}
xls.application.activeWorkbook.saveas("FileName.xls");
WorkBook.Close;
xls.DisplayAlerts:=True;
xls.application.quit;
xls:=unassigned;
end;

Проблема в том, что если работать с одной рабочей книгой, то вроди все нормально.
Как только создается и закрывается несколько раз рабочая книга, то по завершении
приложения "вываливается" окно с сообщением об ошибке:

______________________________________________________________________
| OleMainThreadWndName: EXCEL.EXE - Application Error [x]|
|----------------------------------------------------------------------|
| |
| The Instruction at "0x650161fe" reference memory at "0x650161fe". |
| The memory could not be "read". |
| |
| Click on OK to terminate the application |
| Click on Cancel to debug the application |
| |
| |
| [ OK ] [ Cancel ] |
|______________________________________________________________________|

При этом Excel-ский процесс остается "висеть".
Подскажите, пожалуйста, как освобождать память выделяемую под рабочую книгу после
ее закрытия и как правильно "выгрузить" Excel.

← →
Романов Р.В. (2003-02-12 20:20) [1]

> xls:=unassigned;

xls := null;

Некорректная работа с Excel Найти похожие ветки