在数据透视表中设置方向属性时出错

Question

我现在有一个非常适合我的例程。

我尝试更改它但添加了一些行，但在此之后，我经常收到错误。 代码将每个数据透视表字段从5到122输入到数据透视表的值部分。仅在值部分中未输入最后一个透视字段。

到目前为止它工作得很好，但现在我改变了数字，我收到了一个错误：

runtime error 1004:
property 'Orientation' or classe Pivotfield cannot be set

关于出了什么问题的任何建议？

这是代码：

Sub AddAllFieldsValues()
Dim pt As PivotTable
Dim pf As PivotField
Dim iCol As Long
Dim iColEnd As Long

Set pt = Worksheets("pivot_long_term").PivotTables("Draaitabel1")

With pt
.ManualUpdate = True
    .DataPivotField.Orientation = xlHidden
    iCol = 5
   iColEnd = .PivotFields.Count

    For iCol = 5 To 122
        With .PivotFields(iCol)
          If .Orientation = 0 Then
              .Orientation = xlDataField
          End If
        End With
    Next iCol

.ManualUpdate = False

编辑：抱歉输入错误的标题：我首先遇到了另一个问题而忘了更改标题......