创建Pivot VBA时出错

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 

我没有问题，但我需要透视使用表格版本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 

我得到一个运行时错误“5”无效的过程调用或参数

任何援助将不胜感激。

W

Answer 1

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

Version:=xlPivotTableVersion14 

添加到Add方法中的参数列表。

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