【Excel VBA】 Error Trapping 錯誤處理

'表示當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式，而繼續執行下去。
On Error Resume Next
Err.Clear




                    '放在有可能發生錯誤的後面
                    'Err.Raise 6
                    If (Err.Number <> 0) Then
                   
 
Msgbox "Error # " & Str(Err.Number) & " was generated by " & Err.Source & ControlChars.CrLf & Err.Description
                     
                    Err.Clear
                   
                    End If