使用其参数显示数据透视表的列表

问题描述:

我有一个工作簿,其中包含许多数据透视表的许多工作表。 在一个地方所有的这些数据透视表将是巨大的,以确保我有一致的参数,标题的概览等使用其参数显示数据透视表的列表

应该显示关键信息,如:

工作表名称,数据透视表名称,数据透视表位置,超链接到位置,选择参数(如OLAP支持,当前连接的切片机等,类型(功率数据透视或标准)

我想我们都会很乐意为我们所有的复杂应用程序提供此功能。 有没有人有关于如何设计VBA或其他东西的线索?

+3

你能告诉我们你有什么试过,你卡在哪里? – 2012-08-03 07:14:55

+0

对不起,但我不知道从哪里开始。我现在在这个文件中有超过50个枢轴,不知何故其中一个打开了OLAP功能,我的切片机不能正常工作了。我很想将这个列表放在某个地方,以便我可以轻松地找到具有错误参数的数据透视表。我相信我不是唯一有这个问题的人,有没有人找到解决方案? – user1573375 2012-08-16 02:12:35

您应该能够遍历数据透视表和喜欢的东西抓取信息:

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 

如果枢轴表在多个工作表,然后窝在一个循环内该循环,通过该工作簿工作表的循环。

这是否为您提供了一个合适的起点?