VBA - 关闭除特定工作簿以外的所有工作簿

Question

我在任何地方都找不到任何解决方案。有很多资源可以帮助您关闭除活动工作簿之外的所有工作簿，但我需要特定工作簿才能保持打开状态。

例如，如果有 10 个工作簿打开，我需要关闭其中 7 个并保持其中 3 个处于打开状态..

我找到的最接近的解决方案在这里：

https://www.ozgrid.com/forum/forum/help-forums/excel-general/73743-close-all-open-workbooks-except

Dim wb As Workbook
For Each wb In Workbooks
    Select Case Ucase(wb.name)
        Case "BOOK1.XLS", "BOOK2.XLS", Ucase(ThisWorkbook.name)
            'Code, if any
        Case Else
            wb.Close SaveChanges:=True
    End Select
Next wb

但这不起作用。它关闭了 Book2，只有 Book1 保持打开状态。

据我所知，Book1 和 Book2 都应该保持打开状态..

当我在即时窗口中调试和使用 Debug.Print 时，我得到了这个：

Book1.xlsx

Book2.xlsx

Book3.xlsx

它基本上只是打印出 3 个打开的工作簿名称。

Answer 1

我试过了，它对我有用。 您可以调整变量“wbStayOpenx”：

Dim wbStayOpen1 As String
Dim wbStayOpen2 As String
Dim currentwb As String

wbStayOpen1 = "BOOK1.XLS"
wbStayOpen2 = "BOOK2.XLS"
currentwb = ThisWorkbook.Name


Dim wb As Workbook
For Each wb In Workbooks

    If wb.Name <> wbStayOpen1 And wb.Name <> wbStayOpen2 And wb.Name <> currentwb Then
    wb.Close SaveChanges:=True
    End If

Next wb