生成数据透视表时出现错误438

时间:2017-07-03 08:17:25

标签: excel vba excel-vba

我正在尝试在工作表PW中生成数据透视表。 我想将“标签”列中的值带到中心,因此,我包含了

  

.Horizo​​ntalAlignment = xlCenter

当我包含这个时,我收到错误

  

object不支持此属性或方法

这是完整的代码,我用于创建数据透视表。

Sub status()
Dim ws1 As Worksheet
Dim pc1 As PivotCache
Dim pt1 As PivotTable
Dim ct1 As Integer
Set ws1 = Sheets("PW")
Set pc1 = ActiveWorkbook.PivotCaches.Create(xlDatabase, "'BW'!R4C18:R1048576C29")
Set pt1 = pc1.CreatePivotTable(ws1.Range("A3"))
pt1.AddDataField pt1.PivotFields(" Mismatch"), "Sum of  Mismatch", xlCount
With pt1
With .PivotFields("Location in full form")
.Orientation = xlRowField
.Position = 1
.AutoSort xlDescending, "Sum of Mismatch"
End With
With .PivotFields(" Mismatch")
.Orientation = xlColumnField
.Position = 1
.PivotItems("(blank)").Visible = True
.HorizontalAlignment = xlCenter
End With
End With
End Sub

任何人都可以建议,我如何将我的Pivot列中的值带到Center。

1 个答案:

答案 0 :(得分:0)

您必须将该属性应用于pivot字段的TrueDataRange属性(或两者)。