vba - 使用vbs打开excel工作簿,运行宏并保存工作簿

标签 vba excel 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

最佳答案

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

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

关于vba - 使用vbs打开excel工作簿,运行宏并保存工作簿,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29325804/

相关文章:

arrays - Excel VBA : Replicating Index(Match()) between several arrays

MYSQL-Access-Macro Error 字段列表中的未知列

sql - 如何在 VBScript 中使用带有 adArray 数据类型的 ADODB 参数化查询?

vbscript - 如何在 vbscript 中使用剪贴板?

Excel vba - 禁用鼠标事件

vba - 如何测试特定控件是否具有焦点?

excel - 如何使单元格适合单元格中的值

Excel查找文本,对文本旁边的单元格求和

sql - 将 Excel 数据导入 PostgreSQL 9.3

mysql - SQL 不会插入到表中