VBScript 在保存和关闭 Excel 工作簿之前结束

Question

我有一个非常基本的 VBScript，我希望能够从任务计划程序调用它来打开一个 Excel 文档，刷新所有内容，然后保存并关闭它。 我一直在玩我在网上找到的各种代码（因为我对此很陌生），我可以让它打开并刷新所有代码，但是 VBScript 在保存和/或关闭工作簿之前关闭。

我已尝试添加“WScript.Sleep”（具有不同的时间）以及 DoEvents 以允许 Excel 完成，但在保存和关闭工作簿之前脚本仍会关闭。

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = 
objExcel.Workbooks.Open("\\llfs01\ReportHub(Shoals)\Sales\Daily 
Reports\F&I Daily Reports\CIT Report.xlsm")

objExcel.Application.Visible = True
objExcel.DisplayAlerts = False
objExcel.AlertBeforeOverwriting = False
objWorkbook.WorkSheets(1).Activate
objWorkbook.RefreshAll 'Refresh everything
objWorkbook.DoEvents 'Let Excel finish
WScript.Sleep 20000
objExcel.ActiveWorkbook.Save
DoEvents
objExcel.ActiveWorkbook.Close

我需要代码来打开工作簿（当我的电脑被锁定且无人看管时）、刷新工作簿中的所有数据、保存并关闭工作簿。

Answer 1

您可以设置一个变量 = objExcel.ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")，然后循环 Do Events 直到 objExcel.ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") > variable

Dim s

s = objExcel.ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

objExcel.ActiveWorkbook.Save
Do Until objExcel.ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") > s
    DoEvents
Loop
objExcel.ActiveWorkbook.Close

编辑：

根据 OP 的评论添加到原始代码正文中

Dim s
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("\\llfs01\ReportHub(Shoals)\Sales\Daily 
Reports\F&I Daily Reports\CIT Report.xlsm")

s = objExcel.ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

objExcel.Application.Visible = True
objExcel.DisplayAlerts = False
objExcel.AlertBeforeOverwriting = False
objWorkbook.WorkSheets(1).Activate
objWorkbook.RefreshAll 'Refresh everything

objExcel.ActiveWorkbook.Save
Do Until objExcel.ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") > s
    DoEvents
Loop
objExcel.ActiveWorkbook.Close