Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
06.10.2004, 12:56
|
|||
|---|---|---|---|
|
|||
Ошибка при проверке, открыта ли книга |
|||
|
#18+
Ошибка при проверке, открыта ли книга. Для проверки, открыта ли книга "ШАБЛОН 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", когда она открыта. Когда удаляю одну из проверок - все начинает работать нормально. Может быть, кто-нибудь сталкивался с такой ерундой? Подскажите, пожалуйста, господа профессоры :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.10.2004, 13:24
|
|||
|---|---|---|---|
Ошибка при проверке, открыта ли книга |
|||
|
#18+
Оператор On Error - декларативный. Он предписывает, что надо делать в случае ошибки. Поэтому повторение его несколькими строками ниже - тавтология, т.к. декларация относится ко всему модулю, а не к части кода. В приведенном фрагменте обработчик ошибки простирается до конца модуля. В самом обработчике производятся действия, порождающие ошибку. И всё из-за игнорирования простого правила: обработал ошибку - скажи об этом, не молчи! Например, так: Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&tablet=1&tid=2168798]: |
0ms |
get settings: |
8ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
67ms |
get topic data: |
12ms |
get forum data: |
2ms |
get page messages: |
45ms |
get tp. blocked users: |
2ms |
| others: | 219ms |
| total: | 376ms |

| 0 / 0 |
