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

Question

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

我为历史数据创建了一个数据透视表。 我需要做假设分析。 所以，我希望当我以编程方式向/从数据表中添加/删除新数据时，表格会自动更新。

第一张图片显示了我的数据透视表。

是否可以在不触及数据源的情况下向数据透视表添加条目？

我使用Excel 2007中

Answer 1

您可以通过更新枢轴缓存更新数据透视表，下面的代码允许在一张纸上打印多个数据透视表进行更新。

Sub UpdateDataSource() 

    Dim pt As PivotTable 
    Dim Data As String 

    'Data source of data 
    Data = "'Data'!$B:$AB" 

    For Each pt In ThisWorkbook.Sheets("Sheet1").PivotTables 
     pt.ChangePivotCache _ 
     ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _ 
     SourceData:=Data) 
    Next pt 

End Sub