我在 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 Statement声明了变量。
语句之间.AddDataField和语句PivotFields ("Colour"), "count of colour", xlCount内部有一个空格With pt。
改变你的：
.AddDataField.PivotFields ("Colour"), "count of colour", xlCount
至：
.AddDataField .PivotFields("Colour"), "Count of Colour", xlCount
没有With声明它是：
pt.AddDataField pt.PivotFields("Colour"), "Count of Colour", xlCount
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句