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

Question

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

我使用下面的代码，我也尝试了各种不同的内容，但无论我做什么，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