T
Tim
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:=xlDatabase,
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
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:=xlDatabase,
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