通過工作表循環數據透視表-AddDataField時失敗

Question

我已經處理了要處理的全部腳本的多個模塊，這是唯一對我不利的組件。 我可以使數據透視表的初始設置正常工作，但是添加“求和”字段后會出錯。 關於以下任何反饋將不勝感激。

    Sub PivotChart2()

    Dim LastRow As Long
    Dim ws As Worksheet
    Dim wb As Workbook

Set wb = ActiveWorkbook

For Each ws In wb.Sheets
    If ws.Name = "Sheet1" Or ws.Name = "ZIP_US" Then
        'Do Noathing
    Else

        LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        Set PDATA = Range("$A$1:$F" & LastRow)
        Dim PVTNAME As String
        Dim PT As PivotTable

        PVTNAME = Range("$K$1")

        Sheets(ws.Name).Select


        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        PDATA, Version:=6).CreatePivotTable TableDestination:= _
        ws.Name & "!R3C10", TableName:=Range("$K$1"), DefaultVersion:=6



        With ActiveSheet.PivotTables(1).PivotFields("STATE")
            .Orientation = xlRowField
            .Position = 1
        End With

        With ActiveSheet.PivotTables(1)
        .AddDataField ActiveSheet.PivotTables(1).PivotFields("SALES"), "Sum of SALES", xlSum
        End With

    End If

Next ws




        'pvt.PivotFields("STATE").Orientation = xlRowField
        'pvt.AddDataField pvt.PivotFields("SALES"), "Sum of SALES", xlSum

End Sub

給我錯誤的代碼部分如下：

 With ActiveSheet.PivotTables(1)
        .AddDataField ActiveSheet.PivotTables(1).PivotFields("SALES"), "Sum of SALES", xlSum
        End With

錯誤如下：運行時錯誤'1004'：無法獲取PivotTable類的PivotFields屬性

Answer 1

彼得-如您所述，我需要將其作為手動序列進行處理並查看代碼。 我只是這樣做，發現有問題的行需要修改為：

    ActiveSheet.PivotTables(1).AddDataField ActiveSheet.PivotTables( _
        1).PivotFields("SALES"), "Sum of SALES", xlSum