技巧249提问（取得工作表名的方法）

wsjqwhw

对于技巧249或相关的技巧，如果不想使用宏表函数或VBA，请问有其他办法实现吗？

[此贴子已经被gouweicao78于2007-5-11 22:49:33编辑过]

gouweicao78

如果仅取得当前工作表名（单个），用CELL("filename"，……可以做到

比如：定义名称

sht=REPLACE(CELL("filename",！A1),1,FIND("]",CELL("filename",！A1)),)

则在每个工作表输入=sht都可以得到该工作表的名称。

如果需要得到正个工作簿内工作表名数组，则需要宏表函数了。

wsjqwhw

谢谢陈版主，个人认为宏表函数是微软在excel4.0中使用的，以微软的一贯风格，很快就会不支持。

所以不想使用该类函数。如果用VBA去解决，有可能性吗？

我的想法是在一个多工作表的工作簿中做个cover pages

在一列中依次列出所有或从制定的数字起的所有工作表名，并结合技巧235建立超链接。

[em04]

gouweicao78

to wsjqwhw:

个人认为宏表函数是微软在excel4.0中使用的，以微软的一贯风格，很快就会不支持。

Excel2007还是支持宏表4.0函数的。

另，你所描述的功能完全可以实现。比如取得工作簿内所有工作表名（内存数组）之后，可以用=index(wk，row(1:1))下拖得到各个表名称。

还有gvntw版主的帖子：[原创]LOOKUP()在处理内存数组中的应用例子中

，可以得到除掉当前表外的其他工作表名内存数组。

wsjqwhw

QUOTE:

以下是引用gouweicao78在2007-5-14 0:59:31的发言：

to wsjqwhw:

QUOTE:

个人认为宏表函数是微软在excel4.0中使用的，以微软的一贯风格，很快就会不支持。

Excel2007还是支持宏表4.0函数的。

但我认为很快就不支持了。

QUOTE:

另外关于你引的帖子，其实就是书中技巧269的内容，我认为其实可以在图249-2的基础上+Transpose就可以了。

QUOTE:

关键是实现这个结果，能否不用宏表函数，而改用VBA，或不用VBA

[em04]

gvntw

Function GetSht(i As Integer)
    Application.Volatile
    GetSht = ThisWorkbook.Worksheets(i).Name
End Function

用法：

=GetSht(i)

取第i个工作表名，工作表改名，公式自动更新。

gvntw

取本工作表名：

Function GetShtName()
    Application.Volatile
    GetShtName = Application.Caller.Parent.Name
End Function

=GetShtName()

wsjqwhw

Great