如何修改VBA代码仅关闭已打开的指定Excel工作簿？

核心思路是先检查目标工作簿是否处于打开状态，仅对已打开的文件执行关闭操作，避免因引用未打开的工作簿触发错误。

修改后代码 #

' 辅助函数：判断指定名称的工作簿是否已打开
Function IsWorkbookOpen(wbName As String) As Boolean
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name = wbName Then
            IsWorkbookOpen = True
            Exit Function
        End If
    Next wb
    IsWorkbookOpen = False
End Function

Sub ProcessDailyReports()
    ' 逐一检查并关闭已打开的报表
    If IsWorkbookOpen("VLCC Form BRS.xlsx") Then
        Workbooks("VLCC Form BRS.xlsx").Close SaveChanges:=False
    End If
    
    If IsWorkbookOpen("VLCC Form Clarkson.xlsx") Then
        Workbooks("VLCC Form Clarkson.xlsx").Close SaveChanges:=False
    End If
    
    If IsWorkbookOpen("VLCC Form Galbraiths.xlsx") Then
        Workbooks("VLCC Form Galbraiths.xlsx").Close SaveChanges:=False
    End If
    
    If IsWorkbookOpen("VLCC Form Gibsons.xlsx") Then
        Workbooks("VLCC Form Gibsons.xlsx").Close SaveChanges:=False ' 显式设置避免弹窗
    End If
    
    ' 处理主报表的保存与关闭（注意补充完整SaveAs路径）
    If IsWorkbookOpen("Report VLCC.xlsx") Then
        Dim finalFileName As String
        finalFileName = "Report VLCC - " & Format(Now(), "DD.MM.YY") & ".xlsx"
        Workbooks("Report VLCC.xlsx").SaveAs "https://完整存储路径/" & finalFileName ' 替换为有效URL
        Workbooks(finalFileName).Save
        Workbooks(finalFileName).Close
    End If
End Sub

关键说明 #

• 辅助函数IsWorkbookOpen遍历所有打开的工作簿，通过名称匹配判断文件是否存在，从根源避免引用错误
• 所有关闭、保存操作都增加前置判断，仅对已打开的工作簿执行
• 原代码中未指定SaveChanges的关闭语句，建议显式设置为False或True，防止弹出保存提示中断流程
• SaveAs的URL路径需补充完整，原代码中"https://X"为不完整路径，需替换为有效的存储地址

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