更改数据透视表上的页面filter

如果我不能做到这一点,我可能会诉诸使用多个数据透视表,但无论如何我想试一试。

基本上,我有一个相当数量的行(45k +)的表,我想要使用数据透视表来将项目组合在一起,以便我可以获得唯一的匹配,然后在Access数据库中匹配它们,并只添加新的项目。 我必须这样做几个列,所以我认为使用VBA过滤表可能是一个很好的解决scheme,虽然我没有能够实现它。 从MSDN我明白,可以使用PivotFields.Add添加filter,虽然我得到一个错误“参数或不正确的过程调用”(或类似的东西)。 以下是我所尝试的:

Me.PivotTables("tcd_transits").PivotFields("NOTE").ClearAllFilters Me.PivotTables("tcd_transits").PivotFields("NOTE").PivotFilters.Add _ xlValueEquals, "NOTE", "RUBRIQUES" 

第一行有效清除filter,但第二行不会在“NOTE”上为“RUBRIQUES”添加filter,并引发上面提到的错误。 我完全偏离了这个道路还是有一个我错过的细节?

在这里find它:

http://excel.bigresource.com/Track/excel-0anuDfeJ/

解决scheme是使用PivotFields.CurrentPage

  Me.PivotTables("tcd_transits").PivotFields("NOTE").CurrentPage = "TRANSITS"