共享使用数据模型构建的数据透视表的 PivotCache

Question

我只是在清理我的工作簿，并且我使用以下代码来合并我的 PivotCache（在清理之前我有大约 200 个）。

Sub changeCache()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pc As PivotCache
Dim first As Boolean
On Error Resume Next

    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        For Each pt In ActiveSheet.PivotTables

            If first = False Then
                Set pc = pt.PivotCache
                first = True
            End If 

            pt.CacheIndex = pc.Index

        Next pt
    Next ws

End Sub

这已将我的 PivotCache 计数减少到 33 个。

Sub CountCaches()
  MsgBox ActiveWorkbook.PivotCaches.Count
End Sub

它是 33 而不是 1 的原因是因为我有 32 个使用 数据模型 构建的数据透视表。

我的问题是：有谁知道如何将使用数据模型构建的数据透视表更改为全部使用相同的数据透视表？

编辑

我的第二个问题是：多个数据透视表都建立在一个数据模型上

a) 引用单一数据模型；或

b) 每个都有自己的模型，因此会“膨胀”Excel 文件

EDIT2

在进一步探索中，数据模型似乎为引用相同数据的数据透视表共享。这可以在“连接”中看到（位于功能区的“数据”选项卡下）。理论上，这不应该“膨胀”文件，即使代码ActiveWorkbook.PivotCaches.Count 计算共享连接的每个数据透视表并且错误地（？）指示多个缓存。

但是，如果有人可以提供更明确的答案，我会保留悬赏。

Answer 1

如果我正确理解您的问题，您只需将每台电脑设置为第一台。所以，第一遍，给 pc 取其他名字，比如 pcfirst，然后对于每个剩余的缓存，设置 pc=pcfirst。一些来源信息在这里http://www.contextures.com/xlPivot11.html和这里http://www.mrexcel.com/forum/excel-questions/380933-set-multiple-pivot-cache-read-one-cache.html

Answer 2

我还没有真正习惯数据模型，对此我无法提供毫无疑问的解释。

但我使用该代码清理了我正在开发的一个报告系统，这可能会帮助您减少 PivotCache：

Sub Caches_Matches()
Dim Ws1 As Worksheet, _
    Pt1 As PivotTable, _
    Ws2 As Worksheet, _
    Pt2 As PivotTable, _
    PcNb As Integer

PcNb = ActiveWorkbook.PivotCaches.Count
MsgBox "PivotCaches.Count = " & PcNb, vbInformation + vbOKOnly, "Before update"

On Error Resume Next

    For Each Ws1 In ActiveWorkbook.Worksheets
        For Each Pt1 In Ws1.PivotTables
            'fix one pt, loop all of them and set same cache if same source
            For Each Ws2 In ActiveWorkbook.Worksheets
                For Each Pt2 In Ws2.PivotTables
                    If Pt1.SourceData <> Pt2.SourceData Or Pt1.PivotCache = Pt2.PivotCache Or Pt1.Name = Pt2.Name Then
                    Else
                        Pt2.CacheIndex = Pt1.PivotCache.Index
                    End If
                Next Pt2
            Next Ws2
        Next Pt1
    Next Ws1

MsgBox "PivotCaches.Count = " & ActiveWorkbook.PivotCaches.Count & Chr(10) & _
        "Before update = " & PcNb, vbInformation + vbOKOnly, "After update"
End Sub