Delphi excel вызов был отклонен

← →
Oleg_teacher
 
(2011-01-13 22:54)
[0]

← →
KilkennyCat ©
 
(2011-01-14 00:46)
[1]

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

← →
Германн ©
 
(2011-01-14 00:50)
[2]

> вообще-то странно.

Даже ещё более странно. Ибо в вопросе неявно подразумевается что прога и отдельно Ексель работают с совсем разными документами.

← →
Oleg_teacher
 
(2011-01-14 00:59)
[3]

совершенно верно ето даже не та самая книга!!! Ошибка может не сразу вылезти, может бывает часто нада 10-20 сек. че то поисправлять в открытом «вручную» документе.

← →
KilkennyCat ©
 
(2011-01-14 01:09)
[4]

а, я невнимательно прочитал, акцентируясь на ошибке.
с 2003 офисом такой проблемы не наблюдал. мож аппаратно-рограммное что-то… тестировалось на одной машине, или на других тож самое?

← →
Oleg_teacher
 
(2011-01-14 01:16)
[5]

смотрел на 3 машинах при офисе 2003 и офисе 2007.

← →
Германн ©
 
(2011-01-14 01:27)
[6]

> Oleg_teacher   (14.01.11 00:59) [3]
>
> совершенно верно ето даже не та самая книга!!! Ошибка может
> не сразу вылезти, может бывает часто нада 10-20 сек. че
> то поисправлять в открытом «вручную» документе.
>

Значит (на 99%) ошибка в программе. Но где и какая — тебе искать. Бог в помощь!

← →
Oleg_teacher
 
(2011-01-14 01:34)
[7]

то есть дело не в офисе? Спс, за помощь… буду тогда смотреть.

← →
Германн ©
 
(2011-01-14 01:45)
[8]

> Oleg_teacher   (14.01.11 01:34) [7]
>
> то есть дело не в офисе?

Первое правило программиста — все ошибки мои!
А дальше есть отладчик.

← →
Anatoly Podgoretsky ©
 
(2011-01-14 12:23)
[9]

← →
Сергей М. ©
 
(2011-01-14 13:43)
[10]

← →
Cobalt ©
 
(2011-01-14 15:48)
[11]

exception class EolesysError with message «Вызов был отклонен»
попробуй создавать новый Application, а не подключатся к существующему
И на время работы его скрывать и делать недоступным пользователю
XLApplication.EnableEvents := False

← →
Cobalt ©
 
(2011-01-14 15:50)
[12]

В 2007-ом такая же фигня — как только начинаешь редактировать ячейку (активируешь поле ввода, а не копируешь/вставляешь) — так сразу отрубается XLApplication

Не могу закрыть Excel из Delphi

У меня форма запускает через Ole Excel

    SaveName:=Name;
    XLap := CreateOLEObject('Excel.Application');
    Workbook := XLap.WorkBooks.Open(Name);
    xlap.Visible := true;
    xlap.DefaultFilePath:=ExtractFileDir(Name);

а сама всплывает поверх его (из нее я перетаскиваю в ячейки всякую шнягу)
она держит application екселя до своего закрытия,
а при закрытии этой формы я все сохраняю и закрываю ексель

    xlap.DisplayAlerts := False;
    Workbook.SaveAs(SaveNAme);
    xlap.Quit;
    Application.ProcessMessages;

Так вот если в екселе не редактируется ячейка все проходит на ура
а ежели редактируется, то он игнорирует команды на закрытие и остается открытым.
Вопрос: Как бы его вывести из состояния редактирования ячейки?
YuriyR

Re: Не могу закрыть Excel из Delphi

Здравствуйте, yuriyr, Вы писали:

Y> xlap.Quit;
Y>Так вот если в екселе не редактируется ячейка все проходит на ура
Y>а ежели редактируется, то он игнорирует команды на закрытие и остается открытым.

Ответы на такие вопросы легче искать, сделав xlap.visible := true. В данном случае, если мне не изменяет память, Excel задает тебе вопрос о том, надо ли сохранять сделанные изменения, и, соответственно, не выходит, пока не ткнешь в Yes или No в невидимом окне Соответственно, надо явно сохранить файл.

Re[2]: Не могу закрыть Excel из Delphi

Здравствуйте, Softwarer, Вы писали:

S>Здравствуйте, yuriyr, Вы писали:

