Excel VBA：运行时错误 13 - 折叠数据透视项时类型不匹配答案

【问题标题】：Excel VBA: runtime error 13 - type mismatch while collapsing the pivotitemsExcel VBA：运行时错误 13 - 折叠数据透视项时类型不匹配
【发布时间】：2013-01-15 04:40:57
【问题描述】：

我正在尝试使用 VBA 通过循环折叠数据透视项目。下面是代码：

Dim oPI As PivotItems

For Each oPI In ActiveSheet.PivotTables("PivotTable4").PivotFields("TAG").PivotItems
oPI.ShowDetail = False
Next oPI

我收到运行时错误 13 - “类型不匹配”错误。不知道这段代码有什么问题。谁能告诉我要进行哪些更改？

【问题讨论】：

现在已排序。我错误地声明为 PivotItems 而不是 PivotItem。

标签： vba runtime-error pivot-table pivotitem

【解决方案1】：

将您的声明替换为oPi：

将 oPi 调暗为对象

会达到你想要的。 For Each 循环需要 Object/Variant 类型的变量。

【讨论】：

【解决方案2】：

使用这个伙伴：

ActiveSheet.PivotTables("Name_of_your_pitot_table").PivotFields("pivot_field_name").ShowDetail = False

【讨论】：