Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

А если Excel закрыт????   Найти похожие ветки 

 
Chuk45   (2004-10-08 12:18) [0]

Добрый день всем.
Подключаюсь так:
Excel := CreateOleObject("Excel.Application");
   Excel.Visible := True;

   WBk := Excel.WorkBooks.Open(ExcelPath);

   WS := WBk.Worksheets.Item["Лист1"];

Отключаюсь так:
WS:=Unassigned;
       WBk.Close;
       WBk:=Unassigned;
       Excel.Quit;
       Excel := Unassigned;

Но вот если Excel был закрыт до отключения, то вываливается ошибка "Вызываемый объект был отключён".

Как этого избежать/обработать (кроме, конечно, "не закрывай Excel до отключения" :))?


 
KSergey ©   (2004-10-08 12:24) [1]

Да никак и не обрабатывать.
Ну если уж так пугает - ну подавить try/except, хотя зачем? А может не отображать эксель просто? Дабы и закрыть-то его пользователь сам не мог...


 
Chuk45   (2004-10-08 12:25) [2]

К сожалению, отображать надо.


 
YurikGL ©   (2004-10-08 12:55) [3]


> Chuk45   (08.10.04 12:18)  

Советую делать так:
Подключился. Выбросил в ексель все что надо и сразу отключился. Если надо что-то еще выбрасывать - подключаемся вновь.


 
KSergey ©   (2004-10-08 13:02) [4]

К стати, у родного TExcelApp - нет ои чего-то вроде OnClose? (только как реализовать - не знаю; см. vcl)


 
Chuk45   (2004-10-08 13:55) [5]

YurikGL ©   (08.10.04 12:55) [3]
Я тоже хотел так сделать, но отключение:
      WS:=Unassigned;
      WBk.Close;
      WBk:=Unassigned;
      Excel.Quit;
      Excel := Unassigned;
выхывает диалог закрытия самого Excel"я.


 
KSergey ©   (2004-10-08 14:01) [6]

Ну дык убери WBk.Close и Excel.Quit  ;)


 
_iceman_ ©   (2004-10-08 16:11) [7]

if not VarIsEmpty(Excel) then
 Excel.Quit;



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

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
1-1097227891
$teve:o)
2004-10-08 13:31
2004.10.24
Как получить значение кокретной строки реестра


1-1096497679
Defunct
2004-09-30 02:41
2004.10.24
Exception: Not enough storage is available to process this ..


1-1097505960
gigabyte
2004-10-11 18:46
2004.10.24
Как работать с Microsoft Agent?


14-1096662951
Мазут Береговой
2004-10-02 00:35
2004.10.24
Вот интересная штука Панда антивирус:


4-1095743160
Rem
2004-09-21 09:06
2004.10.24
Текст на панельки