vba - VBA PivotItems 索引变量

Question

我正在尝试遍历 OLAP 数据透视表中不同年份的数据，并且每年我都必须向下钻取以获取我正在寻找的数据。这是宏记录器给我的 2013 年：

'This is the cell that has to be drilled down
Range("A2").Select

With ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[YMD].[Year Name]") _

.PivotItems("[Date].[YMD].[Year Name].&[***2013***]").DrilledDown = True

End With

[Date].[YMD] 是字段名称，[Year Name] 是源名称。

但是，我正在尝试用变量“Yr”替换 &[2013]，这将允许我选择然后深入了解每一年。

但我收到以下消息：“无法获取 PivotField 类的 PivotItems 属性”

PivotItems 索引是否有特定的语法？使用变量从 OLAP 数据透视表中引用是否有限制？我尝试将 Yr 定义为 Double 和 Variable，但它没有帮助..

感谢您的任何建议！

Answer 1

尝试这个

Dim YR As Integer

YR = 2013

With ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[YMD].[Year Name]") _
.PivotItems("[Date].[YMD].[Year Name].&[" & YR & "]").DrilledDown = True


End With