新建透视表sheet
Sheets.Add
ActiveSheet.Name = "PV_TB"
'判断透视表的版本号创建相应版本透视表
Select Case Application.VERSION
Case Is = "16.0" 'Excel2016
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
PRange.Address, VERSION:=6).CreatePivotTable _
TableDestination:="PV_TB!R3C1", TableName:="数据透视表", DefaultVersion:=6
Case Is = "15.0" 'Excel2013
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
PRange.Address, VERSION:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="PV_TB!R3C1", TableName:="数据透视表", DefaultVersion:=xlPivotTableVersion15
Case Is = "14.0" 'Excel2010
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
PRange.Address, VERSION:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="PV_TB!R3C1", TableName:="数据透视表", DefaultVersion:=xlPivotTableVersion14
Case Is = "12.0" 'Excel2007
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
PRange.Address, VERSION:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="PV_TB!R3C1", TableName:="数据透视表", DefaultVersion:=xlPivotTableVersion12
Case Is = "11.0" 'Excel2003
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
PRange.Address, VERSION:=xlPivotTableVersion11).CreatePivotTable _
TableDestination:="PV_TB!R3C1", TableName:="数据透视表", DefaultVersion:=xlPivotTableVersion11
End Select