VBA小程序--异常捕获（类似Try）异常处理，报错机制

最新推荐文章于 2025-11-19 12:17:58 发布

原创最新推荐文章于 2025-11-19 12:17:58 发布 · 3.5k 阅读

3 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文深入探讨了VBA中异常处理的使用方法，通过具体示例解释了如何利用OnErrorGoTo指令进行错误捕获，以及如何区分主程序与子程序中的错误处理流程。文章还介绍了如何在遇到异常时创建新的工作表作为应对策略。

Sub name_err1()
    '因为异常捕获是子程序，所以不会影响主程序的报错机制，所以 "On Error GoTo 0" 加不加这句话都会正常报错,而不会跳转到子程序的异常陷阱之中...
    On Error GoTo ERR_1 '异常陷阱，异常捕获
    Worksheets("工作表目录").Activate   '这里可以变更为自己需要的程序语句
    Exit Sub    '没有遇到异常，则退出子程序，请勿携程End Sub，不然会报错："标签未定义"
ERR_1:  '如果执行错误，则新建工作表
    Worksheets.Add.name = "工作表目录"  '这里可以变更为自己需要的程序语句
End Sub