仅刷新单个数据透视表

Question

在Excel 2013中，我有两个名为“A”和“B”的数据透视表。 我需要在工作簿的工作表上只刷新一个数据透视表（“B”）以进行比较。

我在下面尝试了所有内容，它看起来好像应该按要求工作 - 但它们都没有（即两个枢轴都会在运行任何解决方案后刷新）。 我尝试将数据透视表数据选项更改为所有可能的组合，而不改变结果。

Sub refresh_pivot1() 

'=================================================
Windows("File.xlsx").Activate
Sheets("Pivots").Select
'=================================================
ActiveSheet.PivotTables("B").PivotCache.Refresh
'=================================================
Worksheets("Pivots").PivotTables("B").RefreshTable
'==================================================

Dim PvtTbl As PivotTable            

For Each PvtTbl In Worksheets("Pivots").PivotTables            

    If PvtTbl = "B" Then                                            
        PvtTbl.RefreshTable          
    End If             

Next

'=================================================          
Range("G3:K12").Calculate             
'=================================================           
Dim pt As PivotTable             
Set pt = ActiveSheet.PivotTables("B")           
pt.RefreshTable            
'=================================================

End Sub

Answer 1

如果两个数据透视表都基于相同的数据源，那么它们将共享所谓的数据透视表 。 刷新数据透视表时，实际上是刷新了基础数据透视表，而不是单个数据透视表。 这意味着当您刷新一个数据透视表时，实际上是在重新编译*共享该缓存的所有“数据透视表”。

您需要告诉Excel将第二个数据透视表分配给不同的缓存。 有关如何执行此操作的代码，请参阅http://www.contextures.com/xlPivot11.html （特别是“为选定的数据透视表创建新的数据透视表”一节）或给Google一个旋转。