Основы офисного программирования и язык VBA


Пример 10.2


Sub ProcWithErrors()

'Первый охраняемый блок

On Error GoTo ErrHadler1 ' подключение 1-го обработчика ошибок

' Первая часть процедуры, которая может вызвать ошибку.

...

On Error GoTo 0 отключение 1-го обработчика ошибок

'Второй охраняемый блок

On Error GoTo ErrHadler2 ' подключение 2-го обработчика ошибок

' Вторая часть процедуры, которая может вызвать ошибку.

...

On Error GoTo 0 отключение 2-го обработчика ошибок

'Третий охраняемый блок

On Error GoTo ErrHadler3 ' подключение 3-го обработчика ошибок

' Третья часть процедуры, которая может вызвать ошибку.

...

On Error GoTo 0 отключение 3-го обработчика ошибок

RepeatPoint: ' точка, с которой возобновляется выполнение

'после обработки ошибки в 3-ей части

...

Exit Sub 'выход из процедуры при отсутствии ошибок

'ОбработкаОшибок:

ErrHandler1:

' 1-ый обработчик ошибок

...

Resume 'возврат к оператору, вызвавшему ошибку в 1-ой части

ErrHandler2:

' 2-ой обработчик ошибок

...

Resume Next 'переход к оператору, следующему за оператором

'вызвавшим ошибку во 2-ой части

ErrHandler3:

' 3-ий обработчик ошибок

...

Resume RepeatPoint 'переход к строке, с которой возобновляется

'выполнение после обработки ошибки в 3-ей части

End Sub




Начало  Назад  Вперед



Книжный магазин