Y>> xlap.Quit;
Y>>Так вот если в екселе не редактируется ячейка все проходит на ура
Y>>а ежели редактируется, то он игнорирует команды на закрытие и остается открытым.

S>Ответы на такие вопросы легче искать, сделав xlap.visible := true. В данном случае, если мне не изменяет память, Excel задает тебе вопрос о том, надо ли сохранять сделанные изменения, и, соответственно, не выходит, пока не ткнешь в Yes или No в невидимом окне Соответственно, надо явно сохранить файл.

Нет первая команда xlap.DisplayAlerts := False;
Она отменяет все вопросы Excel на счет подтверждения сохранения
Но и она — самая первая — не выполняется exeption выдает каманда игнорирована

Re[3]: Не могу закрыть Excel из Delphi

Здравствуйте, yuriyr, Вы писали:

Y>Нет первая команда xlap.DisplayAlerts := False;

Виноват, действительно прореагировал «на рефлексах». Прошу прощения.

Re[3]: Не могу закрыть Excel из Delphi

Здравствуйте, yuriyr, Вы писали:

Y>Нет первая команда xlap.DisplayAlerts := False;
Y>Она отменяет все вопросы Excel на счет подтверждения сохранения

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

… << RSDN@Home 1.1.4 beta 2 >>

Re[4]: Не могу закрыть Excel из Delphi

Здравствуйте, akasoft, Вы писали:

A>Я тебе конечно верю, но и ты мне поверь, иногда Excel капризничает, иногда привелегий не хватает. Попробуй с алертами, посмотри, что он там пишет и дай ему это…

Попробовал и так. Изменений нет
OLE error ‘Вызов был отклонен’
Использую ExcelXP
Help! Please

Re: Не могу закрыть Excel из Delphi

Да не команду на закрытие он игнорирует, а любые OLE-вызовы

Slicer

Re[5]: Не могу закрыть Excel из Delphi

Здравствуйте, yuriyr, Вы писали:
Y>Здравствуйте, akasoft, Вы писали:

A>>Я тебе конечно верю, но и ты мне поверь, иногда Excel капризничает, иногда привелегий не хватает. Попробуй с алертами, посмотри, что он там пишет и дай ему это…

Y>Попробовал и так. Изменений нет
Y>OLE error ‘Вызов был отклонен’
Y>Использую ExcelXP
Y>Help! Please
Таки да, есть такая бодяга. Проходили.Вылечилось так:
EA.SendKeys(‘{ESC}’,0,LOCALE_USER_DEFAULT);
Где EA — ExcelApplication.
Этим мы вырубаем режим редактирования ячейки. Дальше он принимает все OLE вызовы.

… << RSDN@Home 1.1.3 stable >>

Re[6]: Не могу закрыть Excel из Delphi

Логично
Интересно, а нормальное решение есть? Без имитации клавиатурного ввода?
Ведь такая имитация плоха уже тем, что при этом отменяются внесенные юзверем в ячейку изменения. Сравните это с поведением самого Excel: если мы пытаемся его закрыть в момент редактирования, внесенные в ячейку изменения считаются подтвержденными.
Кстати, напомню, что в ряде случаев такая блокировка со стороны Excel очень логична (если, например, юзверь сидит в диалоговом окне).

Во многих случаях может подойти открытие данных как внедренного OLE-объекта. При этом как только пользователь переключится на другой элемент нашего окна, automation закроет эксель (в т.ч. если эксель был в режиме редактирования — но не в диалоговом окне). Правда, есть и досадный глюк (по кр. мере, в D6): если в design-time открыть (open, а не edit) объект в OLEContainer, а потом закрыть только книгу (но не эксель), будет закрыта и эксель тоже. А вот если то же проделать в рантайме — эксель останется открыта. Подробно не смотрел — может, как-то это регулируется. Ну сопровождение этого глюка — если один раз объект открыли в режиме open и закрыли, потом с ним можно делать что угодно — но в режиме просмотра в контейнере он при этом будет заштрихован серым (как если в данный момент редактируется в режиме open).

На выбор еще три варианта, не полностью, но решающих проблему: 1) ждем, пока Excel не согласна будет выполнить нашу команду (юзер покинет диалог или выйдет из режима редактирования), 2) блокируем пользовательский интерфейс Excel, 3) открываем данные в режиме «только для чтения» (проблема с диалогами остается).

