☆高分☆VBA访问一个文件夹下的所有Excel的每个Sheet ！☆

[小辉]

如何用VBA访问一个文件夹下的所有Excel的每个Sheet ？
是不是必须打开每个EXCel 文件 ，然后读取,然后关闭？
有没有不打开 每个文件就能遍历的方法？
各位大虾，给出几句关键的话就行
解决就给分 ！！！

[xiajg70]

filepath:="c:\*.xls"; //假设的一个Excel文档
strExcelFile :=Lfile(filepath);//读取文件
objExcel := LimsOleConnect("Excel.Application");
objExcel:Visible := .F.;
objExcel:UserControl := .F.;
objWb :=objExcel:Workbooks:Open(strExcelFile);
objSheet := objWb:Activesheet;
EndLimsOleConnect(objExcel);

[ChinaOBS]

可以用数据库的方式来得到其中的表名，请参考：
http://www.chinaobs.com/UserPost.aspx?BBSID=4&BBCID=151

[Arqui]

只会打开的~查查几个xls遍历、查查几个sheet遍历