Ahojte,
potřebuji pomocí makra vybírat z pivot table hodnoty, konkrétně z kalendářového pole.

ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Calendar].[Month Name]").VisibleItemsList = Array("[Date].[Calendar].[Month Name].&[7]&[2014]")

Tento kód bez potíží vybere červenec 2014, já bych však rád místo toho 7 a 2014 tam natlačil proměnné MESIC a ROK. Zkusil jsem:

... = Array("[Date].[Calendar].[Month Name].&[Mesic]&[Rok]")

což rezultovalo v chybu "The item could not be found in the OLAP cube"

Laboruju s uzavíráním do uvozovek a operandem &, ale nejsem schopen dosáhnout funkčního výsledku. Podotýkám, že nejsem silný v programování (nahraju makro a pak ho upravuju), takže možná to bude nechutně jednoduché... tak díky předem.