能用函数求出一个工作簿中所有工作表的名称吗

nimda

如题。
例：一个EXCEL工作簿中有30张表，想通过函数来获得这30个表的表名，不知有没办法。

雪儿浪漫想

请参考:
http://tieba.baidu.com/f?kz=101718600

wingpan

原帖由 nimda 于 2009-10-16 21:10 发表
如题。
例：一个EXCEL工作簿中有30张表，想通过函数来获得这30个表的表名，不知有没办法。

可用宏表函数.

smhf_6

能用宏吗？
如果可以则
Sub xxx()
Dim sh As Worksheet
i = 5
For Each sh In Worksheets
Cells(i, 1) = sh.Name
i = i + 1
Next
End Sub

李巴

我只知道用宏

nimda

呵,用宏的我自己可以解决,但不知道函数能不能解决

雪儿浪漫想

2楼给的链接没去学习?

nimda

终于找到不能宏也能解决这个问题的方法了。高手们可真厉害啊。
首先在“插入/定义/名称”里定义两个名称“工作表”和“工作表名称”（其中工作表名称不定义也可），即：
工作表 =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())
工作表名称 =LOOKUP(ROW(INDIRECT("1:"&COLUMNS(工作表))),MATCH(工作表,工作表,),工作表)
然后随便在某一个单元格内输入公式 =INDEX(工作表,ROW(A1)) 或 =INDEX(工作表名称,ROW(A1)) ，然后拖动填充柄向下拖曳，就可以获得所有工作表的名称了。
如想在获得工作表的名称的同时建立超链接，可以输入如下公式 =HYPERLINK("#"&INDEX(工作表,ROW(A1))&"!a1",INDEX(工作表,ROW(A1))) ，同样也可以向下拖曳。

nimda

呵，刚还没去2楼的链接学习就发了帖子，现在学习回来了，收获很大啊。谢谢。

nimda

现在又下了3楼的附件，也解决了这个问题。谢谢。