Скачать: CL | DM;

Корректное закрытие Excel   Найти похожие ветки 

← →
Glivera ©   (2006-06-21 00:00) [0]

Подскажите как нужно корректно закрывать Excel. Пишу такой код:

   XLApp := CreateOleObject("Excel.Application");
   XLApp.Visible:= True;
   XLApp.sheetsInNewWorkbook:=1;
   XLApp.Workbooks.add;
   Sheet := XLApp.Workbooks[1].WorkSheets[1];
   Sheet.activate;
   Sheet.cells.item[1,1]:="Проверка";

   XLApp.WorkBooks[1].SaveAS("d:\My.xls");
   XLApp.Quit;
   XLAPP := Unassigned;
   Sheet := Unassigned;

Суть проблемы в том, что этот файл потом можно открыть только после перезагрузки компа. Подскажите что сюда нужно добавить\убрать. Заранее спасибо.

---

← →
Ломброзо ©   (2006-06-21 01:21) [1]

запоминать указатели на все интерфейсы и аккуратно их релизить

try
  pXLApp := CreateOleObject("Excel.Application");
  pWorkbooks = pXLApp.Workbooks;
  pWorkbook = pWorkbooks.Add();
finally
  if (pWorkbook <> nil) then
  begin
    // Release
  end;
  if (pWorkbooks <> nil) then
  begin
    // Release
  end;
  if (pXLApp <> nil) then
  begin
    pXLApp.Quit;
    // Release
  end;
end

некоторые горячие головы умеют вычислять идентификатор процесса COM-сервера и на всякий случай прибивать процесс Excel, и в этом тоже есть смысл

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c