如何在vba代码出错时捕捉到出错的行号？

作者：绿色风分类：时间：2022-08-17 浏览：95

楼主 kevinchengcw	Q: 如何在vba代码出错时捕捉到出错的行号？ A: 实现代码如下： Sub test() 1 On Error GoTo 10 2 Dim N&, I& 3 N = 2 4 I = 5 5 Debug.Print N + I 6 Debug.Print N / 0 '这里故意产生一个除数为零的错误 7 Debug.Print N * I 8 Debug.Print N / I 9 Exit Sub 10 Debug.Print "第 " & Erl & " 行代码出错，出错原因：" & Err.Description End Sub 运行代码,会在立即窗口看到第五行代码的正确结果和如下的出错提示: 第 6 行代码出错，出错原因：除数为零 basic类程序支持行号功能,除程序头尾外都可以加上行号标识,当出错时可以用Erl捕捉到出错的行号,从而提示用户出错位置. 注: 序号必须是数字,可以无序,但不能重复
2楼 xyf2210	学习了哦
3楼我是小马儿	MZTools3VBASetup 官方有这样一个插件，挻好用的。百度一下就找到了。加行号，及头和尾的出错信息处理模板等。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表