如何用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 實例。