利用Excel从文件夹中提取所有文件名

利用 Excel 从文件夹中提取所有文件名
2003/02/21 13:55 赛迪网--中国电脑教育报
文/万兵
有时我们想要把一个文件夹中的所有文件名整理到一个文件中，便于管理和查询以 及打印，多数是使用“复制”、“粘贴”方法(将文件夹中的文件重命名，在可编辑状态 下进行复制，而后在其他文档中粘贴)。

这种办法可行，但对于文件夹中有大量的文件的 情况，则工作效率低，而且做完后必须核对。

利用 DOS 的重定向命令“〉”加 Excel 的引用外部数据功能可实现方便快捷的方法 (关于 DOS 中的重定向“〉”，《中国电脑教育报》2002 年第 25 期 A35 版中《重定向的妙用》 已详细介绍)。

假设我们要提取 C 盘下的 Windows 目录下的所有文件及文件夹名。

第 1 步在 DOS 或 Windows 98 的 MS-DOS 方式下，输入如下命令：C:＼windows＼dir〉 d:＼1.txt(回车)
第 2 步打开一个新的 Excel XP 电子表格，单击工具栏中的“数据”下拉菜单，选择 “导入外部数据→导入数据”命令，打开“导入数据”对话框，在“查找范围”中找到


D 盘下的 1.txt 文档，单击“打开”，进入“文本导入向导-3 步骤之 1”(如图 1)。

第 3 步在“原始数据类型”单选框中选“分隔符号”后按“下一步”，进入“文本 导入向导-3 步骤之 2”(如图 2)。

第 4 步在“分隔符号”复选框中选“分号、逗号、空格、其他”，并在“其他”后 的空格中填“.”，按“下一步”，进入“文本导入向导-3 步骤之 3”(如图 3)。

第 5 步单击“完成”，出现“导入数据”对话框，选择“现有工作表”单选框后按 “确定”。

到了这里，你应可以看到 8 列数据，第一列便是所要的“文件名”。

但是，DIR 命 令的显示的中文文件名只显示 3～4 个汉字，别急，看看第 7 列(G 列)，所有的完整的文 件名都在这里(如图 4)！第 8 列是文件名的后缀，方便于筛选(对于 Excel 2000，所不同 的是在工具栏中的“数据”下拉菜单下，选择的是“获取外部数据/导入文本文件”命 令)。

至此，你就可以用 Excel 来编辑这些文件名了。

FL=FILES(path&目录!$A$2)&T(NOW()) path=MID(CELL("filename"),1,FIND("[",CELL("filename"),1)-1)
进入 DOS 模式 ，进入这个目录 然后 dir > abc.txt 这样就把该目录下的所有文件保存在 abc.txt 中了 如果存在子目录就 dir > abc.txt /s 如果制定某种类型的文件就 dir *.xls > abc.txt （文本文件中包含 abc.txt 这个文件名）


