vba ODBC刷新

Question

我在等待我的查询刷新时遇到问题，直到进一步执行代码。

ThisWorkbook.Connections("ConnectionName").Refresh
Debug.Print ThisWorkbook.Connections("ConnectionName").ODBCConnection.refreshing 'Prints True
While ThisWorkbook.Connections("ConnectionName").ODBCConnection.refreshing
DoEvents
Wend
Debug.Print "updated"
[...]

似乎是ThisWorkbook.Connections（＆＃34; ConnectionName＆＃34;）。ODBCConnection.refreshing永远不会变为false，因为在宏运行时数据连接没有完成。

我有另一个查询，具体取决于另一个查询的结果（第一个ODBC连接，然后UNION全部带有来自Excel的一些额外数据） 我无法阻止Excel查询运行时，因此BackgroundRefresh：False不是一个选项。

由于

Answer 1

我用

解决了它

Application.CalculateUntilAsyncQueriesDone

Answer 2

Dim con As ODBCConnection
Set con = ThisWorkbook.Connections("ConnectionName").ODBCConnection
con.BackgroundQuery = False
con.Refresh