使用vbs打开一个excel工作簿,运行一个宏并保存工作簿
Use vbs to open an excel workbook, run a macro and save the workbook
- 我有一个宏,我需要每 5 分钟 运行。我有一个安排宏的
vbs
文件。
- 宏正在检查某个文件夹中的新文件,将它们的信息写入 table,并将文件移动到存档中。
- table 与宏在同一个 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
更新了下面的代码,我也调整了清理的逻辑
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
- 我有一个宏,我需要每 5 分钟 运行。我有一个安排宏的
vbs
文件。 - 宏正在检查某个文件夹中的新文件,将它们的信息写入 table,并将文件移动到存档中。
- table 与宏在同一个 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
更新了下面的代码,我也调整了清理的逻辑
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