| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как правильно закрыть Excel? [D5, Win95/98]
MaXie © (2002-11-26 12:02:00)Ламерский вопрос, но все же...
Почему следующий фрагмент кода, не корректно закрывает 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;
и т.д.
Alexander Vasjuk (2002-11-26 13:17:00) [1]FIXLSApp.Quit
stone (2002-11-26 12:14:00) [2]IWorkbook.Close;
| |
