Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по Excel.   Найти похожие ветки 

 
vic_vm   (2002-02-16 16:46) [0]

Вопрос по Excel.
Делаю следующее

FIXLSApp : Excel97.TExcelApplication ;
IWorkbook: Excel97._Workbook;
ISheet: Excel97._Worksheet;
--------------------------------------
//Подключение к Excel
if not Assigned(FIXLSApp) then begin
FIXLSApp := Excel97.TExcelApplication.Create(Self);
end;

FIXLSApp.ConnectKind := ckRunningInstance;
FIXLSApp.Connect;
Conn := true;
IWorkbook:= FIXLSApp.Workbooks.Item[1];
ISheet := IWorkbook.Worksheets.Item[1] as Excel97._Worksheet;

//Далее считываю данные и затем

if Conn then
begin
FIXLSApp.Disconnect;
FreeAndNil(FIXLSApp);
Conn := false;
end;

Если затем я сначала закрываю программу, а потом Excel то все проходит
нормально,
а если пытаюсь первым закрыть Excel то во время закрытия выдает что Excel
выполнил
недопустимую операцию. Как-то наверно я некоректно отключаюсь или что то я
не освобождаю
вот только непонимаю что


 
drpass   (2002-02-16 19:45) [1]

Попробуй использовать CoInitialize перед работой с Excel и CoUninitialize после



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

Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.005 c
6-9254
Dmitttry
2001-12-18 02:42
2002.03.04
Как передать файл по FTP протоколу?!


1-9220
Zluka
2002-02-15 12:17
2002.03.04
TFileStream


1-9142
HDD
2002-02-17 13:33
2002.03.04
Помогите пожалуйста


6-9263
Leviathan
2001-12-10 22:29
2002.03.04
Ошибка на сокете


1-9108
Igl
2002-02-15 21:50
2002.03.04
Как можно сделать эквалайзер?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский