I keep getting errors when trying to create a pivot table from
existing sheet data... I'm actually using a web query to populate the
"RawData" sheet, then trying to use that data to create a pivot
table...

Does anyone have any ideas why this might not be working?

Thank in advance,
Tim


Dim PTCache As PivotCache
Dim Table As PivotTable

Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase,
SourceData:=Range("RawData!A1:F245"))
Set Table = PTCache.CreatePivotTable(TableDestination:=Sheets( "Upgrade
Report").Range("a18"), TableName:="ptUpgrade")

With Table
With .CubeFields(sRowField1)
.Orientation = xlRowField
.Position = 1
End With

If sRowField2 < "none" Then
With .CubeFields(sRowField2)
.Orientation = xlRowField
.Position = 2
End With
End If

With .CubeFields(sDataField)
.Orientation = xlDataField
.Position = 1
End With

End With

well, if you are getting data from a worksheet, I doubt you would have
Cubefields.

Why not turn on the macro recorder and create the table manually using your
data. Then turn it off and enrich the recorded code to do what you want.

--
Regards,
Tom Ogilvy

"Tim" wrote in message
om...
I keep getting errors when trying to create a pivot table from
existing sheet data... I'm actually using a web query to populate the
"RawData" sheet, then trying to use that data to create a pivot
table...

Does anyone have any ideas why this might not be working?

Thank in advance,
Tim


Dim PTCache As PivotCache
Dim Table As PivotTable

Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase,
SourceData:=Range("RawData!A1:F245"))
Set Table = PTCache.CreatePivotTable(TableDestination:=Sheets( "Upgrade
Report").Range("a18"), TableName:="ptUpgrade")

With Table
With .CubeFields(sRowField1)
.Orientation = xlRowField
.Position = 1
End With

If sRowField2 < "none" Then
With .CubeFields(sRowField2)
.Orientation = xlRowField
.Position = 2
End With
End If

With .CubeFields(sDataField)
.Orientation = xlDataField
.Position = 1
End With

End With