Pivot Table DrilledDown

[safe1]

I am running a macro to pull data from a server into a pivot table.
However, each request is sent separately, increasing the query time.
Is there a way to combine these types of DrilledDown commands?


'Show detail year
ActiveSheet.PivotTables("Microsoft Office PivotTable 10.0").PivotFields( _
"[DATE].[Year_Month_Day].[Year]").DrilledDown = True

'Show detail month
ActiveSheet.PivotTables("Microsoft Office PivotTable 10.0").PivotFields( _
"[DATE].[Year_Month_Day].[Month]").DrilledDown = True