Sub Initialize
On Error Goto errhandler
exit sub
errhandler:
Msgbox "TextFile_Save 出错: " & Error$ & " on line " & Cstr(Erl)
Resume Next
End Sub
本文提供了一个使用VBA编写的简单错误处理子程序示例。该子程序通过On Error Goto语句来捕获并处理运行时可能出现的错误,并通过消息框显示错误详情及发生错误的代码行号。
Sub Initialize
On Error Goto errhandler
exit sub
errhandler:
Msgbox "TextFile_Save 出错: " & Error$ & " on line " & Cstr(Erl)
Resume Next
End Sub

被折叠的 条评论
为什么被折叠?