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

Question

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

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

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

Answer 1

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

在这个例子中，报告过滤器被称为“位置”，它的值改为“西”

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

Sub UpdatePivotFilter() 

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

End Sub