ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Create a pivot table in VBA (https://www.excelbanter.com/excel-programming/306068-create-pivot-table-vba.html)

Bruno[_3_]

Create a pivot table in VBA
 
Hi,
I created a macro (recorded macro)to make a pivot Table.
The generated code was the following:
(...)
Columns("A:H").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase,
SourceData:= _
"relat!C1:C8").CreatePivotTable
TableDestination:="", TableName:= _
"TD Vendas"
ActiveSheet.Name = "TPVsIva"
ActiveSheet.PivotTableWizard
TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select

ActiveSheet.PivotTables("TD Vendas").SmallGrid = False

ActiveSheet.PivotTables("TD Vendas").AddFields
RowFields:=Array( _
"Estrutura", "Dados"), PageFields:="Loja"
(...)

When I run the macro, the last line genarates an error
(Addfields Rowfields line).
The error is : "Run Time Error '1004'" with the
message "It was not possible to execute the
Addfields method of the
PivotTables collection"

Which is the problem?
When I recorded the macro everything was OK.

Thanks in advance for your replys,
Bruno
...


Bruno[_4_]

Create a pivot table in VBA
 
Hi people,

Can annyone help-me with this VBA error?

I forgot to said that I'm working with Excel 2000 with NT 4.

Thaks in advance
Bruno Cost

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



All times are GMT +1. The time now is 01:23 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com