从当前工作表选取指定工作薄的某个工作表，并返回指定的值

ppyh

从当前的工作表[目录表]FileName = Application.GetOpenFilename(FileFilter:=strTitle 。。。。。
只选取后缀名为.xls的工作薄，并返回这个工作薄的所有工作表名到当前工作表[目录表]A列
再用鼠标选取A列某个单元格（工作表名），联合B列range("B1).value，用SQL提取所选的工作表中
含有range("B1).value的所在行的所有数据到[查询表]
前辈指点！！！！

蓝桥玄霜

看楼主的问题应该是有一定基础的，返回工作表名应该不难吧。
可用For Each Sht In Sheets来获得。
希望自己多动手，才能有进步。

ppyh

蓝桥玄霜 发表于 2012-8-14 17:21
看楼主的问题应该是有一定基础的，返回工作表名应该不难吧。
可用For Each Sht In Sheets来获得。
希望自 ...

老师，我已上传搞了一半的附件，请帮忙修改下，有些问题向您请教！！！