求助：VBA中Workbooks.Close执行报错（错误代码9）问题

嘿，我来帮你搞定这个错误代码9（下标越界）的问题～ 这个错误本质就是VBA在当前Excel会话里找不到你指定名称的工作簿，咱们一步步排查解决：

首先搞懂错误根源 #

错误代码9（下标越界） 意味着你写的Workbooks("workbookname.XLSM")在当前打开的工作簿列表里不存在，可能是名称不对、文件没打开，或者同名文件搞混了。

排查与解决方案 #

1. 确认工作簿的正确名称 #

Windows下文件名不区分大小写，但Excel如果设置了隐藏已知文件类型的扩展名，打开的工作簿在标题栏显示的名称是不带.XLSM的！这时候你用带扩展名的名称引用就会找不到。

你可以先运行这段代码，列出当前所有打开的工作簿名称（打开立即窗口Ctrl+G就能看到输出）：

Sub ListOpenWorkbooks()
    Dim wb As Workbook
    For Each wb In Workbooks
        Debug.Print wb.Name
    Next wb
End Sub

比如输出是workbookname而不是workbookname.XLSM，那你的代码就要改成Workbooks("workbookname").Close。

2. 用稳健的代码避免报错 #

直接硬写名称很容易出错，不如先检查工作簿是否存在，再执行关闭操作：

Private Sub Command1_Click()
    Dim targetWB As Workbook
    ' 暂时忽略错误，避免找不到时直接报错
    On Error Resume Next
    Set targetWB = Workbooks("workbookname.XLSM")
    ' 恢复正常错误处理
    On Error GoTo 0
    
    If Not targetWB Is Nothing Then
        ' 找到目标工作簿，关闭且不保存
        targetWB.Close SaveChanges:=False
        MsgBox "目标工作簿已成功关闭"
    Else
        ' 没找到，说明已经是关闭状态
        MsgBox "目标工作簿未打开，无需操作"
    End If
End Sub

3. 结合桌面路径验证，避免同名文件 #

如果怕有其他同名工作簿被误关，可以结合桌面路径来验证：

Private Sub Command1_Click()
    Dim desktopPath As String
    Dim targetWB As Workbook
    Dim fullTargetPath As String
    
    ' 获取当前用户的桌面路径
    desktopPath = Environ("USERPROFILE") & "\Desktop\"
    fullTargetPath = desktopPath & "workbookname.XLSM"
    
    On Error Resume Next
    Set targetWB = Workbooks("workbookname.XLSM")
    On Error GoTo 0
    
    If Not targetWB Is Nothing Then
        ' 检查工作簿的完整路径是否匹配桌面的文件
        If UCase(targetWB.FullName) = UCase(fullTargetPath) Then
            targetWB.Close SaveChanges:=False
            MsgBox "桌面的目标工作簿已关闭"
        Else
            MsgBox "找到同名工作簿，但不是桌面的那个，未执行关闭"
        End If
    Else
        MsgBox "桌面的目标工作簿未打开"
    End If
End Sub

额外检查点 #

• 打开文件夹选项，取消勾选「隐藏已知文件类型的扩展名」，这样你能清楚看到文件的完整名称，避免引用错误。
• 确认目标工作簿确实在当前Excel会话中打开（不是其他独立的Excel进程），VBA只能操作当前进程里的工作簿。

内容的提问来源于stack exchange，提问作者Drac