大家好，本来在这一讲要接着我们的上一讲内容讲解二师兄的成长过程之九，但之九的内容是错误的处理，为了大家能更好的掌握之九二师兄的成才内容，我们临时加入一讲专门讲解VBA中错误处理，这一讲中我重点讲一下VBA代码中的错误处理语句。对于VBA中的错误处理语句，最主要的是4个语句。

① On Error GoTo line

② On Error Resume Next

③ Resume line（NEXT）

④ 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 & _

"错误描述: " & Err.Description & vbCrLf & _

"错误来源: " & Err.Source, vbCritical

Resume ExitProcedure

End Sub

代码截图：

代码解析：

1 上述mynz过程在开始利用了On Error GoTo ErrHandler语句，代表在执行代码中发现了运行错误，就转跳到“ErrHandler”行后的语句，

2 “ErrHandler”是代表行的位置。

3 ErrHandler后的代码首先利用了MsgBox向你说明错误编号，错误描述，错误来源；

4 接下来执行Resume ExitProcedure，这句代码的意思翻译过来就是说：好了，错误处理已经结束，可以继续执行从ExitProcedure行开始执行代码了。

5 随后代码转跳到ExitProcedure行接着往下执行：

6 这个地方仍有一行错误处理语句：On Error Resume Next 它的含义是如果发现错误，直接忽略，往下执行（Next）。直到Exit Sub。

二 关于错误处理代码，除了刚刚介绍的那些意外，还有一个也很重要的代码

On Error GoTo 0

这句代码的意义是：使用这条语句后，后面的程序一旦有错误发生就会提示错误，并结束脚本执行，禁止当前过程中任何已启动的错误处理程序。我们来看下面的小测试代码：

Sub mynz_37_1()

x = 1

y = 0

On Error GoTo ErrHandler

MsgBox x / y

On Error GoTo 0

MsgBox x / y

MsgBox " 继续执行错误代码行的下一行代码 "

Exit Sub

ErrHandler:

MsgBox "除数不能为 0"

Resume Next

End Sub

代码截图：

代码解析：在上面的代码中，由于及时使用了 On Error Goto 0 语句，因此，在第 2 次错误发生时（即第 2 个 x/y ），系统将显示内置错误消息，而不是运行ErrHandler标签处的代码。我们看代码的运行结果：

总结:

1 在上述过程中可能导致错误的代码行的前面添加错误处理语句 On Error Goto ErrHandler ，其中的“ ErrHandler ”为自定义的错误标签名称。

　2 在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ，这样当遇到错误时，就不会跳转到指定的错误标签处，而是直接显示错误提示窗口，其中包括【调试】、【结束】等按钮。

　3 在过程的末尾（正常程序的末尾）添加代码行 Exit Sub ，这样可以避免程序未发生错误时执行错误处理程序。在代码行 Exit Sub 的下一行添加一个错误标签，该标签由名称和冒号组成，例如“ErrHandler: ”在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行，可以使用 Resume Next 语句。

　4可以在过程的末尾添加多个错误处理程序，但必须确保每个错误处理程序都以Resume Next 或 Exit Sub 语句结束，这样可以避免从当前错误程序之后继续执行其后的错误处理程序。

好了，有了上面的错误处理语句的基础，我们下一讲继续二师兄的成长系列之九，类代码中的错误处理方式。

今日内容回向：

1 一般的错误处理有几种语句？各是什么含义？

2 屏蔽掉错误处理语句是那一条语句？

在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！学习VBA是个过程，如太白诗云：众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。

“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，有一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。学习时微而无声，利用时则巨则汹涌。

VBA是利用Office实现自己小型办公自动化的有效手段，我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了五部VBA专门教程。

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；

第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。

第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习。

第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，可以对促进自己理论的提高。

学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。我的上述教程是我多的经验的传递，大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。

最后将一阙词送给致力于VBA学习的朋友：

浮云掠过，暗语无声，唯有清风，惊了梦中啼莺。

望星，疏移北斗，奈将往事雁同行。

阡陌人，昏灯明暗，忍顾长亭。

多少VBA人，暗夜中，悄声寻梦，盼却天明。

怎无凭！

分享成果，随喜正能量