如何用VBS关闭所有已打开的Excel工作簿？

你的核心问题在于：原代码里CreateObject("Excel.Application")是新建一个Excel实例，而非获取系统中已经运行的Excel进程，所以调用.Quit只会关闭这个刚创建的空实例，对之前打开的工作簿完全无效。而宏里的.Quit是在当前Excel实例中执行，所以能关闭自身及所有工作簿。

要关闭所有已打开的Excel实例，需要通过GetObject获取系统中所有运行的Excel进程，逐个处理：

解决步骤及代码示例 #

• 遍历系统中所有Excel实例
• 关闭每个实例下的所有工作簿（可选择是否保存）
• 退出Excel实例

修正后的VBS代码：

' 关闭所有已运行的Excel实例
On Error Resume Next ' 防止遍历过程中出现错误中断
Dim ExcelApp, wb
' 循环获取所有Excel实例
Do
    Set ExcelApp = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then Exit Do ' 没有更多实例时退出循环
    
    ExcelApp.DisplayAlerts = False ' 关闭保存提示，直接放弃未保存更改
    ' 关闭当前实例下的所有工作簿
    For Each wb In ExcelApp.Workbooks
        wb.Close SaveChanges:=False ' 根据需求改为True可保存未更改内容
    Next
    ExcelApp.Quit ' 退出该Excel实例
    Err.Clear ' 清除错误，继续下一次循环
Loop
On Error GoTo 0 ' 恢复默认错误处理

' 重新打开目标文件
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
ExcelApp.DisplayAlerts = False
ExcelFilePath = "C:\Users\user\Documents\test.xlsm"
Set wb = ExcelApp.Workbooks.Open(ExcelFilePath)

关键说明 #

• GetObject(, "Excel.Application")：每次调用会返回系统中一个正在运行的Excel实例，直到没有剩余实例时触发错误。
• On Error Resume Next：用于捕获“无剩余Excel实例”的错误，避免脚本直接中断。
• SaveChanges:=False：自动化场景下建议保持此设置，避免因保存弹窗阻塞流程；若需保留未保存内容，可改为True。

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