高手请进

wu007

请问一个工作薄里有很多工作表,我想通过输入一个表名,就可以找到该表?VBA代码怎么写?
谢谢!

tanhong

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

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

方漠

TRY this tool:

Sheet Explorer

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

wu007

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

方漠

这个简单,用如下代码试一下.不过要求事先知道工作表名,且不能拼错.

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