以编程方式修改Excel数据透视表标准

Question

我有一个Excel电子表格模板，其中包含具有指定电子表格内容的条件的数据透视表。

我需要从单独电子表格中运行的宏以编程方式修改该标准，以便模板具有不同的内容。

什么编码适合实现这一目标？

Answer 1

下面的代码将更新单独工作簿中数据透视表的报表过滤器。

在此示例中，报告过滤器名为“位置”，其值已更改为“西部”

代码假定单独的工作簿已经打开。

Sub UpdatePivotFilter()

Workbooks("Book1.xls").Sheets("Sheet1").PivotTables("PivotTable1"). _
 PivotFields("Location").CurrentPage = "West"

End Sub