powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка при проверке, открыта ли книга
2 сообщений из 2, страница 1 из 1
Ошибка при проверке, открыта ли книга
    #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
Ошибка при проверке, открыта ли книга
    #32725826
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Оператор On Error - декларативный. Он предписывает, что надо делать в случае ошибки. Поэтому повторение его несколькими строками ниже - тавтология, т.к. декларация относится ко всему модулю, а не к части кода.

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


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