如何通过VBA完全关闭Windows 11上的Office 365 Excel程序？

为什么之前的方法无效 #

• Workbooks.Close 仅关闭所有打开的工作簿，但Excel程序进程会继续保留（相当于手动关闭所有文件后，Excel仍处于空白窗口状态）。
• ActiveWindow.Close 仅关闭当前窗口，若存在其他工作簿窗口或空白窗口，进程依然不会终止。

实现完全关闭的VBA代码 #

要模拟点击右上角X的效果，直接调用Application.Quit即可，它会触发Excel程序的完整退出流程，包括弹出未保存文件的保存提示（和手动操作一致）。

如果需要自动处理保存（避免弹出提示），可以先遍历关闭所有工作簿并指定保存策略，再退出程序：

' 遍历所有工作簿，关闭时指定是否保存（False为不保存，True为自动保存）
For Each wb In Application.Workbooks
    wb.Close SaveChanges:=False
Next wb

' 退出Excel程序
Application.Quit

如果想静默关闭（不弹出任何提示），可以临时关闭Excel的提示弹窗：

Application.DisplayAlerts = False
' 关闭所有工作簿且不提示保存
Workbooks.Close SaveChanges:=False
Application.DisplayAlerts = True

' 退出程序
Application.Quit

注意事项 #

• 如果直接调用Application.Quit而未提前关闭工作簿，Excel会和手动点击X一样，弹出每个未保存文件的保存确认框。
• 若Excel中存在隐藏的工作簿（比如加载项相关），需要确保这些工作簿也被正确关闭，否则进程可能残留。

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