「VBA」Resume Nextで例外を無視するサンプル

書式
On Error Resume Nex
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub testFunc()
On Error Resume Next
Workbooks.Open ("C:\testinfo.xlsx")
Exit Sub
Exception:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub
Sub testFunc() On Error Resume Next Workbooks.Open ("C:\testinfo.xlsx") Exit Sub Exception: MsgBox Err.Number & vbCrLf & Err.Description End Sub
Sub testFunc()
On Error Resume Next
    
    Workbooks.Open ("C:\testinfo.xlsx")

    Exit Sub
    
Exception:
    MsgBox Err.Number & vbCrLf & Err.Description
    
End Sub

 

Excel VBA

Posted by arkgame