前面内容已经很多次提到了错误处理，那在VBA中到底什么是错误处理呢？

在 VBA（Visual Basic for Applications）中，错误处理机制是用来管理程序运行时可能发生的错误，以防止程序崩溃并允许开发者以合适的方式响应这些错误。VBA 提供了几种处理错误的方法，包括使用 On Error 语句和 Err 对象。下面是一些基本的错误处理策略和示例：

1. 使用 On Error 语句

On Error 语句用于指定当错误发生时，程序应该如何响应。它主要有三种用法：

忽略错误：使用 On Error Resume Next，当错误发生时，程序会继续执行下一行代码，忽略当前的错误。
跳过错误：使用 On Error GoTo 0，恢复到默认的错误处理行为，即当错误发生时，程序将停止执行并显示错误消息。
跳转到错误处理代码：使用 On Error GoTo ErrorHandler，将错误处理代码的执行转移到指定的标签处

On Error GoTo [标签]

Sub Example() 
    On Error GoTo Error
    Handler Debug.Print 1 / 0 '触发除零错误
    Exit Sub 
ErrorHandler: 
    MsgBox "错误 " & Err.Number & ": " & Err.Description 
End Sub

错误发生时跳转到指定标签
必须配合 Exit Sub 避免正常流程进入错误处理块

On Error Resume Next

Sub ReadFile() 
    On Error Resume Next 
    Open "C:\test.txt" For Input As #1 
    If Err.Number = 53 Then '文件不存在 
        MsgBox "文件未找到，将创建新文件" 
        Err.Clear 
        Open "C:\test.txt" For Output As #1 
    End If 
    Close #1 
End Sub

忽略当前错误继续执行下一行
需立即检查 Err.Number 并处理

On Error GoTo 0

Sub ResetError() 
    On Error GoTo 0 '关闭错误处理 
    Debug.Print 1 / 0 '此时会显示运行时错误弹窗 
End Sub

恢复默认错误提示（中断模式）

2. 使用 Err 对象

Err 对象包含了有关最后一个错误的详细信息，如错误号和错误描述。通过检查 Err.Number，你可以确定是否发生了错误，并据此作出反应。

属性	说明	示例值
Number	错误代码（唯一标识）	6 (溢出错误)
Description	错误描述信息	"溢出"
Source	错误来源对象	"VBAProject"

示例：检查 Err.Number

Sub ExampleErrObject()
On Error GoTo ErrorHandler

Dim x As Integer
x = 10 / 0 ' 这将导致运行时错误 6 (除以零)
MsgBox "这不会显示"
Exit Sub

ErrorHandler:
If Err.Number <> 0 Then
MsgBox "发生错误: " & Err.Description & " (错误号: " & Err.Number & ")"
Err.Clear ' 清除错误信息，以便后续代码可以正常执行（如果需要）
End If
End Sub

一、从汽车仪表盘理解错误处理

汽车故障模型：

发动机灯亮 → 运行时错误（Error 13）
故障码存储 → Err对象记录错误信息
紧急预案 → On Error处理流程
维修日志 → 错误记录表

VBA诊断口诀：
"先预警，后处理，错误不崩溃，日志留痕迹"

二、错误处理三板斧

2.1 基础防护

On Error Resume Next  ' 临时跳过小故障
    Cells(100,1).Value = 1/0  ' 可能出错的操作
If Err.Number <> 0 Then      ' 检查故障码
    Debug.Print "错误码：" & Err.Number
    Err.Clear                ' 清除故障码
End If

2.2 集中管控系统

Sub 核心程序()
    On Error GoTo 故障处理
    ' 主程序代码...
    Exit Sub  ' 正常出口

故障处理:
    ' ① 记录故障快照
    Call 记录日志(Err.Number, Err.Description)
    
    ' ② 用户友好提示
    Select Case Err.Number
        Case 9: 提示 = "数据越界，请检查范围"
        Case 13: 提示 = "输入了无效字符"
        Case 1004: 提示 = "文件未找到"
        Case Else: 提示 = "系统异常，代码：" & Err.Number
    End Select
    MsgBox 提示, vbCritical
    
    ' ③ 安全退出
    Application.EnableEvents = False
    ThisWorkbook.Save
    Application.EnableEvents = True
End Sub

2.3 全局监控网络

