我能想到的实现目标的最佳方法是编写VBA，它按名称刷新每个查询并将结果存储在表中。
这是我创建的代码...
ListConnectons（查找要在下一个宏中使用的名称）：

Sub ListConnections()
Dim cn As WorkbookConnection
Debug.Print "Name", "|", "Description", "|", "|", "RefreshWithRefreshAll", "|", "InModel", "|", "Type"

For Each cn In ThisWorkbook.Connections
Debug.Print cn.Name, "|", cn.Description, "|", cn.RefreshWithRefreshAll, "|", cn.InModel, "|", cn.Type
Next
End Sub

查询计时器（要运行2个查询并在表中存储时间）：

Sub QueryTimer()

    Dim StartTime As Double
    Dim EndTime As Double

'##################
'##### Query 1 ####
'##################

    Dim Query1 As Double
    
    StartTime = Timer
    Workbooks("workbook.xlsx").Sheets("Sheet1").Range("B2").Value = StartTime 
    Workbooks("workbook.xlsx").Connections("Query - Query 1").Refresh

    EndTime = Timer
    Workbooks("workbook.xlsx").Sheets("Sheet1").Range("C2").Value = EndTime

    Query1 = Round(Round(EndTime - StartTime, 2) / 60, 2)

    Workbooks("workbook.xlsx").Sheets("Sheet1").Range("D2").Value = Query1

'##################
'##### Query 2 ####
'##################

    Dim Query2 As Double
    
    StartTime = Timer
    Workbooks("workbook.xlsx").Sheets("Sheet1").Range("B3").Value = StartTime
    Workbooks("workbook.xlsx").Connections("Query - Query 2").Refresh

    EndTime = Timer
    Workbooks("workbook.xlsx").Sheets("Sheet1").Range("C3").Value = EndTime

    Query2 = Round(Round(EndTime - StartTime, 2) / 60, 2)

    Workbooks("workbook.xlsx").Sheets("Sheet1").Range("D3").Value = Query2

'##################

    '#### Finished ####
    Dim TotalTime As Double

    TotalTime = Workbooks("workbook.xlsx").Sheets("Sheet1").Range("D4").Value
    
    MsgBox "Refresh completed in " & Format(TotalTime, "0.0") & " Minutes."

End Sub