VBA 错误处理：On Error Resume Next

On Error Resume Next 是 VBA 编程中用于忽略错误并继续执行下一行代码的关键语句。它常用于处理可能失败的特定操作（如删除不存在的对象或访问可能关闭的文件），而不会导致整个程序崩溃。

基本原理与语法

在默认情况下，VBA 遇到错误会弹出对话框并停止运行。On Error Resume Next 告诉 VBA：如果这一行出错了，不要管它，直接执行下一行。

基本代码结构如下：

Sub BasicErrorHandling()
    ' 开启错误忽略模式
    On Error Resume Next

    ' 这里的代码如果出错，会被跳过，不会弹出报错
    Workbooks("不存在的文件.xlsx").Close

    ' 关闭错误忽略模式（恢复默认报错机制）
    On Error GoTo 0
End Sub

实操步骤：安全删除工作表

以下步骤演示如何使用该语句安全地删除一个“可能存在也可能不存在”的工作表，而不会报错。

1. 打开 Excel，按下 Alt + F11 打开 VBA 编辑器。
2. 点击 Insert 菜单，选择 Module 插入一个新模块。
3. 输入 以下代码到模块中：

Sub SafeDeleteSheet()
    Dim ws As Worksheet

    ' 开启错误忽略
    On Error Resume Next

    ' 尝试设置变量指向名为 "DataTemp" 的工作表
    ' 如果工作表不存在，这行代码会报错，但因为开启了 Resume Next，程序会跳过不报错
    Set ws = ThisWorkbook.Sheets("DataTemp")

    ' 关闭错误忽略，为了防止后续的代码错误被掩盖
    On Error GoTo 0

    ' 检查 ws 是否被成功赋值
    ' 如果 ws 不是 Nothing，说明找到了工作表
    If Not ws Is Nothing Then
        ' 删除工作表（这里可能会弹出确认对话框，取决于Excel设置）
        Application.DisplayAlerts = False
        ws.Delete
        Application.DisplayAlerts = True
    End If
End Sub

4. 按下 F5 运行 代码。
5. 观察 结果：无论工作簿中是否存在 DataTemp，程序都会平静地结束，不会弹出“下标越界”的错误提示。

进阶用法：捕获错误信息

仅仅忽略错误是不够的，通常我们需要知道错误是否发生了，并根据情况做处理。这需要结合 Err 对象。

1. 理解 Err 对象：当错误发生时，VBA 会把错误信息存放在 Err 对象中。
2. 使用 Err.Number 判断是否出错：如果 Err.Number 为 0，表示没有错误；如果不为 0，表示发生了错误。

以下是逻辑流程图，展示程序如何判断并处理错误：

代码示例：尝试打开文件并处理失败

这个例子尝试打开一个文件，如果失败（文件不存在或被占用），则记录原因。

1. 复制 以下代码到 VBA 编辑器中：

Sub TryOpenFile()
    Dim wb As Workbook
    Dim filePath As String

    filePath = "C:\Reports\2023_Sales.xlsx" ' 假设这是一个可能不存在的路径

    ' 1. 开启错误忽略
    On Error Resume Next

    ' 2. 尝试打开文件
    Set wb = Workbooks.Open(filePath)

    ' 3. 检查是否出错
    If Err.Number <> 0 Then
        ' 如果 Err.Number 不为 0，说明 Workbooks.Open 失败了
        MsgBox "无法打开文件！错误原因: " & Err.Description

        ' 4. 清除错误对象，防止影响后续判断
        Err.Clear
    Else
        ' 如果没有出错，说明文件打开了
        MsgBox "文件打开成功！"
        ' 这里可以写对文件的操作...
        wb.Close SaveChanges:=False ' 演示用，随即关闭
    End If

    ' 5. 恢复系统默认的错误处理机制
    On Error GoTo 0
End Sub

2. 修改 filePath 变量为你电脑上不存在的文件路径。
3. 运行 代码，查看 弹出的提示框，它会显示具体的错误描述而不是让程序崩溃。

常见陷阱与最佳实践

在使用 On Error Resume Next 时，最危险的错误是忘记关闭它。一旦开启，它会一直生效，直到代码结束或遇到 On Error GoTo 0。这会导致后续的真正逻辑错误被掩盖，极难调试。

下表总结了不同场景下的最佳实践策略。

速查命令清单

完整实战模板

这是一个可直接套用的标准模板，用于处理可能出错的代码块：

Sub StandardTemplate()
    ' --- 第一步：初始化 ---
    On Error Resume Next

    ' --- 第二步：执行风险操作 ---
    ' 在这里写可能出错的代码
    ' 例如：ActiveSheet.Range("A1").Value = 1 / 0

    ' --- 第三步：错误检查 ---
    If Err.Number <> 0 Then
        ' 这里写出错后的处理逻辑
        Debug.Print "发生错误: " & Err.Description
        Err.Clear ' 记得清除错误
    End If

    ' --- 第四步：恢复系统 ---
    On Error GoTo 0

    ' --- 后续代码（这里如果出错，会正常弹窗） ---

End Sub