VBA 错误处理.docx

在Word、Excel乃至其他支持VBA的Office组件中,在代码中处理错误的方式通常都是使用“oto错误标签”语句,然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总结了创建错误处理程序的步骤:(1)otoErrHandler,其中的“ErrHandler”为自定义的错误标签名称。(2)oto0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。(3)在宏的末尾(正常程序的末尾)添加代码行ExitSub,这样可以避免程序未发生错误时执行错误处理程序。(4)在代码行ExitSub的下一行添加一个错误标签,该标签由名称和冒号组成,例如“MyErr:”。(5)在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行,可以使用ResumeNext语句。注意:可以在过程的末尾添加多个错误处理程序,但必须确保每个错误处理程序都以ResumeNext或ExitSub语句结束,这样可以避免从当前错误程序之后继续执行其后的错误处理程序。举一个简单的例子可能会更直观地反映出上面所说的内容。在下面的代码中,当检测到工作簿中没有指定的工作表时,将出现错误,并执行错误代码,显示一个包含错误号与错误描述的对话框。Sub检测工作表是否存在()DimwksnameAsString,oToMyErrwksName=Worksheets("sx").NameMyErr:msg="错误"&&":"&:无论在导致问题的代码行前面使用OnErrorResumeNext语句还是“oto标签”语句,要想让程序重新获取其他错误信息,oto0语句恢复正常的错误捕获状态。否则当前的错误处理程序将对后面的所有错误都起作用。例如,oto0语句,因此,在后面遇到错误时(两次x/y),都会转到标签MyErr处执行错误处理程序。SubErrTest()DimxAsInteger,yAsInteger,zAsSinglex=1y=oToMyErrMsgBoxx/yMsgBoxx/yMsgBox"继续执行错误代码行的下一行代码"ExitSubMyErr:MsgBox"第1次:除数不能为0"oto0语句,因此,在第2次错误发生时(即第2个x/y),系统将显示内置错误消息,而不是运行MyErr标签处的代码。SubErrTest()DimxAsInteger,yAsInteger,zAsSinglex=1y=oToMyErrMsgBoxx/oTo0MsgBoxx/yMsgBox"继续执行错误代码行的下一行代码"ExitSubMyErr:MsgBox"第1次:除数不能为0"oto0语句,但是在第2个错误发生前,添加了第2个错误标签,因此,两个错误处理程序分别处理各自的错误。SubErrTest()DimxAsInteger,yAsInteger,z