我正在刷新有关Access的查询并遍历表,但是该循环使刷新超出了范围-因此我没有得到正确的最后一行。
刷新后,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`
帮助非常感谢!!!
这可能是一个开始
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句