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

Ошибка при работе с 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;

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

---

← →
Карелин Артем ©   (2003-05-23 14:56) [7]

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

---

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

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



Память: 0.46 MB
Время: 0.013 c