我正在vba中创建一个数据透视表 .
我几乎成功地创造了它 . 下面是我的代码，
Sub Pivot()
Dim ws As Worksheet
Dim pc As PivotCache
Dim pt As pivottable
Set ws = Sheets("Cat_Pivot")
Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Preparation Sheet!R1C7:R1048576C8")
Set pt = pc.CreatePivotTable(ws.range("B3"))
With pt
With .PivotFields("Category")
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields("Colour")
.Orientation = xlColumnField
.Position = 1
End With
.AddDataField.PivotFields ("Colour"), "count of colour", xlCount
End With
End Sub
当我添加行时，我得到一个对象必需的错误
.AddDataField.PivotFields（“Color”），“color of color”，xlCount
在添加此行之前，我可以创建一个数据透视表 . 我怎么能纠正这个？
我查看了可用的资源，据我所知，我已经通过dim Statement声明了变量 .
1 回答
在
With pt语句中.AddDataField和PivotFields ("Colour"), "count of colour", xlCount之间有一个空格 .改变你的：
至：
没有
With声明它是：