從excel獲取連接名稱vba

Question

我有代碼來選擇每個工作表下的數據透視表名稱。我想知道如何獲取每個數據透視表的數據連接名稱。

Dim ws As Worksheet 
Dim pvt As PivotTable 
Dim pvf As PivotField 
Dim pvi As PivotItem 
Dim x As String 
Dim conn As WorkbookConnection 

Application.ScreenUpdating = False 

Worksheets("Log").Activate 
Columns("H:L").Select 
i = 1 
For Each ws In ActiveWorkbook.Worksheets 
    If ws.PivotTables.Count > 0 Then 
    For Each pvt In ws.PivotTables 
     ActiveCell.Offset(i, 0) = ws.Name 
     ActiveCell.Offset(i, 1) = pvt.Name 
     'ActiveCell.Offset(i, 2) = conn.Name 
     i = i + 1 
    Next pvt 
    End If 
Next ws 

Answer 1

爲了得到當前透視表的數據連接的名稱，使用此：

pvt.PivotCache.WorkbookConnection 

注意，如果數據透視表中不使用工作簿的連接，所以你應該檢查它會拋出一個錯誤第一個：

If pvt.PivotCache.SourceType = xlExternal Then 
    ActiveCell.Offset(i, 2) = pvt.PivotCache.WorkbookConnection 
End If