Delphi & Msoffice Опции

[yur]

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

[volvo]

Код

var ExcelApp : Variant;
begin
 try
   // Ищем запущеный экземпляр Excel
   // если он не найден, вызывается исключение
   ExcelApp := GetActiveOleObject('Excel.Application');
 except
 end;

[yur]

Может как-то по-другому его открывать? С помощью GetActiveOleObject все равно не завершается. Я запускаю так:

Код

 App:=CreateOleObject('Excel.Application');
 App.WorkBooks.Add({Path}+'Filename.xlt');
 App_work:=App.WorkBooks[1].WorkSheets[1];

 App_work.Cells[2,5].Value:=.......................;
 ...
 ...
 ...
 App_work.Cells[2,5].Value:=.......................;

 App.ActiveWorkBook.Close(True,File_name);
   try
      App := GetActiveOleObject('Excel.Application');
      App.Quit;
    except
    end;

Процесс вроде бы определяется (возвращает значение), на Quit не ругается, но процесс не завершается, пока я не закрою свое приложение.