「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

 

Excel VBA

Posted by arkgame