Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка при проверке, открыта ли книга / 2 сообщений из 2, страница 1 из 1
06.10.2004, 12:56
    #32725729
smiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка при проверке, открыта ли книга
Ошибка при проверке, открыта ли книга.

Для проверки, открыта ли книга "ШАБЛОН 1.xls" используется:

On Error Resume Next
Set wb = Workbooks("ШАБЛОН 1.xls")
If wb Is Nothing Then 'книги нет
Workbooks.Open Filename:= _
"" & profilesDirectory & "\TEMPLATES\ШАБЛОН\ШАБЛОН 1.xls"
Else
Windows("ШАБЛОН 1").Activate
End If

Все работает нормально, но когда через несколько строк добавляю еще одну проверку:

On Error Resume Next
Set wb = Workbooks("ШАБЛОН 2.xls")
If wb Is Nothing Then 'книги нет
Workbooks.Open Filename:= _
"" & profilesDirectory & "\TEMPLATES\ШАБЛОН\ШАБЛОН 2.xls"
Else
Windows("ШАБЛОН 2").Activate
End If

происходят умунерастяжимые вещи - то VB не хочет открывать книгу "ШАБЛОН 2.xls" (игнорирует Open Filename) хотя книга не открыта, то не хочет активировать книгу "ШАБЛОН 2.xls", когда она открыта. Когда удаляю одну из проверок - все начинает работать нормально. Может быть, кто-нибудь сталкивался с такой ерундой? Подскажите, пожалуйста, господа профессоры :)
...
Рейтинг: 0 / 0
06.10.2004, 13:24
    #32725826
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка при проверке, открыта ли книга
Оператор On Error - декларативный. Он предписывает, что надо делать в случае ошибки. Поэтому повторение его несколькими строками ниже - тавтология, т.к. декларация относится ко всему модулю, а не к части кода.

В приведенном фрагменте обработчик ошибки простирается до конца модуля.
В самом обработчике производятся действия, порождающие ошибку.
И всё из-за игнорирования простого правила: обработал ошибку - скажи об этом, не молчи! Например, так:
Код: plaintext
Err.Clear
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка при проверке, открыта ли книга / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]