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

Question

我使用 a.vbs 文件自动化进程，有时我忘记在晚上关闭 excel 文件，因此当进程运行时，文件以只读方式打开，导致问题。 我只想关闭或结束打开的工作簿的所有实例。

我认为“.Quit”可以解决问题，但似乎无法关闭当前打开的工作簿。 我在宏中测试退出，它确实关闭了所有打开的工作簿和一般的 excel 应用程序。

有任何想法吗？

Set ExcelApp = CreateObject("Excel.Application")

ExcelApp.Applicaiton.Quit

'reopen actual file as non read only

Set ExcelApp = CreateObject("Excel.Application")

ExcelApp.Visible = True

ExcelApp.DisplayAlerts = False

ExcelFilePath = "C:\Users\user\Documents\test.xlsm"
Set wb = ExcelApp.Workbooks.Open(ExcelFilePath)

Answer 1

代替

Set ExcelApp = CreateObject("Excel.Application")

尝试

Set ExcelApp = GetObject(, "Excel.Application")

绑定到现有的 excel 实例。