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

Question

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

Dim oPI As PivotItems

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

我收到运行时错误 13 - “类型不匹配”错误。不知道这段代码有什么问题。任何人都可以让我知道要进行哪些更改吗？

Answer 1

将您的声明替换为oPi：

将 oPi 调暗为对象

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

Answer 2

使用这个伙伴：

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