求助-VBA录制宏创建Pivot遇到问题

aimsakuraew

录制的宏代码如下：
Sub Macro1()


    Cells.Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "BoM!C1:C5").CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable1"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1")
        .NullString = "0"
        .SmallGrid = False
    End With
    ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:= _
        "Component number", ColumnFields:="List"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Qty (CUn)")
        .Orientation = xlDataField
        .Caption = "Sum of Qty (CUn)"
        .Function = xlSum
    End With
End Sub

然后把这个Pivot删掉之后，用VBA想跑出一个一样的Pivot，结果提示AddFields method of PivotTable class failed.
提示一下代码有问题
    ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:= _
        "Component number", ColumnFields:="List"
球高手帮忙解答！

amolin

传个附件，才好调试。。。

aimsakuraew

不好意思...附件如下
workbook里面本来没有sheet1那个表，只有一个BoM的表，想通过对sheet BoM 自动生成数据透视表，行标为compontant，列标为list，数据为Qty(CUn)
但是录制宏出来的结果没办法运行。

aimsakuraew

无奈，自己顶一下，求高手帮忙啊！