VBA - 모든 오류를 포착하고 설명을 반환합니다. 가능한가?

Question

질문은 다음과 같습니다. 여러 줄의 코드에 오류가있을 수 있습니까? on error resume next을 사용하고 마지막에는 모든 오류에 대한 설명을 반환합니다. 다음과 같은 내용 :

Public Sub CatchErrors() 

    On Error Resume Next 

    Err.Raise 1009, Description:="Custom Error 01" 
    Err.Raise 1010, Description:="Custom Error 02" 
    Err.Raise 1011, Description:="Custom Error 03" 

    Debug.Print Err.Description 

    On Error GoTo 0 

End Sub 

나는 마지막 설명뿐만 아니라 모든 설명을 원합니다. 어떤 생각을하는 방법?

Answer 1

어쩌면 이렇게 될까요?

Option Explicit 

Public Sub CatchErrors() 
    Dim errStrng As String 

    On Error GoTo ErrHandler 

    Err.Raise 1009, Description:="Custom Error 01" 
    Err.Raise 1010, Description:="Custom Error 02" 
    Err.Raise 1011, Description:="Custom Error 03" 

    On Error GoTo 0 

    Debug.Print errStrng 
    Exit Sub 

ErrHandler: 
    errStrng = errStrng & Err.Description & vbCrLf 
    Resume Next 
End Sub