Creation of Pivot Table in VBA

B

Bruno

Hi,

I created a macro (recorded macro)to make a pivot Table.
The generated code is the following:

Columns("A:H").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
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"

In the last line, where I'm adding fields, appears a Run
Time Error '1004'
with the message "It was not possible to execute the
Addfields method of the
PivotTables collection"

Can you help me?

Thanks
Bruno
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Create a pivot table in VBA 1
Avoiding an extra sheet when creating a pivot table 3
Making a Pivot Table from data of a Close sheet visa Button(Macro) 0
Pivot Table Macro with dynamic source data 1
VBA for pivot tables 2
Creating pivot table to Existing worksheet 1
Prompt msg if the worksheet already exits 2
Pivot Table Macro 1

Top