数据透视刷新后的ODBC数据源更新

我正在尝试创build一个Excelmacros，刷新ODBC数据连接，然后刷新所有链接的数据透视表。

我正在使用下面的代码，我也尝试了各种不同的interations，但是无论我做什么Pivot表先刷新，然后数据刷新发生之后，这意味着枢轴显示旧数据。

Sub AutoUpdate() For Each objConnection In ThisWorkbook.Connections objConnection.Refresh DoEvents Next Dim Sheet As Worksheet, Pivot As PivotTable For Each Sheet In ThisWorkbook.Worksheets For Each Pivot In Sheet.PivotTables Pivot.RefreshTable Pivot.Update Next Next ' ODBC Data Refresh starts here!! End Sub 

我怎样才能获得ODBC数据刷新之前的枢纽？

我也尝试使用DoEvents命令，但这似乎没有任何区别。

任何帮助不胜感激。

Answer 1

如果它们都是ODBC连接：

 For Each objConnection In ThisWorkbook.Connections objConnection.ODBCConnection.BackgroundQuery = False objConnection.Refresh DoEvents Next