Ошибка при работе с Excel

← →
Kudatsky (2003-05-23 09:45) [0]

Работаю с Excel в режиме поздней связки.
При нажатии на кнопку "Закрыть окно" появляется сообщение:
"Программа выполнила недопустимую операцию и будет закрыта".

← →
AbrosimovA (2003-05-23 09:51) [1]

В качестве совета: Для получения более полного и аргументированного ответа всегда пиши кусок своего кода.

← →
Kudatsky (2003-05-23 11:25) [2]

Например, так:

procedure TForm1.Button1Click(Sender: TObject);
Var
V:OLEVariant;
begin
V:=CreateOLEObject("Excel.Application");
V.WorkBooks.Add;
V.Visible:=true;
end;

← →
Amoeba (2003-05-23 11:27) [3]

Посмотри на www.delphikingdom.com цикл статей "По волнам интеграции".
P.S. Если память не изменяет, то такое имеет место если Excel97 без ServicePack

← →
AbrosimovA (2003-05-23 11:35) [4]

Я не совсем понял, где ты нажимаешь кнопку "Закрыть окно" в Excel
или в программе. Код, который ты предоставил, не закрывает чего-бы ни было, а создает экземпляр книги Excel и отображает ее на экране. Предоставь код по существу вопроса.

← →
Kudatsky (2003-05-23 12:18) [5]

Всё уже представлено. После появления Excel я нажимаю мышкой на кнопку "Закрыть окно". После чего Excel вырубается.

← →
AbrosimovA (2003-05-23 14:13) [6]

Свою программу ты связал с данной книгой Excel и поэтому ты
должен позаботиться о корректном закрытии связи с ней.
Если ты закрыл Excel при работающей программе, то тебе
нужно при закрытии программы сделать проверку, а запущена ли
твоя книга.

procedure TForm1.FormCloseExecute(Sender: TObject); var RunExcel: integer; begin RunExcel:=FindWindow(nil, "Microsoft Excel - Книга1.xls"); if RunExcel<>0 then begin //Если запущена V.WorkBooks.Save; V.WorkBooks.Close; end; V := UnAssigned; Application.Terminate;//Выход из программы end;

А вообще точнее напиши порядок своих действий.

Amoeba (23.05.03 11:27)
И в 2000 тоже такое бывает без сервис-паков. Но только под 9Х.

Ошибка при работе с Excel Найти похожие ветки