Thanks for that. What I'm really trying to do is construct the
arguments for the GetPivotData method in a function. I want the
function to accept the same arguments as the regular worksheet function
but my version will be able to handle Grand Totals for a particular
field. The regular version doesn't do this - you have to include lots
of different IF and GETPIVOTDATA functions depending on what you are
trying to retrieve. Hope I'm making sense! This is what I have at the
moment:
Function GPD3(sDataField As String, rPivotTable As Range, ParamArray
FieldValPairs())
Dim sArgs As Variant
Dim i As Integer
Dim j As Integer
j = 0
sArgs(j) = sDataField
For i = 0 To UBound(FieldValPairs()) Step 2
If FieldValPairs(i + 1) < "Grand Total" Then
sArgs(j) = FieldValPairs(i)
sArgs(j + 1) = FieldValPairs(i + 1)
j = j + 2
End If
Next i
GPD3 = rPivotTable.PivotTable.GetPivotData(Join(sArgs, ","))
End Function
--
blatham
------------------------------------------------------------------------
blatham's Profile:
http://www.excelforum.com/member.php...o&userid=19441
View this thread:
http://www.excelforum.com/showthread...hreadid=491996