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