Microsoft Excel

← →
Jurden © (2002-11-28 14:36) [0]

Здраствуйте! Почему после выполнения следующей процедуры Excel висит в памяти (из-за чего если не виснет все, виснет сама программа)?

procedure T_Auto.sbExportClick(Sender: TObject);
var
Excel: Excel97.TExcelApplication;
WorkBook: Excel97.ExcelWorkBook;
WorkSheet: Excel97.ExcelWorkSheet;
begin
if (FileName <> "") then
begin
Excel := Excel97.TExcelApplication.Create(Self);
Excel.Connect;
WorkBook := (Excel.Workbooks.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, False, 0));
WorkSheet := (WorkBook.Worksheets.Item[1] as Excel97._Worksheet);
// Работа с листом
WorkSheet := nil;
WorkBook := nil;
Excel.Quit;
FreeAndNil(Excel);
end
else
ShowMessage("Имя файла не выбрано!");
end;

← →
sask © (2002-11-28 14:46) [1]

После работы с книгой: WorkBook.Close
и вместо Excel.Quit поставить Excel.Disconnect

← →
sask © (2002-11-28 14:49) [2]

Причем все это в соответствующие try...finally

← →
Jurden © (2002-11-28 15:14) [3]

Подправил, все равно висит.

procedure T_Auto.sbExportClick(Sender: TObject);
var
Excel: Excel97.TExcelApplication;
WorkBook: Excel97.ExcelWorkBook;
WorkSheet: Excel97.ExcelWorkSheet;
begin
if (FileName <> "") then
begin
Excel := Excel97.TExcelApplication.Create(Self);
Excel.Connect;
WorkBook := (Excel.Workbooks.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, False, 0));
WorkSheet := (WorkBook.Worksheets.Item[1] as Excel97._Worksheet);
// Работа с листом
WorkSheet := nil;
WorkBook.Close(False, FileNamem, EmptyParam, 0);
Excel.Disconnect;
FreeAndNil(Excel);
end
else
ShowMessage("Имя файла не выбрано!");
end;

FreeAndNil(Excel); ???

Excel:=unAssigned;

[Error] deAuto.pas(164): Incompatible types: "TExcelApplication" and "Variant"

Microsoft Excel Найти похожие ветки