从 VBA 中的 pivot 表字段列表中删除 pivot 字段

Question

是否可以从 VBA 代码中的 pivot 表字段列表中删除 pivot 字段？

我正在使用 Excel 2007。

Answer 1

我已经很久没有使用 Excel + VBA 了，但是你有没有尝试过类似的东西：

Dim pvtField As Excel.PivotField
Dim pvtItem As Excel.PivotItem
For Each pvtField In pvtTable.PivotFields 
    For Each pvtItem In pvtField.PivotItems 
        pvtItem.Delete 
    Next 
Next 

Answer 2

此代码应该可以从 pivot 表中删除一个字段。

    ActiveSheet.PivotTables("Name of Table").PivotFields( _
    "Name of Field").Orientation = xlHidden