刷新后的BPC VBA

我正在自动生成一份报告，该报告将打开一个上载模板以执行EVSND，并关闭上载模板以完成报告。当上传模板关闭时，我收到消息：

UploadTemp.xlsm已关闭。 无法完成修剪EvINP函数或刷新计划

我知道在刷新后有VBA可用，但我不知道如何将其包含在我的代码中

这是我的代码：

Dim ULTemplate As Workbook 

Set ULTemplate = Workbooks.Open("C:\UploadTemp.xlsm")

With ULTemplate

Application.Run ("MNU_eSUBMIT_REFSCHEDULE_BOOK_CLEARANDREFRESH")

End With

ULTemplate.Close SaveChanges:=True

如何使Excel在关闭此文件之前等待刷新完成？

您可以尝试此方法

For i = 1 To ActiveWorkbook.Connections.Count
  ActiveWorkbook.Connections(i).OLEDBConnection.BackgroundQuery = False
  MsgBox ActiveWorkbook.Connections(i).OLEDBConnection.BackgroundQuery
Next    
Activeworkbook.RefreshAll

---

我试过了，但没用。我假设这是因为我需要等待BPC加载项完成。请重试