======================================================= 如果你对 DOS 不熟悉的话，具体步骤如下： 1、在 XP 中打开这个文件夹，然后在地址栏中复制该文件夹的地址 2、开始-程序-附件-命令提示符 （进入 DOS 模式） 3、 用键盘输入(X:) （输入()里的内容， X 表示具体的盘符， 如果是相同的盘这一步可以省略） ， 输入结束后要回车一下 4、输入(cd )然后点鼠标右键-粘贴 （cd 后面有一个空格，在 DOS 模式不好用 Ctrl+V 这样的 快捷键） 5、然后输入上述的 DOS 命令 Dos 命令中不区分大小写
批量提取文件名的办法 2008 年 06 月 15 日 星期日 00:00
文件名提取器 超级好用哦,去百度搜索吧.
批量提取文件名的办法 方法一：tree 命令 命令提示符下： (开始/运行/CMD) tree (要获得文件名的文件夹的路径）/f >（存放的路径/filename） 例如：要获得 C 盘下的所有文件的文件名，并将生成的文件保存到 D 盘，可使 用如下命令 tree□C:□/f >D:/contents.txt “□”代表一个空格 小 tip： 可以先在记事本中写好，将其粘贴(注意：不能用 Ctrl+V)到 cmd.exe 程序中。

例：将下列复制到 cmd.exe 中即可 tree D: /f>E:/contents.xls 方法二：dir 命令 dir c:\ >d:\1.txt 将 C 盘根目录里的文件夹名和文件名都保存在 D 盘目录下的 1.txt 里，此文件可 导入 excel 作进一步处理。

dir 可加参数 /w 等。

其他： 若是音乐文件，可将音乐文件拖进千千静听等播放软件，然后另存为播放列表。

此列表用记事本打开即可查看 Other 领导布置任务： 把最近几年的个人论文列一个清单给我看。

天哪，个人论文？单位近百人，每个 人每年一篇论文，如果都列出来，还不把我累死？仔细一想，总结全部放在 “D:\lunwen”这个文件夹中，而且我原来使用论文的名称＋作者名作为文件名 来使用，也就是说，只要把文件名提取出来，那么清单自然就列出来了。

赶紧动手，在“运行”中键入“CMD”进入命令提示符窗口，然后切 换命令提示符的状态到“D:\lunwen”，输入“dir /b huizong,txt”，参数“/b”表


示仅提取文件名。

这样“lunwen”文件夹中的所有文件名都被提取到 “huizong,txt”这个文本文件中。

现在打印出来，可以向领导交差了。

如果想把 MP3 格式的那就用这个 开始——运行——CMD——输入你要搞的那个盘如：D：然后输入这个 dir 盘符:\*.mp3 /s /a /b>>列表.txt 相关文章 /mmsio/blog/item/0a3437970dd6406b55fb962c.html
Excel VBA 代码：批量获取指定目录下所有文件名
2009 年 5 月 15 日 阅读评论 发表评论
在 Excel 中获取指定目录下的所有文件名，请自行修改输出的格式，配合 Excel VBA 代码：批量插入指定 目录下图片代码使用，事半功倍！代码如下：
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
Sub listfile() ''''''''''''''''''''''''''''''''''''''''''''' ' 宏由 录制，时间: 2009-5-12 ' ' 批量获取指定目录下所有文件名 ' Dim fs Dim mypath As String Dim theSh As Object Dim theFolder As Object On Error Resume Next '设置搜索路径 Set theSh = CreateObject("shell.application") Set theFolder = theSh.BrowseForFolder(0, "", 0, "") ' '
''''''''''''''''''''''''''''''''''''''''''''


18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
If Not theFolder Is Nothing Then mypath = theFolder.Items.Item.Path End If '搜索开始 Set fs = Application.FileSearch With fs .NewSearch .SearchSubFolders = True '搜索子目录 .LookIn = mypath .Filename = "*.JPG" '搜索路径 '搜索文件类型为 JPG
If .Execute(SortBy:=msoSortByFileName) > 0 Then c = .FoundFiles.Count For i = 1 To c strTemp = .FoundFiles(i) n = InStrRev(strTemp, "\") （不包括文件名） '获取文件名及扩展名 strfilename = Replace(strTemp, Left(strTemp, n), "") ' Cells(i, 1) = strTemp 路径+文件名+扩展名 ' Cells(i, 1) = Mid(strTemp, n + 1) '输出格式 为：文件名+扩展名 '从 D8 单元格开始输出格式为：文件名，请自行修改。

Cells(i + 7, 4) = Left(strfilename, Len(strfilename) - 4) '输出格式为：文件 '设置临时文件 '获取文件路径长度 '统计搜索到的文件个数


Next Else MsgBox "该文件夹里没有符合要求的文件!" End If End With Set fs = Nothing End Sub


首先在 D 盘新建个文本文件，在文本文件里输入：dir 人事\*.* >1.txt 保存，然后把这个文 件改名为 1.bat，注意扩展名是 bat，这个是批处理文件的意思，双击这个文件，它会把人事 目录下的文件列表出来，信息输出到 D 盘的 1.txt 这个文件里。

然后在 EXCEL 里点数据-导入 外部数据-导入数据，找到刚才那个 1.txt 文件导入到 EXCEL 里，然后保存这个 EXCEL。

每次 你可以先点下 1.bat，然后打开这个 EXCEL 表，在数据区点右键，刷新数据！





。