VB 工作表名称纠结

杜禄冠

以下是VB自动做透视表时的一段语句
   ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "sheet1!A1:U" & r - 1).CreatePivotTable TableDestination:="", TableName:="数据透视表1", _...
其中"sheet1!A1:U" & r 中的sheet1名称经常变换,请教各位资深大大,如何才能提取当前工作表名称并传递给上述的语句?或者如何将当前工作表名称统一命名为sheet1,以便使上述语句不失效.先叩谢了!

异路天涯

sheet名称经常变换的话可以用标签名来引用

杜禄冠

异路天涯 发表于 2013-3-13 16:08
sheet名称经常变换的话可以用标签名来引用

大大稍稍公布一下细节可否,偶刚开始耍VB,还不熟

Chip_Kenny

若数据源为A1的整个区块,建议先用以下代码建立name

Dim PivotData as string
PivotData = "data" & Format(Now(), "yymmddhhmmss")
ActiveWorkbook.Names.Add Name:=PivotData, _
RefersToR1C1:=Range("a1").CurrentRegion '将A1的整个区块命名为 data & 目前的 年月日时分秒,配合resize 可作调整

' 取代"sheet1!A1:U" & r - 1
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"PivotData").CreatePivotTable TableDestination:=............

异路天涯

杜禄冠 发表于 2013-3-13 16:13
大大稍稍公布一下细节可否,偶刚开始耍VB,还不熟

我也刚学
你的代码我也是一知半解
但是我知道表的标签是基本固定的不会随你的表名变化，就是提供个思路

杜禄冠

后来这么干了:    Worksheets(1).Name = "sheet1"