create pivot table in VBA

R

rdavid2

I am trying to create a very simple pivot table from a datafile in a macro. I
can manually do all the steps but when I record the steps I get the error
Add Fields method of PivotTable Class failed. Can someone point out this
newbie's error?
thanks
Sub test1()
'
' test1 Macro
' Macro recorded 3/22/2007 by LUPF
'

'
Workbooks.OpenText Filename:="M:\Reporting\TES_CODER.txt", Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=False _
, Space:=False, Other:=True, OtherChar:="~",
FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 3), Array(5, 1), Array(6, 2),
Array(7, 1), Array(8, 1), _
Array(9, 1)), TrailingMinusNumbers:=True
Columns("G:G").Select
Selection.NumberFormat = "0.00"
Range("A1:I1").Select
Selection.Font.Bold = True
Cells.Select
Cells.EntireColumn.AutoFit



ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TES_CODER!C1:C2").CreatePivotTable TableDestination:="",
TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Modified
User" '******* ERROR HERE ********

ActiveSheet.PivotTables("PivotTable1").PivotFields("Transaction").Orientation
_
= xlDataField
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
End Sub

rdavid2
 
D

Dave Peterson

My first guess is that you don't have a header in column A or B that is
exactly: "Modified User"

Did you really mean to use just columns 1 and 2?
"TES_CODER!C1:C2"
 
R

rdavid2

Dave,
I have a column called "Modified User". I have requested that all the
column names get the spaces replaced with under scores. I also tried clearing
away the extra columns to get to just what was needed ( where I got it down
to C1:C2). I figure it is something really simple that I am missing.
bob
 
D

Dave Peterson

If you know the headers are in the first line of the text file--but you can't
trust the spelling, you could change your code to just overwrite those headers:

After you import the data, but before the pivottable:

activesheet.range("a1").resize(1,2).value _
= array("firstheaderhere", "Modified User")
 
R

rdavid2

Dave,
Thanks for the tip on the column headers. I had the column headers
changed and now the macro runs and creates the pivot table.
thanks
bob
 

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

Top