创建Pivot VBA时出错
问题描述:
我正在寻找一些帮助。创建Pivot VBA时出错
我面临一个问题,试图在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
答
您还需要在添加PivotCache时指定版本。您需要添加:
Version:=xlPivotTableVersion14
添加到Add方法中的参数列表。
答
您需要使用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