如何利用excel文件来获取指定文件夹内的文件名列表

　　用一个简单的DOS命令就可以实现了!

　　命令格式如下:dir [drive:][path] /b > [drive:][path]filename

　　应用实例1，把D盘test目录下所有文件名导到temp.xls里：

　　只要在cmd窗口里输入dir D:\test /b > temp.xls 这样就在当前目录生成一个temp.xls的EXCEL文件,打开来就看到D盘test目录下的所有文件名了,并且都带有扩展名的。

　　当需要导到是txt记事本，那就改成temp.txt。

　　如何把多个目录下的所有文件名都导入到temp.xls里，把命令稍作改动就可以了。

命令格式如下：dir [drive:][path] /b >> [drive:][path]filename

　　应用实例2:把D盘test目录、mp3目录、E盘music目录下的所有文件名存到temp.xls里，只要在cmd窗口里输入

dir d:\test /b >> temp.xls

dir d:\mp3 /b >> temp.xls

dir e:\music /b >> temp.xls

这样就在当前目录生成一个temp.xls的EXCEL文件,打开来就看到以上三个目录下的所有文件名了,并且都带有扩展名的。

使用excel提取文件夹中的所有文件名称的方法主要有以下两个：1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入dir> 1.txt保存退出将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！2、VBA（2003版）在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码Sub Test()Dim i As IntegerDim strPath As StringstrPath = ThisWorkbook.PathWith Application.FileSearch .LookIn = strPath .SearchSubFolders = True .Filename = "*.*" If .Execute > 0 Then For i = 1 To .FoundFiles.Count Range("A" & i) = .FoundFiles(i) Next i End IfEnd WithEnd Sub回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

把那个问题发个链接给我。