我坚持更改VBA中的OLAP多维数据集中的报表筛选器

我有一个名为“标记范围”的字段，它被设置为一个OLAP立方体中的一个报表filter。 我经常从多个表格中筛选出“0.00”的值，所以想自动化这个任务。

但问题是，当我logging一个过滤掉macros的macros时，为了弄清楚如何处理这个任务，我得到了大量的“AddPageItem”语句。 每个项目在“标记范围”一个。 总计数千。 我没有find一个替代“AddPageItem”为这个特定的目的。

我也尝试过“HiddenItemsList”。 没有工作。 以下是这些“AddPageItems”语句的示例：

With ActiveSheet.PivotTables(1).PivotFields("[Markup Range]") .AddPageItem "[Markup Range].[All Markup Range].[.01]", True .AddPageItem "[Markup Range].[All Markup Range].[.02]" .AddPageItem "[Markup Range].[All Markup Range].[.03]" .AddPageItem "[Markup Range].[All Markup Range].[.04]" .AddPageItem "[Markup Range].[All Markup Range].[.05]" .AddPageItem "[Markup Range].[All Markup Range].[.06]" .AddPageItem "[Markup Range].[All Markup Range].[.07]" .AddPageItem "[Markup Range].[All Markup Range].[.08]" 

这个名单一直持续到99.99。 尽pipe手头的任务是非常简单的，但我似乎找不到任何其他方式来做到这一点。

任何forms的帮助，将不胜感激。