vba 如何打开一个文件夹及其子文件夹中所有的Excel文件
展开全部
有关FileSearch对象更多的信息,请参考VBA自身的帮助,很详细的.
以下代码供参考.
Sub aRef()Dim i As Long
Dim fs As Object
Set fs = Application.FileSearchWith fs'设置要查找的起始目录
.LookIn = C:\Tmep
'要查找的文件类型
.FileType = msoFileTypeExcelWorkbooks
'是否查找子目录
.SearchSubFolders = True
'根据上面的设置执行查找
.ExecuteFor i = 1 To .FoundFiles.Count
'遍历打开找到的EXCEL文件
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询