从excel vba获取连接名称

我有代码在每个工作表下选择轴名称。我想了解如何获取每个数据透视表的数据连接名称

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

---

要获取当前透视表的数据连接名称，请使用以下命令：

pvt.PivotCache.WorkbookConnection

请注意，如果数据透视表未使用工作簿连接，则会引发错误，因此应首先检查：

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

---

您可以指定“数据连接名称”的含义吗？您可以粘贴数据的前几行吗？如果可以，请选择左侧的箭头接受答案（注意您是新的，以防您不知道。）：）