如果一个工作簿有多个工作表和多个数据透视表和多个数据透视缓存，我如何才能只循环使用特定数据透视缓存的数据透视表？例如，如果我想更改只有那些数据透视表具有的字段。
我显然可以遍历工作簿中的每个数据透视表并检查其 SourceData，但我想知道是否有类似的内容：
For Each pt In ThisWorkbook.PivotCaches("this").pivottables_list
Next
【问题讨论】：
标签： excel pivot-table vba
奇怪的是，没有直接的方法可以从 PivotCache 中获取它。相反，您需要遍历工作簿中的每个 PT，并查看它的 PivotCache 是否与您感兴趣的相同，如下所示：
Option Explicit
Sub Loop_PivotCache(ptExample As PivotTable)
Dim pt As PivotTable
Dim pc As PivotCache
Set pc = ptExample.PivotCache
For Each wks In ActiveWorkbook.Worksheets
For Each pt In wks.PivotTables
If pt.PivotCache.Index = pc.Index Then
Debug.Print pt.Name
End If
Next pt
Next wks
End Sub
像这样调用那个子：
Sub Caller()
Loop_PivotCache Worksheets("SomeWorksheet").PivotTables("SomePivotTable")
End Sub
问题：您实际上想对每个数据透视表做什么？根据您要执行的操作，从效率的角度来看，您可能需要了解一些事情。
【讨论】：