Кстати, а зачем понадобилось показывать юзеру эксель и разрешать редактирование? И почему убивать Excel мы пытаемся из нашего приложения? Раз уж юзеру дали возможность полазить по таблице, так может, он сам определится, когда ему выходить?

Slicer

Re[7]: Не могу закрыть Excel из Delphi

Здравствуйте, Slicer [Mirkwood], Вы писали:

SM>Логично
SM>Интересно, а нормальное решение есть? Без имитации клавиатурного ввода?
IMHO, нет. Я не нашел, спрашивал об этом на Королевстве Дельфи — мне так и сказали. Так же мне сказали, что сплошная безнадега пытаться узнать позицию курсора при редактировании ячейки.
SM>Ведь такая имитация плоха уже тем, что при этом отменяются внесенные юзверем в ячейку изменения.
Мне это подходило, ибо я все равно затираю содержимое ячейки. В ЭТОМ случае. В другом — ставлю в позицию редактирования. Нашел способ.
SM> Сравните это с поведением самого Excel: если мы пытаемся его закрыть в момент редактирования, внесенные в ячейку изменения считаются подтвержденными.
О, Excel это такая загадочная вещь!
SM>Во многих случаях может подойти открытие данных как внедренного OLE-объекта. При этом как только
Я его так и использую. Мне нужно было достроить меню своими фишками, и, чтобы не мучиться с Add-in-ами, сделал в OleContainer.

SM>Кстати, а зачем понадобилось показывать юзеру эксель и разрешать редактирование? И почему убивать Excel мы пытаемся из нашего приложения? Раз уж юзеру дали возможность полазить по таблице, так может, он сам определится, когда ему выходить?
Не всегда это подходит. У меня это делается в диалоговом окне. Т.е., юзер, сам решает, когда ему прекратить редактирование. Но убиваем Excel из нашего приложения. Ксати, есть способ убить процесс Excel, если прогу «срубили», например из TaskMan?
Денис

… << RSDN@Home 1.1.3 stable >>

Re[8]: Не могу закрыть Excel из Delphi

ГД>Ксати, есть способ убить процесс Excel, если прогу «срубили», например из TaskMan?
Это вряд ли хорошо — в экселе могут быть открыты чьи-то еще документы, кроме подсунутых Вами

Slicer

Re[9]: Не могу закрыть Excel из Delphi

Сделал так
Не могу использовать OleContainer так как суть работы заключается в OLE перетаскивании данных из одного обьекта
в ексель, а сним при потере фокуса в контейнере нифига не сделаешь.

procedure TDSBOXF.OpenTemplate(Name: string);
begin
try
SaveName := Name;
XLap := CreateOLEObject(‘Excel.Application’);
Workbook := XLap.WorkBooks.Open(Name);
xlap.Visible := true;
xlap.DefaultFilePath := ExtractFileDir(Name);
except
end;
Show;
end;

procedure TDSBOXF.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: integer;
findapp: string;
begin

////////////////////////////////////////////////////////////////////////////////
// Save Workbook
////////////////////////////////////////////////////////////////////////////////

try
xlap.DisplayAlerts := False;
Workbook.SaveAs(SaveNAme);
Workbook.Close(False);
Application.ProcessMessages;
except
on E: Exception do
begin
// if (E.ClassName = ‘EOleSysError’) AND (EOleSysError(E).ErrorCode = -2147417848) then Exit; // Отключен клиент
if (E.ClassName = ‘EOleSysError’) and (EOleSysError(E).ErrorCode = -2147418111) then // Заблокирован Excel
begin
findapp := ‘Microsoft Excel — ‘ + ChangeFileExt(ExtractFileNAme(SaveNAme), »);
if not AppActivate(Pchar(findapp)) then
begin
findapp := ‘Microsoft Excel*’;
if not AppActivate(Pchar(findapp)) then Exit;
end;
begin
try
SendKeys(‘{TAB}’, True);
Application.ProcessMessages;
xlap.DisplayAlerts := False;
Workbook.SaveAs(SaveNAme);
Workbook.Close(False);
Application.ProcessMessages;
except
end;
end;
end;
end;
end;

Покритикуйте!
Посылаю TAB через Sendkey32 немного модифицированный.
Там еще пишут XLap := CreateOLEObject(‘Excel.Application 7.8.9… ‘);
Вот эти 7-8-9 сильно нужны или нет ? У меня вроде и так все работает.