如何通过Excel VBA导出数据透视表与数据库连接的关联配置？

方案1：遍历工作表→数据透视表→关联连接 #

逐个检查每个工作表里的数据透视表，提取其关联的数据库连接信息，输出工作表名、透视表名和对应的连接详情。

Sub ExportPivotToConnectionMapping()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim conn As WorkbookConnection
    Dim outputRow As Integer
    
    ' 初始化输出行（第1行写表头）
    outputRow = 2
    With ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        .Name = "透视表-连接映射"
        .Range("A1:C1").Value = Array("工作表名", "数据透视表名", "连接名称")
    End With
    
    For Each ws In ThisWorkbook.Worksheets
        For Each pt In ws.PivotTables
            ' 仅处理基于外部数据库连接的透视表
            If pt.PivotCache.SourceType = xlExternal Then
                Set conn = ThisWorkbook.Connections(pt.PivotCache.OLEDBConnection.Name)
                ThisWorkbook.Sheets("透视表-连接映射").Cells(outputRow, 1).Value = ws.Name
                ThisWorkbook.Sheets("透视表-连接映射").Cells(outputRow, 2).Value = pt.Name
                ThisWorkbook.Sheets("透视表-连接映射").Cells(outputRow, 3).Value = conn.Name
                outputRow = outputRow + 1
            End If
        Next pt
    Next ws
End Sub

关键说明：

• 核心属性是PivotTable.PivotCache.OLEDBConnection：通过透视表的缓存对象，获取其关联的数据库连接实例
• 用SourceType = xlExternal过滤掉基于本地Excel数据的透视表，只保留数据库连接的透视表

方案2：遍历连接→关联的数据透视表/工作表 #

逐个检查工作簿中的每个连接，反向查找哪些工作表里的透视表在使用它，实现类似「查询和连接」里的「使用位置」功能。

Sub ExportConnectionToWorksheetMapping()
    Dim conn As WorkbookConnection
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim outputRow As Integer
    Dim usedSheets As String
    
    ' 初始化输出行
    outputRow = 2
    With ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        .Name = "连接-工作表映射"
        .Range("A1:B1").Value = Array("连接名称", "使用的工作表")
    End With
    
    For Each conn In ThisWorkbook.Connections
        ' 仅处理OLEDB/ODBC类型的数据库连接
        If conn.Type = xlConnectionTypeOLEDB Or conn.Type = xlConnectionTypeODBC Then
            usedSheets = ""
            For Each ws In ThisWorkbook.Worksheets
                For Each pt In ws.PivotTables
                    If pt.PivotCache.SourceType = xlExternal Then
                        ' 匹配连接名称
                        If pt.PivotCache.OLEDBConnection.Name = conn.Name Then
                            usedSheets = IIf(usedSheets = "", ws.Name, usedSheets & ", " & ws.Name)
                            Exit For ' 避免同一工作表重复记录
                        End If
                    End If
                Next pt
            Next ws
            
            ' 写入结果
            ThisWorkbook.Sheets("连接-工作表映射").Cells(outputRow, 1).Value = conn.Name
            ThisWorkbook.Sheets("连接-工作表映射").Cells(outputRow, 2).Value = IIf(usedSheets = "", "未被使用", usedSheets)
            outputRow = outputRow + 1
        End If
    Next conn
End Sub

关键说明：

• 用Workbook.Connections遍历所有连接，通过Type属性过滤数据库类型的连接
• 对比透视表缓存的连接名称和当前遍历的连接名称，匹配成功则记录工作表名
• 加入「未被使用」的判断，方便识别闲置连接

注意事项 #

• 运行代码前建议先保存Excel文件，避免意外丢失数据
• 如果透视表基于Power Query查询，需调整判断逻辑（比如检查conn.Type = xlConnectionTypeTEXT等对应类型）
• 代码会自动新建工作表存放结果，若已有同名工作表会报错，可提前删除或修改代码中的工作表名称

内容的提问来源于stack exchange，提问作者fe77