Excel/Access VBA - 无法获取上次使用的行，因为查询刷新

我正在刷新Access上的查询并循环遍历表，但循环超出了刷新 - 所以我没有得到正确的最后一行。Excel/Access VBA - 无法获取上次使用的行，因为查询刷新

刷新后，a应等于2746，但它返回1478，这是刷新前的最后一行。

vPath = ThisWorkbook.Sheets(vHome).Range("LogTblFolder") 
vFile = ThisWorkbook.Sheets(vHome).Range("LogTblFile") 
    Set wb = Workbooks.Open(vPath & vFile) 

     Sheets("Main").Select 
     ActiveWorkbook.Connections("CTA_DB_Full3").Refresh 
     ActiveWorkbook.Connections("CTA_DB_Full3").Refresh 

      Call WaitForRefresh(1) 
      a = 1:Do Until Sheets("Main").Cells(a, 1).Value2 = "":a = a + 1:Loop 
        vArray = Sheets("Main").Range(Cells(2, 1), Cells(a, 94)) 

    wb.Close False

Public Function WaitForRefresh(intSeconds As Integer) 
Dim dblStart As Double 

If intSeconds > 0 Then 

    dblStart = Timer() 

    Do While Timer < dblStart + intSeconds 
    Loop 

End If 
End Function`

帮助深表感谢！

来源

2016-11-09 odracir01

我觉得如果你关闭运行的后台查询，您的代码将自然等待 –

另外，你可以把'databodyrange'从'listobject'到一个数组 –

这可能是一个开始

Sub x() 

    Dim l As ListObject 

    Set l = ActiveSheet.ListObjects(1) 

    l.QueryTable.BackgroundQuery = False 

    Debug.Print l.ListRows.Count 
    l.Refresh 
    Debug.Print l.ListRows.Count 

    varray = l.DataBodyRange.Value 

End Sub

来源

2016-11-09 15:26:07

它工作完美！做了测试，关掉后台查询确实是缺失的部分。非常感谢！ – odracir01

Excel/Access VBA - 无法获取上次使用的行，因为查询刷新

回答

相关问题