☆高分☆VBA访问一个文件夹下的所有Excel的每个Sheet !☆
如何用VBA访问一个文件夹下的所有Excel的每个Sheet ?
是不是必须打开每个EXCel 文件 ,然后读取,然后关闭?
有没有不打开 每个文件就能遍历的方法?
各位大虾,给出几句关键的话就行
解决就给分 !!
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);