添加一些基本的错误捕获。如果您的代码还没有包含它,那么您真的需要阅读它。任何没有错误捕获的代码都是写得很糟糕的代码。
首先,使用这样的 shell 并适当地修改它:
Sub|Function SomeName()
On Error GoTo Err_SomeName ' Initialize error handling.
' Code to do something here.
Exit_SomeName: ' Label to resume after error.
Exit Sub|Function ' Exit before error handler.
Err_SomeName: ' Label to jump to on error.
MsgBox Err.Number & Err.Description ' Place error handling here.
Resume Exit_SomeName ' Pick up again and quit.
End Sub|Function
如果遇到错误,它将跳转到 Err_SomeName: 行,然后显示一个带有错误编号和描述的消息框。然后它将退出子/功能。你真正想做的不仅仅是弹出一个消息框,而是做一些真正解决问题的事情。这就是错误处理的全部内容,确保您的程序完全按照预期的方式运行至关重要。