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,"",)))))

 今天你菊子曰了么？

转载于:https://www.cnblogs.com/xiehui/archive/2010/03/03/2004330.html