使用vbs打开Excel工作簿,运行宏并保存工作簿

时间:2015-03-29 05:04:57

标签: excel vba excel-vba vbscript

  • 我有一个宏,我需要每5分钟运行一次。我有一个vbs文件来安排宏。
  • 宏正在检查某个文件夹中的新文件,将其信息写入表格,然后将文件移动到存档中。
  • 该表与宏在同一个excel文件中!

它正在运行宏,但最后,它问我是否不保存文件。

我需要它来自动保存宏对文件所做的更改!

这是我当前的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

1 个答案:

答案 0 :(得分:5)

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

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