1Sub检测工作表是否存在()23DimWksNameAsString45OnErrorResumeNext67WksName = Worksheets("sx").Name89IfErr.Number <>0Then1011MsgBoxprompt:="此工作簿中未找到工作表 sx", Title:="错误"1213EndIf1415OnErrorGoTo01617End Sub 注意:当使用On Error Resume Next语句后,应该及时在可能导致错误的代码行之后使...
3、 For…To…Next语句 4、 For Each…Next语句 5、 Do…Loop语句 6、 GoTo、On…GoTo语句 7、 On Error错误控制语句 8、其他常用语句 1、If…Then…Else…End If语句 根据条件的值,可使用If…Then…Else…End If语句运行指定的语句或一个语句块。语句可根据需要嵌套多级,然而,为了程序可读性有时使用Select...
For Each...Next For...Next 函数 获取 GoSub...Return GoTo If...Then...Else Implements Input # Kill Let Line Input # 加载 Lock、Unlock LSet Mid MkDir 名称 On Error On...GoSub、On...GoTo 打开 Option Base 选项比较 Option Explicit ...
On Error Goto 0 当发生错误时,代码停止运行并显示错误。 On Error Goto -1 清除当前错误设置并恢复为默认值。 On Error Resume Next 忽略错误,代码继续运行。 On Error Goto [标签] 当发生错误时,跳转到指定的标签处执行。 Err对象 当发生错误时,存储错误...
On Error GoTo MyErr wksName = Worksheets("sx").Name MyErr: msg = " 错误 " & Err.Number & " : " & Err.Description MsgBox msg End Sub 注意:无论在导致问题的代码行前面使用On Error Resume Next语句还是“On Error Goto标签”语句,要想让程序重新获取其他错误信息,则都必须在导致问题的代码行后...
遇到错误时，如果没有On Error Goto 0，程序会直接跳转到错误标签，显示调试和结束选项。在宏或程序尾部， Exit Sub用于在无错误时终止错误处理，避免错误程序的执行。错误标签（如"MyErr:”）用于存放错误处理代码，可通过Resume Next返回错误代码行后继续执行。多个错误处理程序需以Resume Next或Exit Sub...
④ On Error GoTo 0 一一般的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 & _"错误...
(1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandler”为自定义的错误标签名称。 (2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮...
语句一：On Error GoTo 我们首先新建一个工作簿，打开VBE，插入模块，输入以下代码：Sub 删除工作表()On Error GoTo skipSheets("销售").DeleteExit Subskip:MsgBox "工作簿中无此工作表"End Sub 当出现错误时跳转到skip语句然后继续运行。语句二：On Error Resume Next 新建一个工作簿，其中一个工作表名称改为...