Почему этот обработчик ошибок VBA не работает?

Question

Я ожидаю, что этот простой VBA молча обрабатывать все 10 ошибок, но по какой-то причине, только первый обрабатывается тихо:

Public Sub HandleError() 
    For i = 1 To 10 
     On Error GoTo Continue 
     ThrowError 

Continue: 
     Err.Clear 
    Next i 
End Sub 

Public Sub ThrowError() 
    Err.Raise vbObjectError + 1000 
End Sub 

Является ли это правильное поведение для приведенного выше кода? Или это ошибка в VBA?

Answer 1

Вы перекручивание через ошибки обработки этикетки, так что вторая ошибка возникает в контексте обработчика ошибок, даже если Next i инструкция перемещает выполнение кода в строке выше метки. Вам необходимо перенести выполнение из контекста обработки ошибок, вызвав Resume после устранения ошибки. Это означает, что обработчик ошибок должен либо быть вне цикла ...

Public Sub HandleError() 
    For i = 1 To 10 
     On Error GoTo Continue 
     ThrowError 
    Next i 

    Exit Sub 
Continue: 
    Err.Clear 
    Resume Next 
End Sub 

... или есть второй ярлык для Resume на:

Public Sub HandleError() 
    For i = 1 To 10 
     On Error GoTo Continue 
     ThrowError 

Continue: 
     Err.Clear 
     Resume NextLoop 
NextLoop: 
    Next i 
End Sub 

Много лучше было бы просто проверить конкретную ошибку в конкретной строке кода:

Public Sub HandleError() 
    For i = 1 To 10 
     On Error Resume Next 
     ThrowError 
     If Err.Number = vbObjectError + 1000 Then Err.Clear 
     On Error GoTo 0 
     Debug.Print i 
    Next i 
End Sub