Excel学习笔记001：遍历指定文件夹下的所有文件名并存入指定位置

Sub 遍历指定文件夹下的所有文件名()
Dim sr As FileSearch '定义一个文件搜索对象
Set sr = Application.FileSearch
sr.LookIn = 'E:2009-2010学年历次考试2009年11月份考试-学校统考补考名单' '注意路径，换成你实际的路径
sr.Filename = '*.*' '搜索所有文件
sr.Execute '执行搜索
Cells.Delete '表格清空
For i = 1 To sr.FoundFiles.Count
Cells(i, 1) = sr.FoundFiles(i) '每一行第一列填写一个文件名
Next
End Sub
运行后返回的结果包含完整的路径名，若只需要文件名，还需要在表格中执行下列函数
=RIGHT(A1,LEN(A1)-FIND('#',SUBSTITUTE(A1,'','#',LEN(A1)-LEN(SUBSTITUTE(A1,'',)))))