Excel ODBC Data Connection Време за заявка, необходимо за опресняване на всяка заявка

Може би нещо подобно (предполага се, че всички връзки поставят резултатите си в таблица на работен лист, а не в обобщена таблица):

Sub TimeQueries()
    Dim oSh As Worksheet
    Dim oCn As WorkbookConnection
    Dim dTime As Double
    For Each oCn In ThisWorkbook.Connections
        dTime = Timer
        oCn.Ranges(1).ListObject.QueryTable.Refresh False
        Debug.Print Timer - dTime, oCn.Name, oCn.Ranges(1).Address(external:=True)
    Next
End Sub

За да стартирате това:

1. Alt +F11 за да отидете в редактора на VBA.
2. От меню:Вмъкване на модул.
3. Поставете кода в прозореца.
4. Затворете VBA редактора.
5. Alt +F8 извежда списък с макроси. Изберете новия и щракнете върху изпълнение.
6. Alt +F11 отново към редактора на VBA.
7. Ctr l+G отваря незабавния прозорец с резултатите.

Ако искате кодът да пише в клетка, използвайте тази версия:

Sub TimeQueries()
    Dim oSh As Worksheet
    Dim oCn As WorkbookConnection
    Dim dTime As Double
    Dim lRow As Long
    Set oSh = Worksheets("Sheet4") 'Change to your sheet name!
    oSh.Cells(1,1).Value = "Name of Connection"
    oSh.Cells(1,2).Value = "Location"
    oSh.Cells(1,1).Value = "Refresh time (s)"
    For Each oCn In ThisWorkbook.Connections
        lRow = lRow + 1
        dTime = Timer
        oCn.Ranges(1).ListObject.QueryTable.Refresh False
        oSh.Cells(lRow,3).Value = Timer - dTime
        oSh.Cells(lRow,1).Value = oCn.Name
        oSh.Cells(lRow,2).Value = oCn.Ranges(1).Address(external:=True)
    Next
End Sub