显示数据透视表及其参数列表

Question

我有一个包含许多工作表和多个数据透视表的工作簿。 在所有这些数据透视表的一个地方进行概述将非常有助于确保我拥有一致的参数，标题等。

它应显示关键信息，例如：

工作表名称，数据透视表名称，数据透视表位置，超链接到位置，选择参数（例如OLAP支持，当前连接的切片器等，类型（电源轴或标准）

我想我们都很乐意为所有复杂的应用程序提供此功能。 有人会知道如何在VBA或其他方面设计这个吗？

Answer 1

您应该能够遍历数据透视表并使用以下内容获取信息：

Dim pvt As PivotTable
Dim ws As Worksheet
Set ws = ThisWorkBook.ActiveSheet
For Each pvt In ws.PivotTables

'collect data about pivot tables and output somewhere..
Next pvt

如果数据透视表位于多个工作表中，则将该循环嵌套在循环遍历工作簿工作表的循环中。

这是否为您提供了充分的起点？