如何用excel提取一个文件夹下的所有文件名

Question

我有30几万个文件需要进行分类管理，要把所有的文件名提取出来制作成excel表格。
1、文件非常多。
2、放得没有规律，在一个文件夹下还有N多个文件夹，可能下面还有，每个文件夹下都有很多不同格式的文件。
3、提取出所有文件名，然后制作成excel表格.
4、最好是在提取的时候能够把同一类型的文件放在一起/如果不能实现的话，按顺序放也行。
5、哪位高手帮忙解决一下啊！！！如果有这方面的软件更好！谢谢了！！！！
各位高手帮帮忙嘛，程序也行！谢谢！！！

Answer 1

用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 Integer
Dim strPath As String
strPath = ThisWorkbook.Path
With 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 If
End With
End Sub
回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行

方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

Answer 2

进入cmd下，cd
到你想提取子文件夹的所在目录，输入dir/ad/b>c:\name.txt。打开c盘下的name.txt里面就是你的子文件夹的名了（一行一个），然后你就可以复制到excel里面了。

Answer 3

给你个附件
点击按钮
输入文件夹路径
点击确定
只能在excel2007及以上版本使用
很抱歉，回答者上传的附件已失效

Answer 4

Sub abc()
f = Dir(“c:\windows\*.*”)
han = 1
Do While f > “”
Cells(han, 1).Value = f
han = han + 1
f = Dir
Loop
End Sub
自己修改一下吧本回答被提问者采纳

Answer 5

http://zhidao.baidu.com/question/80484236.html?si=1
http://zhidao.baidu.com/question/33619778.html?si=4
一样的问题