如何使用VBA导出数据透视表信息

可以VBA编写代码来导出数据透视表的，以下是一个示：

 ExportPivotTableData()
 Dim ws As Worksheet
    Dim pt As PivotTable
    Dim rng Range
    Dim export Worksheet
    Dim export As Range
    Dim fileName As String
    
    ' 设置要导出数据的工作表和数据透视表对象
    ws = ThisWorkbook.WorkSheet1") ' 修改你的工作表名称
    Set pt ws.PivotTables("PivotTable1") ' 修改为你的数据透视表名称
    
    ' 创建一个新的工作表，并设置导出数据的范围
    Set exportWs = ThisWorkbook.Worksheets.Add
    Set rng = pt.TableRange1 ' 导出整个数据透视表范围
    Set exportRange = exportWs.Range("A1").Resize(rng.Rows.Count, rng.Columns.Count)
    
    ' 将数据透视表的值复制到导出工作表中
    rng.Copy exportRange
    
    ' 保存导出的工作表为一个新的文件
    fileName = "PivotTableData.xlsx" ' 修改为你想要保存的文件名
    exportWs.Copy
    With ActiveWorkbook
        .SaveAs fileName
        .Close SaveChanges:=False
    End With
    
    ' 清除临时工作表
    Application.DisplayAlerts = False
    exportWs.Delete
    Application.DisplayAlerts = True
    
    MsgBox "数据透视表数据已成功导出为 " & fileName
End Sub

使用以上代码，你只需要将工作表名称和数据透视表名称修改为你实际使用的名称，然后运行宏即可将数据透视表的数据导出为一个新的 Excel 文件。导出的文件名和保存路径可以根据需要进行修改。