「VBA」Resume Nextで例外を無視するサンプル
書式
On Error Resume Nex
使用例
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