| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Excel остается в процессах [Delphi]

ruslan_as ©   (2004-09-15 11:13:00) 

Помогите разобраться, что не правильно сделано. Открываю шаблон Excel, заполняю его и сохраняю под другим именем и показываю его:

Excel := CreateOleObject('Excel.Application');
Excel.DisplayAlerts := false;
Excel.WorkBooks.Open(ExtractFileDir(Application.ExeName)+'\Month.xlt');
Sheet := Excel.Application.Worksheets.Item[1];
.... Заполняю данными

Excel.Visible := True;
Excel.ActiveWorkbook.SaveAs(OS.FileName+'.xls');

Но после закрытия пользователем файла остается процесс "Excel". Почему?

---

Суслик   (2004-09-17 14:59:00) [1]

> только так освободится OLE-объект

ерунда, все интерфесы при выходе из области видимости очищаются сами...
и при выходе из процедуры локальная переменная excel очистится замечательно.

---

r_nikola   (2004-09-16 18:04:00) [2]

YurikGL прав!

Только так Excel освободится и исчезнет из процессов. Простого Quit недостаточно.

Тут недавно уже была похожая ветка. Много чего там предлагали, но Excel := unassigned там так и не было предложено.
Потом сам с этим разбирался, прочитал в хелпе, что только так освободится OLE-объект (он освободится сам, когда на него не будет ссылок, а ссылку мы как раз этой строчкой и убираем).

---

YurikGL   (2004-09-16 12:05:00) [3]

> Суслик ©   (16.09.04 09:33) [7]

Бог его знает этот ексель... Просто всегда работал так и проблем никогда не возникало.

---

Суслик   (2004-09-16 09:33:00) [4]

>  [6] YurikGL ©   (15.09.04 21:39)
> Excel := unassigned в конце добавить надо...

Зачем?
И так прекрасно очистится при выходе из метода.

---

YurikGL   (2004-09-15 21:39:00) [5]

Excel := unassigned в конце добавить надо...

А лучше

try

Excel:=Create.....

finally
Excel := unassigned
end;

---

суслик   (2004-09-15 13:57:00) [6]

> Но Excel.UserControl := True; Решает проблему :)

да, скорее всего именно эта строка и решает.

---

Romkin   (2004-09-15 13:47:00) [7]

Упс. А действительно, если закрыть не сам excel, а именно книгу - остается...
Но Excel.UserControl := True; Решает проблему :)

---

Суслик   (2004-09-15 13:32:00) [8]

> Ну-ну. Думаю, вызов Excel.Quit все же проще?

читаем внимательно вопрос :)))

а именно


> Но после закрытия пользователемфайла остается процесс "Excel".
> Почему?


какой, говоришь, здесь Quit?

---

Romkin   (2004-09-15 13:03:00) [9]

Ну-ну. Думаю, вызов Excel.Quit все же проще?

---

Суслик   (2004-09-15 11:17:00) [10]

У меня были аналогичные проблемы.
Решил так:

  fApp.Visible := True;
  fApp.Interactive := True;
  fApp.DisplayAlerts := True;
  fApp.ScreenUpdating := True;
  fApp.Application.WindowState := TOLEEnum(xlMaximized);
  fApp.UserControl := True;

Скажу честно - не знаю какая из этих строк решает проблему. Такая комбинация строк была найдена перебором, т.к. в доке ничего путного не написано. Про UserControl мне сказали на Королевстве.

---

Наверх