获取路径

1583478094

如何获得文件夹中的所有Excel文件的路径与文件名，包含此文件夹下多层子文件夹。

1583478094

没人回我，好冷啊。

zhaogang1960

返回本文件所在文件夹中的所有xls文件(不含自己)，包含子文件夹，请参考：

1. Sub Macro1()
   
2.     Dim Fso As Object, Folder As Object
   
3.     Dim arrf$(), mf&
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.     Set Folder = Fso.GetFolder(ThisWorkbook.Path)
   
6.     Call GetFiles(Folder, arrf, mf)
   
7.     [a:a].ClearContents
   
8.     [a1].Resize(mf) = WorksheetFunction.Transpose(arrf)
   
9. End Sub
   
10. 
    
11. Sub GetFiles(ByVal Folder As Object, ByRef arrf$(), ByRef mf&)
    
12.     Dim SubFolder As Object
    
13.     Dim File As Object
    
14.     For Each File In Folder.Files
    
15.         If File.Name Like "*.xls" Then
    
16.             If File.Name <> ThisWorkbook.Name Then
    
17.                 mf = mf + 1
    
18.                 ReDim Preserve arrf(1 To mf)
    
19.                 arrf(mf) = File
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     For Each SubFolder In Folder.SubFolders
    
24.         Call GetFiles(SubFolder, arrf, mf)
    
25.     Next
    
26. End Sub
    

复制代码

1583478094

zhaogang1960 发表于 2014-4-20 23:43
返回本文件所在文件夹中的所有xls文件(不含自己)，包含子文件夹，请参考：

非常感谢，我马上去试一下。

1583478094

zhaogang1960 发表于 2014-4-20 23:43
返回本文件所在文件夹中的所有xls文件(不含自己)，包含子文件夹，请参考：

我测试出错了，

zhaogang1960

1583478094 发表于 2014-4-21 11:53
我测试出错了，

请测试附件
1.rar (24.56 KB, 下载次数: 6)

2014-4-21 12:14 上传

点击文件名下载附件