VBScript操作Excel文件待更新后保存运行故障咨询

可用的功能实现代码 #

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True ' 不需要显示Excel窗口可改为False
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\file.xlsx")

' 强制刷新所有数据连接、异步计算任务
objExcel.CalculateUntilAsyncQueriesDone
' 等待所有计算/更新完成，比固定等待20秒更高效
Do While objExcel.CalculationState <> 0 ' 0对应常量xlDone，表示计算完成
    WScript.Sleep 100
Loop
' 确有需要固定等待20秒可以保留下面这行，不需要直接删除即可
WScript.Sleep 20000

' 执行保存关闭，释放对象避免后台残留Excel进程
objWorkbook.Save
objWorkbook.Close
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing

原有代码错误说明 #

• 尝试1报错原因：你声明的工作簿对象变量名为xlBook，但后续保存、关闭操作调用的变量是wb，变量名不匹配导致系统找不到对应对象，触发缺失对象报错。同时代码没有触发Excel数据、公式更新的逻辑，就算修改变量名也无法完成更新需求。
• 尝试2未生效原因：objExcel.Calculate触发计算后没有等待计算完成就直接执行保存，大部分场景下外部数据连接、大量公式还没计算完毕，保存的还是更新前的内容；同时缺少退出Excel、释放COM对象的步骤，会导致后台残留Excel进程占用目标文件。

内容的提问来源于stack exchange，提问作者justaguy