连接刷新后的Msg Box

Question

我想用"Done"显示Msg Box。完成刷新连接后。不幸的是，在启动宏之后，当连接没有完全刷新时(这是ODBC连接，需要最多15分钟才能完全刷新)，会弹出该消息。带do和不带DoEvents的解决方案以相同的结果结束。你能帮忙吗?

Sub database_refresh()
Dim cn As WorkbookConnection
Set cn = ActiveWorkbook.Connections("xxxx")
cn.Refresh
End Sub
Sub msg_box_dbup()
MsgBox "Done"
End Sub
Sub database_refresh_event()
Call database_refresh
DoEvents
Call msg_box_dbup
End Sub

Answer 1

谢谢大家!

解决方案禁用后台刷新解决了我的问题;