为什么在 excel2016 中我无法从 1 个数据透视缓存创建 2 个数据透视表答案

【问题标题】：How come in excel2016 I cannot create 2 pivottable from 1 pivotcache为什么在 excel2016 中我无法从 1 个数据透视缓存创建 2 个数据透视表
【发布时间】：2017-10-03 18:43:48
【问题描述】：

在所有以前版本的 excel 中，创建一个数据透视缓存都没有问题。然后从该数据透视缓存创建几个数据透视表。现在我在 excel 2016 中使用相同的技术。它只是让我出错。这是我的代码：

Sub Maketbl()
 Dim Pvt As PivotTable, Pvch As PivotCache

[F:G].Clear

Set Pvch = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R6C3", Version:=6)
 '''''''''''''''''''''''
Set Pvt = Pvch.CreatePivotTable(TableDestination:= _
        "Sheet1!R1C6", DefaultVersion:=6)
With Pvt

        .AddFields RowFields:="SEASON"
        .AddDataField .PivotFields("QTY"), "Sum of QTY", xlSum
End With
''''''''''''''''''''''''''
Set Pvt = Pvch.CreatePivotTable(TableDestination:= _
        "Sheet1!R10C6", DefaultVersion:=6)
With Pvt
        .AddFields RowFields:="ITEM"
        .AddDataField .PivotFields("QTY"), "Sum of QTY", xlSum
End With

End Sub

错误消息是：

运行时错误'-2147417848 (80010108)'：

自动化错误

调用的对象已与其客户端断开连接。

如果我为第二个数据透视表创建另一个数据透视缓存，我不会有任何问题。但是我每次都需要生成 140 个数据透视表，我不想创建 140 个数据透视缓存。那会使我的书太重。有人可以帮我弄清楚如何在 excel 2016 中进行编码吗？

【问题讨论】：

您的代码对我来说很好，如 Excel 2016 中发布的那样。
我们也遇到了类似的问题（0x80010105 服务器抛出异常），因为最近 2016 年的更新和来自客户的报告正在增加:( 看起来办公室团队一如既往地破坏了一些东西。我们仍在尝试创建解决方法。

标签： excel pivot-table vba

【解决方案1】：

升级到 Excel 2016 后，我的代码也遇到了完全相同的问题。

我的解决方法是创建新的数据透视缓存，但将其设为临时，方法是立即将新数据透视表的 CacheIndex 重新分配给第一个数据透视缓存。

优点：有效。并且没有增加工作簿大小。
缺点：由于创建一次性 PivotCache 会影响性能。

代码：

' First PivotTable

Set pivotTable1 = ThisWorkbook.PivotCaches.Create(...).CreatePivotTable(...)

' Second PivotTable, same SourceData, but create a new cache as workaround

Set pivotTable2 = ThisWorkbook.PivotCaches.Create(...).CreatePivotTable(...)

' Make pivotTable2 use pivotTable1's PivotCache

pivotTable2.CacheIndex = pivotTable1.PivotCache.Index

' At this point, after pivotTable2's CacheIndex is re-assigned, the 2nd
' PivotCache is no longer in use, and Excel/VBA removes it automatically.

【讨论】：