各クエリの更新にかかるExcelODBCデータ接続クエリの時間

おそらくこのようなものです（すべての接続が結果をピボットテーブルではなくワークシートテーブルに配置すると仮定します）：

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