VBA – 生成数据透视表时所需的对象错误

我正在创build一个数据透视表。

我创造它几乎成功了。 下面是我的代码，

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 count”，xlCount

在添加这一行之前，我可以创build一个数据透视表。 我该如何纠正呢？

我通过可用的资源，据我所知，我已经通过暗淡的声明宣布的variables。

Answer 1

.AddDataField和PivotFields ("Colour"), "count of colour", xlCount With pt语句中的PivotFields ("Colour"), "count of colour", xlCount之间有一个空格。

改变你的：

 .AddDataField.PivotFields ("Colour"), "count of colour", xlCount 

至：

 .AddDataField .PivotFields("Colour"), "Count of Colour", xlCount 

没有With语句就是：

 pt.AddDataField pt.PivotFields("Colour"), "Count of Colour", xlCount