小白求助：VBA如何对于Power Pivot的筛选实现实时月份选择

TinTin_

数据导入Power Pivot中，附件中的Month想自动根据Today()的月份进行筛选，我尝试赋值变量i=Month(Date)，但不知道如何修改最下面红色标注的[3月]，尝试写的都一直报错。请大家帮忙看看，谢谢大家！
    ActiveSheet.PivotTables("数据透视表1").PivotFields("[Calendar].[Month].[Month]"). _
        ClearAllFilters
    ActiveSheet.PivotTables("数据透视表1").PivotFields("[Calendar].[Month].[Month]"). _
        CurrentPageName = "[Calendar].[Month].&[3月]"


（实际工作中有很多Workbook中的透视表需要根据时间变化点选月份，所以想尝试用VBA批量进行选择哈~）

ykcbf1100

既然用VBA了，那为啥还要用Power Pivot呢？可以完全让VBA来解决嘛。

剑指E

语法中连接符&是多余的，其它未测试

TinTin_

ykcbf1100 发表于 2023-3-17 14:21
既然用VBA了，那为啥还要用Power Pivot呢？可以完全让VBA来解决嘛。

Power Pivot无法进行批量操作。我实际工作中需要用到Power Pivot中的Dax函数，但我现在需要用VBA批量对于多个Workbook超级透视表中的Month进行当月筛选哈

ykcbf1100

TinTin_ 发表于 2023-3-17 14:33
Power Pivot无法进行批量操作。我实际工作中需要用到Power Pivot中的Dax函数，但我现在需要用VBA批量对于 ...

我的意思是完全让VBA来做你要做的事。
有VBA了，其实可以不用透视表。

TinTin_

剑指E 发表于 2023-3-17 14:32
语法中连接符&是多余的，其它未测试

尝试去掉&不行