dynamic.PivotFields参数

我正在处理macros以自动扩展数据透视表中的特定字段。 我已经得到了macros的工作，我想如何。

有没有办法将它的一个特定部分变成一个variables，以便当需要扩展的月份更改时，我可以快速更新它，或者使用户窗体也可以更新它？

代码如下：

For Each pt In ws1.PivotTables pt.PivotFields( _ "[Date].[ByCalendar].[Calendar Month]").PivotItems( _ "[Date].[ByCalendar].[Calendar Month].&[2015]&[4]").DrilledDown = True Next pt 

我想要设置为variables的部分是.&[2015]&[4]我需要能够快速地改变它说.&[2015]&[5]等，而不需要总是进入代码和手动改变那个部分。 我有大约20桌得到更新。

Answer 1

如果你想要每个新月更新。 你想改变

 "[Date].[ByCalendar].[Calendar Month].&[2015]&[4]" 

至

 "[Date].[ByCalendar].[Calendar Month].&[" & year(now) & "]&[" & month(now) & "]" 

它从系统时钟“现在”。 所以如果你想testing它改变系统时钟的date，然后更新它。