使用vbs打开excel工作簿,运行macros并保存工作簿

  • 我有一个macros,我需要每5分钟运行一次。 我有一个安排macros的vbs文件。
  • macros正在检查某个文件夹中的新文件,将它们的信息写入表中,并将这些文件移动到归档文件中。
  • 该表与macros一样在excel文件中!

它正在运行macros,但最后,它问我,如果我不会保存该文件。

我需要它来保存macros自动更改的文件!

这是我目前的vbs代码:

 Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False Set xlBook = xlApp.Workbooks.Open("W:\Excel Macro\EIM File Maneger\EIM_file_check.xlsm", 0, True) xlApp.Run "GetFiles" xlBook.Close true xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Echo "Finished." WScript.Quit 

更新下面的代码,我也调整了清理的逻辑

 Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False Set xlBook = xlApp.Workbooks.Open("W:\Excel Macro\EIM File Maneger\EIM_file_check.xlsm", 0, True) xlApp.Run "GetFiles" xlbook.Save xlBook.Close False set xlBook = Nothing xlApp.Quit Set xlApp = Nothing WScript.Echo "Finished." WScript.Quit