VBA CODE OLAP Pivot Table Excel 2007

[honda17]

Hi,

I have a workbook with a pivot tables on each tab, these pivot tables are connected to an OLAP Cube in MS SQL Server database, I am trying to update all pivots programmatically by changing the filter items. Any help is appreciated.
Thx

[Bob Phillips]

When you say update, do you mean you wish to change whata is being filtered, or add/remove items from therows/columns?

[honda17]

I mean change what it is filtered.

[Bob Phillips]

You have to specify the dimension, the item in the dimension and the value.

This is an example from one of mine

[vba]

ActiveSheet.PivotTables("myPivot").PivotFields( _
"[Location Master].[Location Hierarchy]").CurrentPageName = _
"[Location Master].[Location Hierarchy].[Location Type].&[BONDED]"
[/vba]