View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default Pivot Table Macro to run in XL2000

AddDataField doesn't appear to be a method available in xl2000.

--
Regards,
Tom Ogilvy


"Jonathan May " wrote in
message ...
I have an Excel2003 macro that creates a pivot table; I now need to get
it to run in Excel 2000. I don't have access to any Excel 2000 help
and I'm stuck!

The relevent part of the Excel 2003 macro is as follows

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"'Data'!R1C2:R" & lrow & "C26").CreatePivotTable
TableDestination:= _
"'[Invoicing v0.01.xls]Data'!R1C30", TableName:="PivotTable3"
With ActiveSheet.PivotTables("PivotTable3").PivotFields ("Order
No.")
Orientation = xlRowField
Position = 1
End With
ActiveSheet.PivotTables("PivotTable3").AddDataFiel d
ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("Pick & Pack"), "Pick & Pack Total",
xlSum

etc...

On running this in Excel 2000 the code crashes with the last two lines
highlighted...

..Any advice on what to change for to make it run would be very much
appreciated!

Thanks in advance for any help
Jonathan


---
Message posted from http://www.ExcelForum.com/