Office中国论坛/Access中国论坛

标题: 高手请进 [打印本页]

作者: wu007 时间: 2008-11-19 13:30
标题: 高手请进
请问一个工作薄里有很多工作表,我想通过输入一个表名,就可以找到该表?VBA代码怎么写?
谢谢!

作者: tanhong 时间: 2008-11-19 14:18
在本工作簿还是其它工作簿.
1、本工作簿用循环遍历一下工作表集合,对比一下表名,有则提示存在
2、非本工作簿，可以用ADO方法或其它方法得到工作表名再循环一下，比对一下你给的工作表名

参考一下这个帖子：http://www.office-cn.net/vvb/thread-66320-1-1.html

作者: 方漠 时间: 2008-11-19 18:47
TRY this tool:

Sheet Explorer

http://www.office-cn.net/vvb/thread-66121-1-1.html

作者: wu007 时间: 2008-11-20 12:53
谢谢两位!
江版主的程序我运行了一下,要创建宏.然后运行,说无效过程.我搬过来用,还要改什么吗?
方版主的插件,能不能有查找功能呢,我这里工作薄很大,有查询就快了,一查就出来了.

作者: 方漠 时间: 2008-11-21 14:18
这个简单,用如下代码试一下.不过要求事先知道工作表名,且不能拼错.

Sub FindSheet()

Dim Sh As String

On Error Resume Next

Sh = InputBox("Please input the sheet name you want to find:", "Find Sheet")

Sheets(Sh).Activate

End Sub

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