某一目录下，有大量文件，如何通过函数提取这些文件的文件名，使用EXCEL的VBA，不需要几句就可以写出来，很是方便。

下面函数Sub 提取()，提取的是EXCEL宏文件所在目录下的s目录下有大量的文件，通过此函数，可将这一目前下的所有文件，显示到EXCEL的A列。如果需要列出所有的excel文件，可以修改第二名即可，将“*.*”修改为“*.xls”或“*.xlsx”，其余格式类似修改即可。

Sub 提取()
    i = 1
    x = Dir(ThisWorkbook.Path & "\s\*.*")
    Do While x <> ""
        Cells(i, 1).Value = x
        x = Dir()
        i = i + 1
    Loop
End Sub

以前使用过一种很实用的办法，可以实现文件名的提取，比这个更加简单，但是当有中文后，录入中文比较困难。方法是在windows下开始内的运行中输入cmd命令，进入DOS，通过“盘符:”进入相应的盘，通过dir命令，显示某一目录下的文件及文件夹列表。再通过CD命令，进入各个目录，需要输出目录下所有文件名时，可以使用“dir *.* >>1.txt”命令，将目录录入“1.txt”文本文件内。只是这个1.txt文件内显示的文件名，前面带时间信息，需要将其复制进word，使用查找替换的办法，将空格转为tab（^t）后，放进excel表格，整个过程手工操作得比较多，没有使用VBA方便。