BPC VBA After_Refresh

Question

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

  

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

我知道有可用于After_Refresh的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等待刷新完成？

Answer 1

你可以尝试这个

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