Как сделать закрытие формы вместе закрытием активного лита eхel

[amadi]

Проблема в чем, надо сделать закрытие формы, но программа может иметь открытые рабочие листы exel, а может и не иметь.

procedure TForm1.Button4Click(Sender: TObject);
begin
EF.DisplayAlerts := false;
EF.Activeworkbook.close;
close;
end;

Как сделать так чтобы чтобы программа закрывала форму и активный документ exel, даже если активный Exel не открыт.

[Sibedir]

Как сделать так чтобы чтобы программа закрывала форму и активный документ exel, даже если активный Exel не открыт.

А как можно закрыть не открытое?

Вообще, на сколько я помню, команда Close у MS имеет набор параметров, один из которых отвечает за сохранение. Попробуйте закрыть весь Exel указав ему принудительное сохраниние/несохранение.

[amadi]

У меня список listbox, имеет сслки на книжки эксель если щелкнуть на listbox, открывается нужный а фаил, а при и выборе другой записи предыдушая книжка закрывается, так вопрос в том, что надо сделать кнопку выхода, а когда программа тока запущена, кнопка выхода не работает потому что нет активного листа, хотелось бы ее сделать независимой, чтобы кнопка выход работала и при окрытой активной книге эксель и при не открытой, те при запуске программы когда еще ничего не выбрано, а закрытие активной книжки обязательно, не закроешь и она остается висеть в памяти даже если форма закрыта.

[java_91]

 
try
 // Excel.ActiveWorkBook.Close; // Закрываем документ если он есть
  Excel.Quit; // или так закрываем его
  Excel := UnAssigned; // Убиваем процесс
except
  ShowMessage('Нет активного документа');
end;

как то так.

[evg_m]

кнопка выхода не работает потому что нет активного листа, хотелось бы ее сделать независимой

ну так и сделай ее (доступность кнопки button.enabled) независимой, а в коде просто проверяй: есть ли выделенный Listbox; есть ли нужная (текущая, активная) книга. И выполняй нужные (и пропускай ненужные) действия. по видимому те проверки которые управляют доступностью кнопки надо перенести в обработку нажатия.

[amadi]

Ура заработало, фишка в чем, создаем глобальную переменную у меня a:integer, на formcreate значение будет a:=0, там где происхотит выбор из listbox т.е. Exel.Workbooks.open[itemname] после него а:=1, потом пишем кнопку выхода

procedure TForm1.Button4Click(Sender: TObject);
begin
if a=1 then
begin
EF.DisplayAlerts := false;//EF тоже самое что и Exel
EF.Activeworkbook.close;
close
end
else
begin
close;
end;
end;

Все работает, всем спасибо за помощь, кто откликнулся

[Sibedir]

Не спешите радоваться. Ибо ваш вариант содержит БОЛЬШУЮ логическую ошибку.
Если документ был открыт по клику в ListBox'е, а потом закрыт пользователем/системой/самим Excel'ем (при возникновении какой-нибудь ошибки), то ваша кнопка Button4 начнет глючить.

[mss]

try {.. закрывай здесь что хошь, хоть черта лысого ..} except end;