Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2766294 Wed, 01 Dec 2010 11:23:52 +0000 Правильно закрыть Excel https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2766294 Fr0sT Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2766143 Wed, 01 Dec 2010 09:31:48 +0000 Правильно закрыть Excel https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2766143 Excel := Unassigned. Перед присвоением не забыть сделать Quit.]]> Light13 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765632 Tue, 30 Nov 2010 19:14:53 +0000 Правильно закрыть Excel https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765632 VahaC! Вроде процесс удаляется теперь. Только код немного видоизменил, так он не компилируется.

      
      try
        Excel.Workbooks.Close;
      except
      end;
      Excel.Quit;
      Excel := null;


Добавлено
andrew.virus да, тут задача чтобы Excel была глобальной переменной. Если она локальная, как у тебя, то после выхода из процедуры процесс действительно исчезает]]> seska Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765596 Tue, 30 Nov 2010 18:47:33 +0000 Правильно закрыть Excel https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765596 seska, для получения результата нужно выполнить следующее:

    var
      tmpExcel: variant;
    begin
      // создаем объект
      tmpExcel:=CreateOleObject('Excel.Application');
      // что то с ним делаем
      tmpExcel.Workbooks.Add;        // добавляем один лист в книгу
      // сохраняем полученный результат
      tmpExcel.DisplayAlerts:=false; // блокируем уведомления о сохранении
      tmpExcel.ActiveWorkbook.SaveAs(extractfilepath(application.ExeName) + '1.xls');
      tmpExcel.ActiveWorkbook.Close
    end;

з.ы.: во вложении пример с использованием данного кода ...

excel_close.zip (, : 228) ]]> andrew.virus Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765583 Tue, 30 Nov 2010 18:39:16 +0000 Правильно закрыть Excel https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765583 DRKB -> ActiveX, COM и Другие технологии -> Работа с приложениями Microsoft Office -> Работа с Microsoft Excel -> Как зыкрыть Excel говорят что вот так

    try  
      Ex1.Workbooks.Close(LOCALE_USER_DEFAULT);  
      Ex1.Disconnect;  
      Ex1.Quit;  
      Ex1:=nil;  
     except  
     end;
]]> VahaC Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765534 Tue, 30 Nov 2010 17:45:56 +0000 Правильно закрыть Excel https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765534 seska Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765519 Tue, 30 Nov 2010 17:33:45 +0000 Правильно закрыть Excel https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765519 Цитата seska @
По её завершению в процессах остается все равно висеть злосчастный EXCEL.EXE

Так ты его и не закрываешь, закрываешь только одну вкладку. Вероятно, надо вызывать что-то вроде Excel.Quit]]> Fr0sT Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765493 Tue, 30 Nov 2010 17:06:10 +0000 Правильно закрыть Excel https://forum.sources.ru/index.php?showtopic=319831&view=findpost&p=2765493
    var
      Excel : Variant;
     
    procedure TMainForm.LoadFromExcel();
    begin
      //создаем объект
      Excel := CreateOleObject('Excel.Application');
      //что то с ним делаем
     
      Excel.DisplayAlerts := False; //блокировка уведомлений о сохранении
      Excel.WorkBooks[1].SaveAs(ExcelFileName);
      try
        Excel.Workbooks.Close;
      except
     
      end;
     
    end;
]]> seska Delphi: Общие вопросы