Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизКак правильно закрыть Excel? Найти похожие ветки
← →
MaXie (2002-11-26 12:02) [0]Ламерский вопрос, но все же...
Почему следующий фрагмент кода, не корректно закрывает Excel?
...
private
FIXLSApp: Excel97.TExcelApplication;
...
procedure TForm1.Button1Click(Sender: TObject);
var
IWorkbook: Excel97.ExcelWorkbook;
ISheet: Excel97.ExcelWorksheet;
begin
if not Assigned(IXLSApp) then
begin
FIXLSApp := TExcelApplication.Create(Self);
FIXLSApp.ConnectKind := ckNewInstance;
FIXLSApp.Connect
end;
IWorkbook := FIXLSApp.Workbooks.Add(FileName, 0) as Excel97.ExcelWorkbook;
ISheet := IWorkbook.Worksheets.Item["Лист1"] as Excel97.ExcelWorksheet;
Edit1.Text := IntToStr(ISheet.UsedRange[0].Rows.Count);
ISheet := nil;
IWorkbook := nil;
FreeAndNil(FIXLSApp);
end;
и т.д.
← →
stone (2002-11-26 12:14) [1]IWorkbook.Close;
← →
Alexander Vasjuk (2002-11-26 13:17) [2]FIXLSApp.Quit
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c