Office中国论坛/Access中国论坛

标题: 请教：在单元格中能否获取工作表名 [打印本页]

作者: playyun 时间: 2006-12-22 16:23
标题: 请教：在单元格中能否获取工作表名
请教：如何在单元格中获取工作表名，当工作表更改名字时，单元格也自动相应改变。

[attach]22238[/attach]

作者: HSQ8888 时间: 2006-12-22 17:18
插入-名称 - 定义 A =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW()) C5 输 =A
就可以了

[此贴子已经被作者于2006-12-22 9:34:11编辑过]

作者: playyun 时间: 2006-12-22 23:15
非常感谢！！

作者: stpcmd 时间: 2006-12-23 06:09
也可以这样取得工作表名，在任一单元格输入：

=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))

[此贴子已经被作者于2006-12-22 23:01:05编辑过]

作者: playyun 时间: 2006-12-23 07:32
谢谢！！二种方法都不错。使我学到了不少知识。

只是第一种方法（A=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW()) ）始终只能定义第1张表，那第2张、第3张、第n张如何定义？

" [ "、" ] ",这个是什么意思？

[此贴子已经被作者于2006-12-23 1:19:11编辑过]

作者: HSQ8888 时间: 2006-12-25 17:13

以下是引用playyun在2006-12-22 23:32:00的发言：

谢谢！！二种方法都不错。使我学到了不少知识。

只是第一种方法（A=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW()) ）始终只能定义第1张表，那第2张、第3张、第n张如何定义？

" [ "、" ] ",这个是什么意思？

=INDEX(A,N) N为你想要的工作表，如第一张 N就为1 第2张 N为2 ......
" [ "、" ] ",这个是符号.

作者: HSQ8888 时间: 2006-12-25 17:20
REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW()) ）
GET.WORKBOOK(1)的结果为[book1]工作表名
用REPLACE 将[book1]去掉就得工作表名（是个数组）

作者: HSQ8888 时间: 2006-12-26 16:50
或插入-名称 - 定义 A=REPLACE(GET.CELL(32),1,FIND("]",GET.CELL(32)),)&T(NOW())
C5输 = A

作者: playyun 时间: 2006-12-28 08:32
非常感谢各位朋友的帮助。谢谢！！

作者: llbover 时间: 2006-12-29 23:23
[em02]

作者: playyun 时间: 2007-1-2 09:47
又学到一种方法：

插入-名称 - 定义 A=SUBSTITUTE(GET.DOCUMENT(1),"["&GET.DOCUMENT(88)&"]",)&T(NOW())

在任一单元格输入： =TEXT(A,"@")就可以了

只是在第5张工作表任一单元格中如何自动获取第二张及第三张工作表名？

作者: slc 时间: 2008-1-5 09:18
谢谢1楼和6楼

现在我把100多个工作表名称列了出来了！！！！！！！！！！！！！

作者: livewire 时间: 2008-1-5 09:51
Sub get_active_sheet_name()

ActiveCell = ActiveSheet.Name

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)