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

Delphi 5 и Excel 2002. Кто знает, как программно закрыть   Найти похожие ветки 

← →
Дима Н.   (2005-08-03 16:08) [0]

Работаю в Delphi 5 и Excel 2002 под WinXP. Обратился к Excel для чтения данных, при этом Excel не появляется. Появляется только тогда, когда открываю какой нибудь другой файл. Подскажите пожалуйста, как мне программно выгрузить Excel? Тот код, что у меня есть, не позволяет этого сделать.

Благодарю за помощь.
Дмитрий.

---

← →
GanibalLector ©   (2005-08-04 01:52) [1]

>Тот код, что у меня есть, не позволяет этого сделать
Ну дык... приведи код.
P.S. А вообще-то поиск тут есть;)

---

← →
Дима Н.   (2005-08-04 12:00) [2]

Поиск у меня почему-то не работает. Вот код

procedure TForm1.ReleaseExcel;
begin
 if Assigned(IXLSApp) then begin
   if (IXLSApp.Workbooks.Count > 0) and (not IXLSApp.Visible[0]) then begin
     IXLSApp.WindowState[0] := TOLEEnum(xlMinimized);
     IXLSApp.Visible[0] := true;
     if not(csDestroying in ComponentState) then Self.SetFocus;
     Application.BringToFront;
   end;
 end;
 FreeAndNil(FIXLSApp);
end;

---

← →
Damager   (2005-08-04 14:40) [3]

Где-то я видел, что Excel закрывается так:


var e: variant;

// создание
e := createoleobject("Excel.Application");

// уничтожение(закрытие)
e := unassigned;


---

← →
k2 ©   (2005-08-05 04:19) [4]

IXLSApp.Visible[0] := true; а зачем?
IXLSApp.Quit перед freeandnil

---

← →
Дима Н.   (2005-08-05 09:36) [5]

Получилось!!!

Большое спасибо!!!

---

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

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



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