VBA关闭工作簿，但以前打开的工作簿除外

Sub CloseOtherWorkbooks()
    Dim wb As Workbook
    Dim currentWorkbookName As String
    
    ' 获取当前工作簿的名称
    currentWorkbookName = ThisWorkbook.Name
    
    ' 遍历所有打开的工作簿
    For Each wb In Workbooks
        ' 如果工作簿不是当前工作簿，则关闭它
        If wb.Name <> currentWorkbookName Then
            wb.Close SaveChanges:=False ' 不保存更改关闭工作簿
        End If
    Next wb
End Sub

Sub CloseOtherWorkbooks()
    On Error Resume Next ' 忽略错误，继续执行
    Dim wb As Workbook
    Dim currentWorkbookName As String
    
    currentWorkbookName = ThisWorkbook.Name
    
    For Each wb In Workbooks
        If wb.Name <> currentWorkbookName Then
            wb.Close SaveChanges:=False
        End If
    Next wb
End Sub