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”替换＆amp; [2013]，这样我就可以选择并逐步深入到每年。

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

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

感谢您的任何建议!!

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

VBA PivotItems索引变量

1 个答案: