Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизОшибка при работе с 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c