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