Excel Querytable刷新仅适用于一次

Question

我正在使用VBA向Excel 2007工作簿添加ListObject。 ListObject的后面有一个QueryTable，链接到Access数据库。代码如下所示：

Dim l As ListObject 
Dim c As ADODB.Connection 
Dim r As ADODB.Recordset 

Set c = New ADODB.Connection 
c.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=myAccessDatabasePath;Persist Security Info=False;" 

Set r = New ADODB.Recordset 
r.Open "Select * From myTable", c 

Set l = ActiveSheet.ListObjects.Add(xlSrcQuery, r, True, xlYes, Range("A1")) 
l.QueryTable.Refresh False 

'this line causes an error 
l.QueryTable.Refresh False 

本质上问题是我无法多次刷新表格。数据和表格设计功能区上的刷新按钮呈灰色。我尝试过使用类似的代码而不使用Listobjects（即仅仅是QueryTables）并得到相同的问题。我已经尝试刷新底层连接对象，并再次获得相同的问题。

我花了整个早上谷歌搜索无济于事。

这是一个错误，设计的行为或（我很可能）在做一些愚蠢的事情吗？

提前许多感谢，

史蒂夫

Answer 1

好吧，我得到它的工作。宏记录器（感谢迪克的建议）实际上有用一次。

Dim s As Worksheet 
Dim l As ListObject 

Set s = ActiveSheet 
Set l = s.ListObjects.Add(xlSrcExternal, "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=myDatabasePath;", True, xlYes, Range("A1")) 

l.QueryTable.CommandType = xlCmdTable 
l.QueryTable.CommandText = "mytable" 

l.QueryTable.Refresh False 

'this now works! 
l.QueryTable.Refresh False 

Answer 2

这是UNTESTED，但它仍然应该工作，它会检查表已在刷新，如果是，它会等待1秒，再次检查，直到它不再刷新，那么它将继续

Dim l As ListObject 
Dim c As ADODB.Connection 
Dim r As ADODB.Recordset 

Set c = New ADODB.Connection 
c.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=myAccessDatabasePath;Persist Security Info=False;" 

Set r = New ADODB.Recordset 
r.Open "Select * From myTable", c 

Set l = ActiveSheet.ListObjects.Add(xlSrcQuery, r, True, xlYes, Range("A1")) 
    With l 
     .QueryTable.Refresh False 

      Do while .Refreshing 
       Application.Wait Now + TimeValue("00:00:01") 
      Loop 

     'this line causes an error 
     .QueryTable.Refresh False 

End With