Option Explicit Main Sub Main On Error Resume Next Err.Raise 1 ShowError End Sub Sub ShowError MsgBox _ "Number: " & Err.Number & vbNewLine & _ "Source: " & Err.Source & vbNewLine & _ "Description: " & Err.Description End Sub
戻る