Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.049 c