Sub ShowAllQueryConnectionStrings()
Dim oSheet As Excel.Worksheet
For Each oSheet In Application.ActiveWorkbook.Sheets
Dim oTable As Excel.QueryTable
For Each oTable In oSheet.QueryTables
Debug.Print "QueryTable " & oTable.Name & ": " & oTable.Connection
Next
Dim oPivot As Excel.PivotTable
For Each oPivot In oSheet.PivotTables
Debug.Print "PivotTable " & oPivot.Name & ": " & oPivot.PivotCache.Connection
Next
Next
End Sub
2 回答
可以使用“数据”选项卡 .
试试这个:
这也可以从VBA获得 . 此查询只是枚举它们 .
您可以使用
PivotCache.Refresh
或QueryTable.Refresh
轻松修改此示例以刷新查询 .