| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Delphi 5 и Excel 2002. Кто знает, как программно закрыть [Delphi, Windows]

Дима Н. ©   (2005-08-03 16:08:00) 

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

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

---

Дима Н.   (2005-08-05 09:36:00) [1]

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

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

---

k2   (2005-08-05 04:19:00) [2]

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

---

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

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


var e: variant;

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

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


---

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

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

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;

---

GanibalLector   (2005-08-04 01:52:00) [5]

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

---

Наверх