美文网首页
vba 新建透视表sheet 判断版本

vba 新建透视表sheet 判断版本

作者: 匆匆那年过客 | 来源:发表于2019-05-07 17:14 被阅读0次

新建透视表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

相关文章

网友评论

      本文标题:vba 新建透视表sheet 判断版本

      本文链接:https://www.haomeiwen.com/subject/wqsyoqtx.html