中怎么运行某一行代码_第37讲：VBA代码中运行错误的处理方式

你已选中了添加链接的内容蓝字关注，加微信NZ9668获资料信息

 VBA解决方案   系列丛书作者 

头条百家平台 VBA资深创作者

_______________________________

大家好，本来在这一讲要接着我们的上一讲内容讲解二师兄的成长过程之九，但之九的内容是错误的处理，为了大家能更好的掌握之九二师兄的成才内容，我们临时加入一讲专门讲解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过程在开始利用了OnError GoTo ErrHandler语句，代表在执行代码中发现了运行错误，就转跳到“ErrHandler”行后的语句，     2 “ErrHandler”是代表行的位置。   3   ErrHandler后的代码首先利用了MsgBox向你说明错误编号，错误描述，错误来源； 4  接下来执行ResumeExitProcedure，这句代码的意思翻译过来就是说：好了，错误处理已经结束，可以继续执行从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人，暗夜中，悄声寻梦，盼却天明。 怎无凭！    分享成果，随喜正能量

_____________________________ 

有启发 点在看，转给朋友  约作者 请留言，直接交流

更多关联阅读