求助：GET.WORKBOOK如何返回所有工作表名

金子

GET.WORKBOOK如何才能返回所有工作表名

lthero

Sub check_sht() ActiveSheet.Columns(1).Clear n = 1 For Each sht In Sheets Cells(n, 1) = sht.Name n = n + 1 Next End Sub

这是生成表名称的，借花献佛拉～～～

[此贴子已经被作者于2005-8-13 21:05:34编辑过]

ykk

哈哈，楼主好象是要用宏表函数来取得。

金子

谢fieldsun，可问题是在工作表中返回的只是第一个工作表名，其余的表名不能返回，如何操作？

guangyp

版主少了个"."，应是X=get.workbook(1) 用 =INDEX(x,ROW(A1)) 往下拖可看到其它工作表名。

金子

GET.WORKBOOK(type_num, name_text) Type_num 指明要得到的工作簿信息类型的数。

Type_num　　 返回

1　　　　　　 正文值的水平数组,返回工作簿中所有表的名字。

正文值的水平数组是什么意思，非得用楼上的公式才中吗？不懂就问，求解。

金子

没有回答我吗？

gvntw

公式返回的是所有工作表名的水平数组，必须以多单元数组形式输入或用Index()函数逐个取值，请参考附件。 qmppzWx2.rar (1.95 KB, 下载次数: 208)

2005-8-14 00:08 上传

点击文件名下载附件
求助：GET.WORKBOOK如何返回所有工作表名

金子

=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())

这个公式怎么解释呢？T(NOW())又有什么意义。

gvntw

GET.WORKBOOK(1)返回的结果包含工作簿的名称，用replace（）取出 ] 后面的内容。

&T(now())是用一个不影响原值的易失性函数来使得公式得随时更新，如更改工作表名能自动更改公式的计算结果。

Now()返回一个数值，所以T(Now())="" ，请看看T（）函数帮助。