更改数据透视表上的页面过滤器

时间:2012-08-10 20:23:34

标签: excel vba excel-vba excel-2007 pivot-table

如果我不能这样做,我可能会使用多个数据透视表,但无论如何我想尝试一下。

基本上,我有一个包含相当多行(45k +)的工作表,我想使用数据透视表将项目组合在一起,这样我就可以获得唯一身份,然后在Access数据库中匹配它们并添加新项目只要。我必须为几列做到这一点,所以我认为使用VBA过滤表可能是一个很好的解决方案,虽然我无法实现它。从MSDN我了解可以使用PivotFields.Add添加过滤器虽然我收到错误“参数或不正确的过程调用”(或类似的东西)。这是我尝试过的:

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

第一行有效地清除了过滤器,但第二行没有为“RUBRIQUES”的“NOTE”添加过滤器,并抛出我上面提到的错误。我完全不在这里,还是有一个我错过的细节?

1 个答案:

答案 0 :(得分:0)

在这里找到它:

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

解决方案是使用PivotFields.CurrentPage

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