Excel2007是否可以通过编程方式向透视表添加数据/从透视表中删除数据？

Sub AddDataFieldToPivotTable()
    Dim pt As PivotTable
    Dim pf As PivotField
    
    ' 获取透视表对象
    Set pt = Worksheets("Sheet1").PivotTables("PivotTable1")
    
    ' 获取透视表字段对象
    Set pf = pt.PivotFields("Sales")
    
    ' 添加数据字段
    pt.AddDataField pf, "Sum of Sales", xlSum
    
    ' 刷新透视表
    pt.RefreshTable
End Sub

Sub RemoveDataFieldFromPivotTable()
    Dim pt As PivotTable
    Dim pf As PivotField
    
    ' 获取透视表对象
    Set pt = Worksheets("Sheet1").PivotTables("PivotTable1")
    
    ' 获取透视表字段对象
    Set pf = pt.PivotFields("Sum of Sales")
    
    ' 删除数据字段
    pf.Delete
    
    ' 刷新透视表
    pt.RefreshTable
End Sub