Call Sub15 Exit Sub NotifyandCorrect: 'Send copy of faulty file, the error code and Sub that caused it 'Then stop macro execution completely End Sub Sub Sub1() On Error Exit Sub1 and raise current Error in MainSub(?) 'Perform data checks End Sub Sub Sub2() On Error ...
Exit Sub/Function(如果没有这条语句,即使没有错误也会执行错误处理语句) Err_Handle: 语句 xxxxxx 2、举例: Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On Error GoTo Err_Handle MsgBox Cells.Find(12).Address Exit Sub '如果没有这个退出过程语句,会一直执行下去 Err_Handle: MsgBox ("不存...
On Error GoTo error_handle3 Debug.Print 1 / 0 Exit Sub error_handle3: Debug.Print "error_handle3:"; "Err.Number:"; Err.Number Debug.Print "error_handle3:"; "Err.Description:"; Err.Description End Sub 过程8运行结果: 过程9运行结果: 这种区别是由vba的错误监听机制导致的,在vba中,如果连...
VBA中错误捕捉的方法主要有两种 第一种捕捉方法：1、语法：On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码 语句xxxxx Exit Sub/Function（如果没有这条语句，即使没有错误也会执行错误处理语句）Err_Handle: 语句 xxxxxx 2、举例：Sub 查找数字() ’本段代码查找电子表格中有没有...
Exit Sub MyErr: MsgBox " 第 1 次:除数不能为 0" Resume Next End Sub 下面的代码虽然未使用On Error Goto 0语句,但是在第2个错误发生前,添加了第2个错误标签,因此,两个错误处理程序分别处理各自的错误。 Sub ErrTest2() Dim x As Integer, y As Integer, z As Single ...
在Word 、 Excel 乃至其他支持 VBA 的 Office 组件中,在代码中处理错误的方式通常都是使用“On Error Goto错误标签”语句,然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总结了创建错误处理程序的步骤: (1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandle...
VBA的异常处理机制通过On Error Goto语句实现。首先，当可能产生错误的代码行前添加On Error Goto ErrHandler，设置自定义错误标签。遇到错误时，如果没有On Error Goto 0，程序会直接跳转到错误标签，显示调试和结束选项。在宏或程序尾部， Exit Sub用于在无错误时终止错误处理，避免错误程序的执行。错误...
一一般的VBA错误处理语句 为了说明上面的几个语句，我们简单的写几行代码，如下：Sub mynz_37()On Error GoTo ErrHandler k = 1 / 0 ExitProcedure:On Error Resume Next k = 1 / 0 + 1 MsgBox k Exit Sub ErrHandler:MsgBox "错误代码: " & Err.Number & vbCrLf & _"错误描述: " & Err....
```vba Sub Example() On Error GoTo ErrorHandler '代码段 '可能会发生错误的代码 Exit Sub ErrorHandler: '错误处理代码 '显示错误消息、记录错误等操作 End Sub ``` 在上面的示例中,当发生错误时,代码会跳转到标签"ErrorHandler"所在的位置执行错误处理代码。您可以根据实际需求在错误处理代码中添加适当的操作...