VBA统计Workbooks数量及打开新工作簿时关闭指定Excel文件问题

嘿，我来帮你搞定这两个VBA相关的问题：

要实现这个需求很直接，用Workbooks.Count就能获取当前打开的工作簿总数，然后调用Application.Quit关闭整个Excel程序就行。不过要注意未保存的工作簿会弹出提示，你可以根据需求加保存逻辑，或者屏蔽提示（谨慎使用，避免丢失未保存的数据）。

给你写个示例代码：

Sub CloseExcelIfMultiWorkbooks()
    ' 检查当前打开的工作簿数量
    If Workbooks.Count > 1 Then
        ' 可选：先保存所有未保存的工作簿（按需启用）
        ' Dim wb As Workbook
        ' For Each wb In Workbooks
        '     If Not wb.Saved Then wb.Save
        ' Next wb
        
        ' 关闭Excel程序
        Application.Quit
    End If
End Sub

如果你想让这段代码自动运行（比如打开工作簿时就检查），可以把逻辑放到ThisWorkbook的Workbook_Open事件里。

先说说你之前代码的问题：
你写的If Workbooks.count > 1 Then Application.Visible = False End If有两个坑：

1. 这段代码没有触发机制——普通模块里的代码不会自动运行，得绑定到事件上才会生效；
2. Application.Visible = False会把整个Excel界面隐藏，你按Ctrl+N新建的工作簿其实已经创建了，但你看不到，所以误以为没反应。

要实现“打开新工作簿时关闭特定文件”，咱们得用Application级别的事件监控，步骤如下：

步骤1：创建类模块监控事件 #

1. 打开VBA编辑器（Alt+F11），右键点击你的工作簿 -> 插入 -> 类模块；
2. 把类模块的名字改成clsAppEvents（在属性窗口里修改，默认是Class1）；
3. 把下面的代码粘贴到类模块里：

Public WithEvents appExcel As Application

Private Sub appExcel_WorkbookOpen(ByVal Wb As Workbook)
    ' 当任何新工作簿打开（包括Ctrl+N新建的）时触发
    Dim targetWB As Workbook
    ' 替换成你要关闭的目标文件名（带后缀，比如"我的特定文件.xlsx"）
    Const TargetFileName As String = "特定文件.xlsx"
    
    ' 查找目标工作簿
    On Error Resume Next ' 防止文件不存在时报错
    Set targetWB = Workbooks(TargetFileName)
    On Error GoTo 0
    
    ' 如果找到就关闭，SaveChanges按需设置True/False
    If Not targetWB Is Nothing Then
        targetWB.Close SaveChanges:=False
    End If
End Sub

步骤2：初始化事件监控 #

1. 找到ThisWorkbook模块（在VBA编辑器的工程窗口里）；
2. 粘贴下面的代码：

Dim appEvents As clsAppEvents

Private Sub Workbook_Open()
    ' 打开工作簿时初始化事件监控
    Set appEvents = New clsAppEvents
    Set appEvents.appExcel = Application
    MsgBox "已启用监控：打开新工作簿时将自动关闭特定文件", vbInformation
End Sub

这样设置之后，每次你打开这个工作簿，它就会自动监控新工作簿的打开动作——不管是通过Ctrl+N新建，还是打开其他Excel文件，只要目标文件存在，就会自动关闭它。

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