做百度手机网站快速排免费发布信息的网站平台

也没什么可分析的，直接上代码，看看是不是你需要的：

Sub GetPVT()

'定义一个1000行的数组，如果你预判工作簿中数据透视表数量可能大小1000，那就改成10000，甚至10万，以确保能大于数据透视表数量即可。

Dim arr(1000, 3) as string

i = 0

'遍历工作簿中的每个工作表

For Each sht In ActiveWorkbook.Worksheets

'遍历工作表中的每个数据透视表

For Each pvt In sht.PivotTables

'赋值工作表名称、数据透视表名称、数据源

arr(i, 0) = sht.Name

arr(i, 1) = pvt.name

arr(i, 2) = pvt.SourceData

i = i + 1

Next pvt

Next sht

'将数据写到工作表中

Cells(1, 1).Resize(i, 3) = arr

End Sub

最后写到将数据写到工作表中，没有判断会不会因为粘贴区域有数据透视表面失败，建议每次新建一个工作表，并将新工作表为活动工作表，然后运行代码。