1.On Error GoTo 0 代码停止运行在出现错误的行并显示错误消息。 2.On Error GoTo [标签] 当错误发生时,代码移至指定的行或标签处,不会显示错误消息。 3.On Error GoTo -1 清除当前错误。 4.On Error Resume Next 当错误发生时,代码移至下一...
注意:当使用On Error Resume Next语句后,应该及时在可能导致错误的代码行之后使用On Error Goto 0语句恢复错误的捕获,即恢复到错误检查的正常状态,以便可以获悉其他任何可能发生的错误。另外,如果使用On Error Resume Next语句忽略了无法忽略的错误,将会立刻结束当前运行的过程。而更糟糕的是,如果宏1调用宏2,但宏2...
On Error GoTo 0 語句會關閉錯誤捕捉。 接著會使用 On Error Resume Next 語句來延遲錯誤捕捉,讓下一個語句所產生之錯誤的內容可以是特定的。 請注意,處理錯誤之後,會使用 Err.Clear 來清除 Err 物件的屬性。 VB 複製 Sub OnErrorStatementDemo() On Error GoTo ErrorHandler ' Enable error-handling routine...
1.On Error GoTo 0 代码停止运行在出现错误的行并显示错误消息。 2.On Error GoTo [标签] 当错误发生时,代码移至指定的行或标签处,不会显示错误消息。 3.On Error GoTo -1 清除当前错误。 4.On Error Resume Next 当错误发生时,代码移至下一行继续执行,不会显示错误消息。 On Error GoTo 0 这是VBA默认...
语句一：On Error GoTo 我们首先新建一个工作簿，打开VBE，插入模块，输入以下代码：Sub 删除工作表()On Error GoTo skipSheets("销售").DeleteExit Subskip:MsgBox "工作簿中无此工作表"End Sub 当出现错误时跳转到skip语句然后继续运行。语句二：On Error Resume Next 新建一个工作簿，其中一个工作表名称改为...
Resume 是清除Err对象并重新转到指定的标签 或下一句 (Next) Goto 是不清除Err对象转到指定的标签 一、Resume语句与Goto语句相同点: 两者都将执行转移到指定的的标签,如后面示例中的Cleanup标签 二、Resume语句与Goto语句区别(不同点): 1. 使用Goto不会清除Err对象(如果想清除,你必须显式使用Err.Clear ,并且它...
Sub 检测工作表是否存在() Dim WksName As String On Error Resume Next WksName = Worksheets("sx").Name If Err.Number <> 0 Then MsgBox prompt:=" 此工作簿中未找到工作表 sx", Title:=" 错误 " End If On Error GoTo 0 End Sub 注意:当使用 On Error Resume Next 语句后,应该及时在可能导致...
在使用On Error Resume Next时，务必在可能出错的代码后使用On Error Goto 0，以保持错误检查的正常状态。忽视无法处理的错误可能导致程序意外结束，特别是当一个宏调用另一个宏时，这可能导致不可预知的错误。因此，正确处理错误是编写稳定VBA代码的关键。总结来说，On Error Goto是VBA中处理异常的关键...
On Error GoTo 1 Call test2 Call test3 Call test4 Exit Sub 1: MsgBox "test" End Sub Sub test2() On Error Resume Next Dim sht As Worksheet Set sht = Worksheets(20) MsgBox sht.Name Exit Sub 2: MsgBox "test2" End Sub Sub test3() ...