VBA中数据透视表xlPivotTableVersion怎样设置成跟随Excel版本变化

Henryxzkxu

做了一个数据透视表刷新的宏命令，但是复制到其他电脑后不能运行，进检查是Excel版本不同xlPivotTableVersion也不一样，有没有方法让xlPivotTableVersion参数跟随Excel的版本自动变化？

ActiveSheet.PivotTables("数据透视表1").ChangePivotCache ActiveWorkbook.PivotCaches. _
        Create(SourceType:=xlDatabase, SourceData:="Datasouce!A3:F" & dsrows, Version:= _
        xlPivotTableVersion15)
    ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

我尝试在Cover表Range（“A1”）单元格手工输入15，把 Version:= _xlPivotTableVersion15)变为 Version:= _
        “xlPivotTableVersion“&sheet("Cover").range("A1").value)

不成功。

请教各位有什么好办法？

Chip_Kenny

刪除代碼中的 version:=....... 及 defaultVersion:=......