vba - Excel vba : error hiding calculated field in Pivot table

Question

我写了几个 Subs 来显示/隐藏数据透视表中的字段。
现在我正在尝试对计算字段执行相同的操作，但是在隐藏它时出现错误。
我从记录器中取出我的代码，记录器的代码也停在最后一行。
我用谷歌搜索了错误消息，没有严重的结果。

Sub PrRemove()
    'remove PR
    Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables("MyPivot")
    pt.PivotFields("MyField").Orientation = xlHidden   '<- here is the error
End Sub

如果 MyField 是普通字段(不是计算字段)，则相同的代码可以正常工作。
我正在使用带有 SP2 的 Excel 2007。
有什么线索吗？

2010 年 6 月 17 日编辑 :我也尝试使用 pt.DataFields 而不是 pt.PivotFields，其行为完全相同。错误消息显示“无法设置 PivotField 类的方向”。

Answer 1

在拉了很多头发之后，我找到了解决方法。
如果您添加多个数据透视字段(计算或其他方式)，则 Excel 会创建一个名为“值”的分组字段。您可以将 PivotField("Values") 的方向属性设置为 xlHidden ，它会为这两个字段添加项目符号。因此，如果要删除计算字段，只需添加一个非计算字段，将 PivotField("Values").orientation 设置为 xlHidden 即可。

没有人说它会很漂亮...