' 类模块：clsErrorHandler
Public Sub 全局错误处理()
    With ThisWorkbook.Sheets("错误日志")
        .Cells(.Rows.Count,1).End(xlUp).Offset(1).Resize(1,4) = _
            Array(Now, Err.Number, Err.Description, Environ("USERNAME"))
    End With
    SendEmailAlert  ' 触发邮件警报
End Sub

三、核心错误类型处理

3.1 文件操作故障

Sub 打开文件()
    On Error Resume Next
    Workbooks.Open "D:\报表.xlsx"
    If Err.Number = 1004 Then
        MsgBox "文件路径错误，请检查文件是否存在", vbExclamation
        Exit Sub
    End If
End Sub

3.2 数据计算异常

Function 安全除法(分子 As Double, 分母 As Double) As Variant
    If 分母 = 0 Then
        安全除法 = "无穷大"
    Else
        安全除法 = 分子 / 分母
    End If
End Function

3.3 用户输入错误

Sub 验证输入()
    Dim 输入值 As Variant
    输入值 = InputBox("请输入数字：")
    If Not IsNumeric(输入值) Then
        MsgBox "输入内容必须为数字！", vbCritical
        Exit Sub
    End If
End Sub

四、错误处理等级制度

常见错误代码速查

错误号	描述	典型触发场景
6	溢出(Overflow)	超出变量存储范围
9	下标越界	访问不存在的数组元素
11	除零错误	分母为零的除法运算
13	类型不匹配	变量赋值类型冲突
1004	Excel 对象操作失败	Range/Worksheet 无效操作

错误处理等级制度

防护等级	代码示例	适用场景	推荐指数
基础防护	On Error Resume Next	简单脚本	★★☆☆☆
模块防护	On Error GoTo 标签	中型项目	★★★☆☆
全局防护	类模块实现错误接口	多模块系统	★★★★☆
终极防护	自动备份+日志+邮件通知	关键业务系统	★★★★★

五、实战案例

案例1：智能文件备份器

Sub 安全保存()
    On Error GoTo 保存失败
    ThisWorkbook.Save
    Exit Sub

保存失败:
    MsgBox "自动备份到桌面...", vbInformation
    ThisWorkbook.SaveCopyAs Environ("USERPROFILE") & "\Desktop\紧急备份.xlsm"
End Sub

案例2：数据清洗防护网

Sub 清洗数据()
    On Error GoTo 清洗异常
    Dim 数据组() As Variant
    数据组 = Range("A1:G10000").Value
    
    For i = 1 To UBound(数据组)
        数据组(i,5) = 数据组(i,3)/数据组(i,4)  ' 可能除零错误
    Next
    
清洗异常:
    If Err.Number <> 0 Then
        MsgBox "第" & i & "行数据异常，终止处理", vbCritical
        Exit Sub
    End If
End Sub

六、避坑指南：常见误区

误区1：错误处理嵌套混乱

' 错误示例：多重错误处理冲突
Sub 嵌套错误()
    On Error GoTo ERR1
    ' ...代码...
    On Error GoTo ERR2  ' 覆盖前一个处理
ERR1:
    ' ...处理...
ERR2:
    ' ...处理...
End Sub

' 正确方案：统一错误出口

误区2：忽略错误状态重置

' 错误示例：残留错误状态
Sub 残留错误()
    On Error Resume Next
    ' ...代码...
    ' 未清除错误状态
End Sub

' 正确方案：
If Err.Number <> 0 Then Err.Clear

七、调试实验室

7.1 错误模拟器
在立即窗口输入：

' 手动触发错误
Err.Raise 513  ' 模拟自定义错误
? "错误码：" & Err.Number & " 描述：" & Err.Description

7.2 错误追踪三步骤

在过程开始设置断点
添加监视表达式：Err.Number
本地窗口查看Err对象属性

小结：通过适当使用这些错误处理机制，你可以使你的 VBA 代码更加健壮和用户友好。选择合适的错误处理策略取决于你的具体需求和程序的复杂度。在生产环境中，通常建议尽可能具体地处理每个可能的错误情况，以避免隐藏潜在的问题。

通过合理使用错误处理机制，可使 VBA 程序具备：

更友好的用户提示
更可靠的事务处理
更完善的错误诊断能力
更稳定的长期运行表现

建议在关键业务逻辑中始终包含错误处理代码，特别是在涉及文件操作、外部数据交互等重要环节。

下章预告：《图表自动化》

四时宝库

程序员的知识宝库

Excel常用技能分享与探讨(5-宏与VBA简介 VBA之错误处理机制)