Ole error 800a03ec

← →
SeRg_2003 © (2003-07-11 07:05) [0]

Необходимо открыть файл .xls.
Открываю его так:

if OpenDialog1.Execute then
begin
FileName := OpenDialog1.FileName;
ExcelApplication1.Workbooks.Open(FileName,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
0);
end;

Но если в диалоговом окне (OpenDialog) выбрать "Отмена" или просто его закрыть возникает ошибка "Ole error 800a03ec"
Подскажите, можно ли с помощью try...except обойти эту ошибку...

← →
Rol (2003-07-11 08:27) [1]

Можно, а вот насчёт "нужно ли именно так", F1 даст тебе исчерпывающий ответ.

← →
Digitman © (2003-07-11 09:15) [2]

> если в диалоговом окне (OpenDialog) выбрать "Отмена" или
> просто его закрыть возникает ошибка "Ole error 800a03ec"

не верю.
если юзер выбрал "Отмену" (закрытие окна диалога через сист.меню эквивалентно отмене), то ф-ция Execute вернет False, и в данном коде управление никогда не будет передано на строчку Workbooks.Open(). А только она (!!) здесь может потенциально возбудить исключение 1004 (интерпретируемое Excel"ом как "параметр неверен - имя файла не задано").

если код приведен верно, то - 100%-но ! - исключение возникает где угодно далее по тексту, но не в этом фрагменте !

← →
Rol (2003-07-11 09:42) [3]

>Digitman
Но он же спросил, можно ли обойти эту ошибку с помощью try... except. :)

> Rol

можно)... ему уже ответили) .. я и не возражаю)

только вот если уж так приспичило, совершенно непонятно, где размещать try..except)... ибо при Cancel строчка Workbooks.Open() не выполняется вообще ... что толку "ловить" исключение здесь, в то время как возникает оно в ином месте ?)

p.s.
Бородатый анекдот в тему:

Мужик на корачках ползает у фонарного столба.
- Мужик, ты чего там ползаешь ?
- Да вот, ключ потерял, ищу..
- А где потерял-то ?
- Да не знаю ..
- А чего ж тогда здесь ищешь ?!
- А здесь светлее !

)

В следующих 2-строках, про условие забыл...
За ответы Thanks...

Ole error 800a03ec Найти похожие ветки