Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-14392
Spartak
2002-11-14 20:42
2002.12.05
Какие файлы использует приложение с базой данных ?


1-14570
Vcoder
2002-11-23 20:22
2002.12.05
TCanvas.ClipRect : как изменить?


1-14596
aterm
2002-11-27 14:55
2002.12.05
Help!


1-14546
Matolch
2002-11-24 13:02
2002.12.05
Значения свойств компонента по умолчанию, кто зна?


6-14716
Chlavik
2002-10-07 02:09
2002.12.05
Подключённый диск. IP - ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский