vba 如何打开一个文件夹及其子文件夹中所有的Excel文件

有关FileSearch对象更多的信息,请参考VBA自身的帮助,很详细的.以下代码供参考.Sub aRef()Dim i As LongDim fs As ObjectSet fs = Application.FileSearchWith fs'设置要查找的起始目录.LookIn = C:\Tmep'要查找的文件类型.FileType = msoFileTypeExcelWorkbooks'是否查找子目录.SearchSubFolders = True'根据上面的设置执行查找.ExecuteFor i = 1 To .FoundFiles.Count'遍历打开找到的EXCEL文件

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/y23r7fv7j.html