Hi all,

When I run my VBA, there was a message:

"Run-Time Error '1004':

The pivotTable field name is not valid. To create a pivottable report,
you must use data that is organized as a list with labeled columns. If
you are changing the name of a pivottable field, you must type a new
name for the field."

It occurred when running:
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, _
SourceData:=PRange.Address)
Set PT = PTCache.CreatePivotTable(TableDestination:=shhet1. Range
("A1"), _
TableName:="PovitTable1")

Any help is appreciated

Fei

Hi,
You can try changing ActiveWorkbook.PivotCaches.Add to ActiveWorkbook.
PivotCaches.Create


Fei wrote:
Hi all,

When I run my VBA, there was a message:

"Run-Time Error '1004':

The pivotTable field name is not valid. To create a pivottable report,
you must use data that is organized as a list with labeled columns. If
you are changing the name of a pivottable field, you must type a new
name for the field."

It occurred when running:
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, _
SourceData:=PRange.Address)
Set PT = PTCache.CreatePivotTable(TableDestination:=shhet1. Range
("A1"), _
TableName:="PovitTable1")

Any help is appreciated

Fei

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200901/1

Hard to tell without seeing the source data, but maybe try one of these...

Set PT = PTCache.CreatePivotTable(TableDestination:=shhet1. Range
Did you mean "sheet1" ?

SourceData:=PRange.Address
Try just
SourceData:=PRange

Tim


"Fei" wrote in message
...
Hi all,

When I run my VBA, there was a message:

"Run-Time Error '1004':

The pivotTable field name is not valid. To create a pivottable report,
you must use data that is organized as a list with labeled columns. If
you are changing the name of a pivottable field, you must type a new
name for the field."

It occurred when running:
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, _
SourceData:=PRange.Address)
Set PT = PTCache.CreatePivotTable(TableDestination:=shhet1. Range
("A1"), _
TableName:="PovitTable1")

Any help is appreciated

Fei

Thanks all!

I have tried “create” - but not working.....

Sheet1 is the name of my worksheet, which contains my Pivot table –
“Dim Sheet1=Worksheets(Pivot Table)”. As the table and data are in two
worksheets, i have to specify the sheet name...

Also, after the run-time error 1004, when i continue to run the codes,
there is another error - "run-time error '-2147417848(80010108)":
Method 'CreatePivoteTable' of object 'PivotCache' failed'"....

I followed the sample codes, and the data is normal dataset......not
sure why...

Thanks

Fei