On Error Exit Sub语句的具体行为: 实际上,VBA中并没有直接名为On Error Exit Sub的语句。通常,我们会使用On Error GoTo语句配合一个错误处理标签,然后在错误处理代码中使用Exit Sub来退出子程序。 当程序遇到错误时,On Error GoTo会跳转到指定的错误处理标签处,执行该标签下的代码。在错误处理代码中,使用Exit...
On Error GoTo errH '产生"类型不匹配"错误 Error (13) Done: Exit Sub errH: '清除错误 On Error GoTo -1 On Error GoTo errH_Two '产生"应用程序定义"错误 Error (1034) Exit Sub errH_Two: MsgBox "发生另一错误: "& Err.Description End Sub 运行上述代码后的结果如下图8所示。 图8 On Erro...
2 在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ，这样当遇到错误时，就不会跳转到指定的错误标签处，而是直接显示错误提示窗口，其中包括【调试】、【结束】等按钮。3 在过程的末尾（正常程序的末尾）添加代码行 Exit Sub ，这样可以避免程序未发生错误时执行错误处理程序。在代码行 Ex...
「已啟用」錯誤處理程式是由 On Error 語句開啟的錯誤處理程式;「作用中」錯誤處理程式是正在處理錯誤的已啟用處理程式。 如果在錯誤處理程式作用中時發生錯誤, (發生錯誤與 Resume、Exit Sub、Exit 函數或Exit 屬性語句) 之間,則目前程式的錯誤處理程式無法處理錯誤。 控件會回到呼叫程式。 如果呼叫程式已啟用錯誤處...
On Error GoTo [label]:当程序遇到错误时,跳转到指定的标签处执行相应的错误处理代码。 下面是一个示例代码,演示了如何在Sub外部处理Excel VBA中的错误: 代码语言:txt 复制 Sub HandleError() On Error GoTo ErrorHandler ' 执行可能会出错的代码 ' ... Exit Sub ' 如果没有错误,直接退出Sub ErrorHandler: ...
Sub GotoLabel() Dim x As Long Dim y As Long On Error GoTo errH x = 6 y = 6 / 0 x = 7 Done: Exit Sub errH: MsgBox "发生了错误: "& Err.Description EndSub 运行代码的结果如下图5所示。 图5 运行上述VBA代码,代码执行到以...
On Error Exit Sub One of the best things about the “Exit Sub” you can use it to exit the procedure when an error occurs. Below is the code that divides a number with a zero that returns a “Run-time error ‘11’ “ and stops the execution. ...
Exit Sub End If 这样以明确的方式告知用户当前所产生的错误,并且结束当前的代码执行。 不需要再让用户做二选一的选择。 但是需要注意的是On error resume next也不要滥用。 在调用另一个过程时,On ErrorResume Next语句成为非活动的,所以,如果希望在例程中进行嵌入错...
VBA的程序终止、退出语句块、分支及错误处理(End, exit, on error go to) 、定时循环执行 代码1: 程序终止及退出方法 1 Option Explicit 2 3 '一、END语句 4 5 '作用:强制退出所有正在运行的程序。 6 7 '二、Exit语句 8 9 '退出指定的语句 10 11 '1、Exit Sub 12 Sub e1() 13 Dim x As ...
VBA的 程序终止、退出语句块、分支及错误处理( End,exit,onerrorgotoinVBA 代码1: 程序终止及退出方法 1 Option Explicit 2 3 '一、END语句 4 5 '作用:强制退出所有正在运行的程序。 6 7 '二、Exit语句 8 9 '退出指定的语句 10 11 '1、Exit Sub 12 Sub e1() 13 Dim x As Integer 14 For x = ...