录制宏所得数据透视表一直报错

Question

想调出数据透视表，就录了一个宏，但运行时总弹出‘5’，无效的过程调用或参数”。十分困惑
 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "BMW!R1C1:R1048576C2", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="BMW!R1C7", TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion15
    Sheets("BMW").Select
    Cells(1, 7).Select
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("Summe")
        .Orientation = xlRowField
        .Position = 1
    End With

Answer 1

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "BMW!R1C1:R1048576C2", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="BMW!R1C7", TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion15确认一下，你的原数据，行数是否有1048576 这么多。我怀疑有一堆空行。
还有，你选的数据范围只有C1和C2两列，但为啥后面会出现C7的参数。
仅从代码直观的地方提出两点疑再检查看看，没有实际操作验证，不一定是我说的这个两个地方的问题。