読者です 読者をやめる 読者になる 読者になる

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

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

VBA On Errorステートメント

Excel

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

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