Pivot 刷新后 ODBC 数据源更新

Question

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

我正在使用下面的代码，我也尝试过各种不同的交互，但无论我做什么，数据透视表都会先刷新，然后再刷新数据，这意味着数据透视表显示的是旧数据。

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

Pivot 刷新后 ODBC 数据源更新

ODBC data source updates after Pivot refreshes

vb.net

excel

vba