Скачать: CL | DM;

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;

---

← →
Song ©   (2002-11-28 15:19) [4]

FreeAndNil(Excel); ???

Excel:=unAssigned;

---

← →
Jurden ©   (2002-11-28 15:39) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c