VBA - 生成數據透視表時所需的對象錯誤

Question

我正在以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（ 「顏色」）， 「色數」，xlCount

在添加此行之前，我可以創建數據透視表。我該如何糾正這一點？

我經歷了可用的資源，據我所知，我已經通過dim語句聲明瞭變量。

Answer 1

With pt聲明中有.AddDataField和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