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

如何用VBA访问一个文件夹下的所有Excel的每个Sheet ?
是不是必须打开每个EXCel 文件 ,然后读取,然后关闭?
有没有不打开 每个文件就能遍历的方法?
各位大虾,给出几句关键的话就行
解决就给分 !!
[131 byte] By [crazy_boy1-小辉] at [2008-4-13]
# 1
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);
xiajg70-国风 at 2007-10-21 > top of Msdn China Tech,其他开发语言,Office开发/VBA...
# 2
可以用数据库的方式来得到其中的表名,请参考:
http://www.chinaobs.com/UserPost.aspx?BBSID=4&BBCID=151
# 3
只会打开的~查查几个xls遍历、查查几个sheet遍历
Arqui-我要吃饭 at 2007-10-21 > top of Msdn China Tech,其他开发语言,Office开发/VBA...