错误模块名称: kernelbase.dll_EXCEL表格VBA常用语句（错误转移语句）

有时候，在代码运行中，会因为某些原因造成错误而导致程序运行中断，而我们希望能够忽略错误，跳转到指定的语句进行。

这种语句我们可以称之为错误转移语句，下面介绍两种错误转移语句。

一、On Error GoTo

语法：

On Error Go To 指定位置的代码

代码

Exit Sub

指定位置的代码

举例：

新建一个工作簿，打开VBE，插入模块，输入以下代码，运行

Sub 删除工作表()

On Error GoTo skip

Sheets("销售").Delete

Exit Sub

skip:

MsgBox "工作簿中无此工作表"

End Sub

当出现错误时转到skip语句去运行。

二、On Error Resume Next

语法：

On Error Resume Next

如果出现错误的结果则跳过该句，直接执行下一句。

举例：

新建一个工作簿，其中一个工作表名称改为销售，打开VBE，插入模块，输入以下代码，运行。

大家可以看到，工作簿中并没有业绩表，运行代码时也未提醒错误，直接转到下一条语句删除销售工作表。

转自：米宏Office