使用任务pipe理器打开Excel文件，运行macros，保存文件，然后closures

我想每天早上5点打开一个excel文件，运行一个macros，它将数据和文件pipe理器/数据组织起来，保存并closures文件。 我目前有任务pipe理器与.vbs脚本来打开下面的文件，并打开文件，但它closures保存窗口popup，并尝试将文件保存为原件的副本。

Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True ' Import Add-Ins 'xlApp.Workbooks.Open "G:\CNC\Schiermeyer\Active Job Files\Autorefresh" "C:\<pathOfXlaFile>\MyMacro.xla" 'xlApp.AddIns("MyMacro").Installed = True 'Open Excel workbook Set xlBook = xlApp.Workbooks.Open("G:\CNC\Schiermeyer\Active Job Files\Autorefresh\AutoRefresh Active Job Report.xlsm", 0, True) ' Run Macro xlApp.Run "sheet1.ActiveJobReportRefresh" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Quit 

任何帮助将不胜感激。 我是使用任务pipe理器和.vbs文件的新手，而且还不是VBA专业版，这就像我使用论坛一样。

Answer 1

我创build了一个模块，并插入下面的代码：

 Sub Auto_Close() If ThisWorkbook.Saved = False Then ThisWorkbook.Save End If End Sub 

但是这个模块是在用户点击右上angular的closures（X）的时候创build的，excel会通过不要求确认来保存和closures。 也许你可以尝试修改这个代码。 谢谢。