I am still unable to find out what is wrong...
this is the whole code. is there a limitation since my rows is ~4000
rows and I just selected 13 columns?
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"'AS1-C'!C1:C13").CreatePivotTable TableDestination:= _
"'[Data Comparison - test1.xls]AS1'!R1C1",
TableName:="PivotTable10", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable10").AddFields RowFields:="Level
3", _
ColumnFields:="Date"
ActiveSheet.PivotTables("PivotTable10").PivotField s("RTF").Orientation
= _
xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Please help
--
acsugguiyao
------------------------------------------------------------------------
acsugguiyao's Profile:
http://www.excelforum.com/member.php...o&userid=24519
View this thread:
http://www.excelforum.com/showthread...hreadid=381168