Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Вниз

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. :)


 
Digitman   (2003-07-11 09:51) [4]


> Rol


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

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

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

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

)


 
SeRg_2003   (2003-07-14 08:43) [5]

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



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

Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
1-77833
Checist [root]
2003-07-12 02:26
2003.07.24
Свойства компонента


3-77812
Devourer
2003-07-03 14:55
2003.07.24
Справка по функциям API для БД


3-77797
Sliften
2003-06-29 20:38
2003.07.24
Как програмно добавить поле


3-77781
Sceptik
2003-06-30 14:45
2003.07.24
Помогите с запросом


1-77831
LedWorm
2003-07-11 23:53
2003.07.24
как узнать полный путь к папке ???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский