Обработка ошибок VBA

Для обработки ошибок в VBA и VB есть специальный оператор On Error. Он задает, куда будет передано управление в случае ошибки. Приведу пример:

Sub ErrorHandling()
  On Error GoTo ErrorHandler
   Dim a As Integer
   Dim x As Integer
   Dim y As Double
   a = 20
   x = 0
   y = a / x
   MsgBox ("Это сообщение никогда не появится")
   GoTo Ends:
ErrorHandler:
  MsgBox ("Ошибка деления на ноль")
Ends:
End Sub


В этом примере при возникновении ошибки управление передается к метке ErrorHandler и выводится сообщение об ошибке. Если нужно вернуться из обработчика ошибки назад, в точку, где выполнение было прервано, используется оператор Resume Next:

Sub ErrTest()
  On Error GoTo ErrorHandler
  Dim a As Integer
  Dim x As Integer
  Dim y As Double
  a = 20
  x = 0
  y = a / x
  MsgBox ("Процедура выполненяется дальше")
  GoTo Ends:
ErrorHandler:
  MsgBox ("Ощибка деления на ноль !")
  Resume Next
Ends:
End Sub



В некоторых случаях прерывать выполнение программы нежелательно даже при возникновении ошибок. В таких ситуациях можно сделать так:

Sub ManyBugs()
  On Error Resume Next
  Dim a As Integer
  Dim x As Integer
  Dim y As Double
  a = 30
  x = 0
  y = a / x
  a = 20
  x = 5
  y = 8 / 6
  MsgBox ("Никто ничего не заметил ;)")
End Sub