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

Question

I automate a process using a.vbs file and sometimes I forget to close the excel file at night, so when the process runs the file opens as a read-only causing issues. I'd like to just close or end all instances of open workbooks.

I thought a ".Quit" would do the trick but doesnt seems to close workbooks that are currently open. I test.quit in a macro and it does indeed close all open workbooks and the excel app in general.

Any ideas?

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

Instead of

Set ExcelApp = CreateObject("Excel.Application")

try

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

To bind to existing excel instance.