Question

我正在寻求帮助。

我正面临一个问题，试图在Excel中创建一个数据透视表。

当我运行以下代码时：

Sub Create_Pivot()


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    Sheets("Data In Scope").Cells(1).CurrentRegion.Address).CreatePivotTableTableDestination:=Worksheets("Pivot For Data").Range("A1"), TableName:= _
    "PivotTable1", DefaultVersion:=xlPivotTableVersion10


End Sub

我没有问题，但我需要使用Pivot表版本14。

当我添加以下代码时：

Sub Create_Pivot()


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    Sheets("Data In Scope").Cells(1).CurrentRegion.Address).CreatePivotTable TableDestination:=Worksheets("Pivot For Data").Range("A1"), TableName:= _
    "PivotTable1", DefaultVersion:=xlPivotTableVersion14


End Sub

我收到运行时错误＆＃39; 5＆＃39;无效的过程调用或参数

非常感谢任何协助。

w ^

Answer 1

添加PivotCache时还需要指定版本。你需要添加：

Version:=xlPivotTableVersion14

添加方法中的参数列表。

Answer 2

您需要使用PivotCaches.Create而不是弃用的PivotCaches.Add方法

Sub Create_Pivot()


ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    Sheets("Data In Scope").Cells(1).CurrentRegion.Address, Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=Worksheets("Pivot For Data").Range("A1"), TableName:= _
    "PivotTable1", DefaultVersion:=xlPivotTableVersion14


End Sub

创建数据透视表VBA时出错

2 个答案: