VBAでも例外処理がしたい。【VBA】

経緯

VBAでも例外処理(try.chatchみたいな)ことができないか、

今回勉強しました。

On Errorステートメントを使う

まず、プログラムを書きます。

Sub 例外処理()
    
    On Error GoTo ErrorHandler ' エラーハンドラーへのジャンプを設定

    If ans = vbYes Then
　　　msgbox "エラー出てません。"
    End If

    ' プログラムを正常に終了
    Exit Sub

ErrorHandler: ' エラーハンドリング部分
    MsgBox "エラーが発生しました。プログラムを終了します。"
    Set objOutlook = Nothing
    Exit Sub

End Sub

こんな感じです。

IF文でエラーが起きたら、ErrorHandlerの所まで飛ぶというコードです。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。