How to use GETPIVOTDATA() in VBA???

[stevenmcheerful]

My first time trying to use GETPIVOTDATA() in a VBA macro failed. Application.Worksheet.GetPivotData does not even seem to exist as a function in the Worksheet Object.

Does anyone know how to use GetPivotData function from VB?

thanks

- steve

 

[Juan Pablo González]

Should be something like this:<pre>Sub T()
Dim PT As PivotTable
Set PT = Sheet1.PivotTables(1)

MsgBox PT.GetPivotData("DataField", "Field1", "Item1", "Field2", "Item2").Value
End Sub</pre>

Look on the Help for the valid structure, and required parameters.

_________________
Regards,

Juan Pablo G.
MrExcel.com Consulting
This message was edited by Juan Pablo G. on 2002-08-25 15:19

 

[Juan Pablo González]

This is the example I have available on the Help files:

<pre>Sub UseGetPivotData()

Dim rngTableItem As Range

' Get PivotData for the quantity of chairs in the warehouse.
Set rngTableItem = ActiveCell. _
PivotTable.GetPivotData("Quantity", "Warehouse", "Chairs")

MsgBox "The quantity of chairs in the warehouse is: " & rngTableItem.Value

End Sub</pre>