On Error не перехватывает исключения

@SQReder · Регистрация: 04.07.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте, Уважаемые!
Имеется следующий код, проверяющий наличие необходимых листов в книге

Visual Basic

Private Sub CheckWorksheets()
    On Error GoTo handler:
    
    Dim sh As Worksheet
    
    Set sh = Sheets("ExistSheet1")
    Set sh = Sheets("ExistSheet2")
    Set sh = Sheets("NonExistentSheet")
    
    Exit Sub
handler:
        MsgBox "One of more worksheet non existent", vbCritical Or vbOKOnly, "Critical error"
        ThisWorkbook.Close False
End Sub

на строке с проверкой наличия заведомо не существующего листа мы вываливаемся в run-time error вместо того, что-бы передать исключение моему обработчику.

Вот еще пример кода. Исключение так-же не перехватывается

Visual Basic

Sub errorsub()
    Dim n As Integer
    On Error GoTo ErrHandler:
    n = 1 / 0    ' cause an error
    Exit Sub
ErrHandler:
     ' error handling code
     Resume Next
End Sub

В чем может быть причина?
MS Excel 2010
___________________________________________

Ок. Лекарство найдено
http://stackoverflow.com/quest... g-in-excel

Вопрос в следующем - старушкам-бухгалтершам так и объяснять? Охм...

Уважаемые модераторы, тему можно закрыть.

@Ципихович Эндрю · 15.08.2011, 19:31

если не знать, то можно подумать, что конец света или ВБА наступил

Перейти к меню Сервис -> Параметры -> Общие, то есть Goto Tools menu -> Options item -> General tab
Установить перехват ошибок - "Break on unhandled errors"

@SQReder · 15.08.2011, 20:59 **[ТС]**

Вот я и сходил с ума, пока не наткнулся на топик на stackoverflow.
главное, что-бы в старых версиях это внезапно не вылезло.

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,721
	15.08.2011, 19:31	2
	если не знать, то можно подумать, что конец света или ВБА наступил Перейти к меню Сервис -> Параметры -> Общие, то есть Goto Tools menu -> Options item -> General tab Установить перехват ошибок - "Break on unhandled errors" 0

@SQReder 6 / 6 / 3 Регистрация: 04.07.2009 Сообщений: 50
	15.08.2011, 20:59 [ТС]	3
	Вот я и сходил с ума, пока не наткнулся на топик на stackoverflow. главное, что-бы в старых версиях это внезапно не вылезло. 0