Delphi & Msoffice Опции

[yur]

Срочно нужна ваша помощь:
Запускаю шаблон Exсel из программы, набиваю данные, сохраняю документ,закрываю Excel. Все вроде нормально, но пока не закрою свою прогу, Excel
висит в процессах, а след-но нет возможности просмотреть созданные документы. Не всегда помогает и выход из моей программы.
Как корректно проверить наличия Excel в процессах и завершить его?

[volvo]

mj :no:

Код

App := nil;

[yur]

К моему большому сожалению:
на App:=null эта гадость тоже не реагирует,
а на App:=nil выдает несоответствие типов.
Но все равно всем спасибо за помощь.

[mj]

К моему большому сожалению:
  на  App:=null эта гадость тоже не реагирует,
  а на  App:=nil выдает несоответствие типов.
Но все равно всем спасибо за помощь.

Нужно присвоить null всем переменным, в которых ты когда либо держал объекты экзеля...
Дело в том что приложение будет закрыто тока когда количество ссылок на его объекты будет равным 0...

Код

procedure TForm1.Button1Click(Sender: TObject);
var
 V: Variant;
begin
 V := CreateOleObject('Excel.Application');
 V.Visible := True;
 V.Quit;
end;

При нажатии кнопки приложение загружаеться и выгружаеться...

Напомню что публиковать e-mail адреса для таких целей запрещено, если хотите, можете просто подписаться на обновление своей темы...

[YurKaluga]

Попробовал вставить Quit в цикл, где создаются документы - не помогает.
Excel все равно висит в процессах. Где я не то делаю?
Вот укороченный код:

Код

procedure TPrintDoc.PrintW(Sender: TObject);
var i: integer;
   File_name: string;
begin
 App:=CreateOleObject('Excel.Application');
 For i:=1 to 10 do begin
   App.WorkBooks.Add('Shablon.xlt');
   App_work:=App.WorkBooks[1].WorkSheets[1];
   App_work.Cells[1,1].Value:=. . .;

   . . .
   . . .
   . . .

   App_work.Cells[20,1].Value:=. . .;    
   File_name:='Doc.xls';
   App.ActiveWorkBook.Close(True,File_name);
   App.Quit;
 end;
   try
      App := GetActiveOleObject('Excel.Application');
      App.Quit;
    except
    end;
end;

В конце Quit оставил для пущей уверенности. Может бах в самой Delphi?
Пишу на Delphi 7 Enterprise.

Код в теги...

Сообщение отредактировано: volvo - 25.03.2005 10:46

[mj]

Попробовал вставить Quit  в цикл, где создаются документы - не помогает.
Excel все равно висит в процессах. Где я не то делаю?
Вот укороченный код:

В конце Quit оставил для пущей уверенности. Может бах в самой Delphi?
Пишу на Delphi 7 Enterprise.

Код в теги...

Ну судя по этому коду при выходе из функции у тя будет как минимум 2-3 ссылки на объекты экзеля...
Для начала перенеси все переменные из глобальных в процедуру...

[YurKaluga]

А, если я так не могу сделать? У меня в другой процедуре определяется, какой MSOffice установлен (т.е. пользователь сам выбирает, а впроцедуре определяется его выбор).