关于透视表如何把数据源变成变量的问题，求解

ccc919

   sub test（）
Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "保内!R1C1:R425C34", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Sheet3!R3C1", TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion10
end sub

请问 选取单元格区域为变量（ 例如： !保内!$A$1:$AH$425 ， 这是选取的数据源的区域）那请问到上面表达试中如何写？才能正确输出？

蓝桥玄霜

sub test（）
ad1="保内!R1C1:R425C34"
ad2="Sheet3!R3C1"
Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
       ad1, Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:=ad2, TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion10
end sub

ccc919

蓝桥玄霜 发表于 2015-3-7 17:06
sub test（）
ad1="保内!R1C1:R425C34"
ad2="Sheet3!R3C1"

!保内!$A$1:$AH$425 请问这个如何转换成 "保内!R1C1:R425C34" 这样的