透视表的SourceData产生如何填写

sandwich

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "sheet1!R1C1:R130C17").CreatePivotTable TableDestination:="", _
        TableName:="数据透视表1", DefaultVersion:=xlPivotTableVersion10

如何修改SourceData区域为表的所有区域，即 “sheet1!R1C1:RXXXCYYY”
XXX为行数
YYY为列数
如何写这个语句？

[ 本帖最后由 sandwich 于 2009-1-14 08:47 编辑 ]

glooan

用一个字符串代替中间的  "测试发现的变更单70版本!R1C1:R130C17" 内容
str= "Sheet1!" & Range(Cells(x, y), Cells(i, j)).Address(ReferenceStyle:=xlR1C1)