気軽に楽しくプログラムと遊ぶ

自分が興味があってためになるかもって思う情報を提供しています。

VBA On Errorステートメント

エラーが発生するとエラーの発生した次の行から処理を続行

On Error Resume Next

Dim buf As String
On Error Resume Next
buf = Dir("A:\Dummy.dat")
If buf = "" Then
    MsgBox "ファイルがありません"   '表示されます
Else
    MsgBox "ファイルが存在します"
End If
Exit Sub

エラー処理ルーチンを無効にする

On Error Goto 0