如何在Excel VBA中修复“无法设置PivotField类的Position属性”错误

ActiveSheet.PivotTables("PivotTable1").PivotFields("FieldName").Position = xlNone

Sub RecreatePivotTable()
    Dim ws As Worksheet
    Dim rng As Range
    Dim pt As PivotTable
    
    ' 设置数据源范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:D10")
    
    ' 删除原有的数据透视表（如果存在）
    For Each pt In ws.PivotTables
        pt.TableRange2.Clear
        pt.PivotCache.Clear
        pt.Delete
    Next pt
    
    ' 创建新的数据透视表
    Set pt = ws.PivotTableWizard(SourceType:=xlDatabase, SourceData:=rng, _
        TableDestination:=ws.Range("F1"), TableName:="PivotTable1")
    
    ' 设置数据透视表字段位置
    With pt.PivotFields("FieldName")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub