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;

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

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

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

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

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