如何提取文件夹中的文件名到excel

如何提取文件夹中的文件名到excel

原发布者:ooo困兽ooo

方法一：1、打开一个记事本文档，然后复制下列内容到文档中。@echooffdir/s/b*.*>文件名.txtexit2、将上述内容复制到要提取文件名的文件夹，然后将该文件改名为X.bat(X可为任意名称)，然后双击运行，就能完成你的要求了。方法二：利用DOS的重定向命令“〉”加Excel的引用外部数据功能可方便快捷的实现。假设我们要提取C盘下的Windows目录下的所有文件及文件夹名。第1步：在DOS或Windows98的MS-DOS方式下，输入如下命令：C:\windows\dir〉d:\1.txt(回车)第2步：打开一个新的ExcelXP电子表格，单击工具栏中的“数据”下拉菜单，选择“导入外部数据→导入数据”命令，打开“导入数据”对话框，在“查找范围”中找到D盘下的1.txt文档，单击“打开”，进入“文本导入向导-3步骤之1”（如图1）。    第3步：在“原始数据类型”单选框中选“分隔符号”后按“下一步”，进入“文本导入向导-3步骤之2”（如图2）。    第4步：在“分隔符号”复选框中选“分号、逗号、空格、其他”，并在“其他”后的空格中填“.”，按“下一步”，进入“文本导入向导-3步骤之3”（如图3）。第5步：单击“完成”，出现“导入数据”对话框，选择“现有工作表”单选框后按“确定”。到了这里，你应可以看到8列数据，第一列便是所要的“文件名”。但是，DIR命令的显示的中文文件名只显示3～4个汉字，别急，看看第7列（G列），所有的完整的文件名都在这里（如图4）！第8列是文件名的

使用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——执行 方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

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——执行 看看效果吧！ 祝你成功解决问题！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息