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

Question

Is it possible to delete pivot field from pivot table field list in VBA code?

I am using Excel 2007.

Answer 1

I haven't worked for a long time with Excel + VBA, but have you tried something like:

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

This code should work to delete a field from the pivot table.

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