VBA中如何在Application.Run执行完成后自动关闭工作簿？

我来帮你优化这段VBA代码，解决刷新完成后自动关闭工作簿的问题，同时让代码更健壮可靠：

完整优化代码 #

Sub openWorkBookAndRefresh()
    Dim targetWB As Workbook
    Dim filePath As String
    
    ' 构建目标文件路径
    filePath = "C:\Users\Desktop\data\" & Cells(2, 1).Value
    
    On Error GoTo ErrorHandler ' 添加错误处理，避免代码崩溃
    
    ' 打开工作簿并赋值给变量，避免依赖ActiveWorkbook
    Set targetWB = Workbooks.Open(Filename:=filePath)
    
    ' 调用刷新宏
    Application.Run "RefreshAllWorkbooks"
    
    ' 关键：等待彭博刷新完成（根据实际情况调整等待逻辑）
    ' 如果RefreshAllWorkbooks是同步执行的，这步可以省略；如果是异步，建议用以下方式等待
    Do While Application.CalculationState <> xlDone
        DoEvents ' 释放系统资源，避免Excel假死
    Loop
    
    ' 关闭工作簿，按需选择是否保存刷新后的数据
    targetWB.Close SaveChanges:=True ' 若不需要保存改为False
    
    Exit Sub ' 正常流程结束，跳过错误处理
    
ErrorHandler:
    MsgBox "操作出错：" & Err.Description, vbExclamation
    ' 如果工作簿已打开，确保关闭
    If Not targetWB Is Nothing Then
        targetWB.Close SaveChanges:=False
    End If
End Sub

关键优化点说明 #

• 明确控制目标工作簿：把打开的工作簿赋值给targetWB变量，避免依赖ActiveWorkbook（如果期间有其他工作簿被激活，会导致错误关闭无关文件）。
• 添加错误处理：捕获文件不存在、权限不足等异常情况，确保出错时也能正确关闭已打开的工作簿，避免资源占用。
• 等待刷新完成：彭博数据刷新可能是异步执行的，通过Do While Application.CalculationState <> xlDone循环等待所有计算/刷新完成，确保数据更新后再关闭工作簿。如果你的RefreshAllWorkbooks宏本身已经是同步阻塞的（执行完才返回），可以去掉这段循环。
• 显式控制保存状态：关闭工作簿时明确指定SaveChanges参数，避免弹出保存提示框打断自动化流程。

额外建议 #

如果彭博刷新有专门的等待API（比如BLPAPI相关的刷新完成事件），可以替换掉CalculationState的判断逻辑，这样等待会更精准。你可以查询一下当前使用的彭博插件文档确认具体方法。

内容的提问来源于stack exchange，提问作者RN.Z