作者：乔山办公网日期：
返回目录：excel表格制作
使用excel提取文件夹中的所有文件名称的方法主要有以下两个：
1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入
dir> 1.txt
保存退出
将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）
双击wenjian.bat文件运行一e68a84e799bee5baa6362次，在文件夹内多出一个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——执行
方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。
假设你文件夹的路径是 d:\abcd\
按照以下步骤操作：百
按键盘win+r 或者 开始菜单-运行。
键入cmd ，确定。度打开命令提示符窗口。按下面键入命令，每行回车
d: （根据上面假设键知入盘符，请根据实际情况键入）
cd d:\abcd （根据上面假设键入路径，请根据实际情况键入）
dir *.doc /b /s > list.txt (把目录下包道括子目录所有doc文件列表到list.txt文件中，如果是word2007以上版本的文档改成*.docx。回如果不答需要子目录，去掉/s 。)
这样在目录下会生成list.txt里面就是文档名列表了。
a.在命令行cmd窗口中用cd命令切换到存放word文件的文件夹目录中
b.然后输入dir /b *.doc>list.txt
c.然后到word存放目录中打百开list.txt将每行开头加上file://<目录>
例如我的word文件放在D:\words文件夹下那么就追加上file://D:\words\
形成度的效果是
file://D:\words\a.doc
file://D:\words\b.doc
file://D:\words\c.doc
file://D:\words\d.doc
file://D:\words\e.doc
<小技巧：可以用editplus等文本工具进行全员替换>
e.然后将这些黏贴到excel中（有的文件可能没知有形成链接，就双击它两下就好了，excel的小bug，自己检查一下就好了）
f.用excel的替换功能将file://替换掉这样就剩下道D:\words\a.doc这样的文字了但是链接的效果仍然保留。<任务完成>
这个方法我自己试过了，可行，而且没有问题。5个文件都能链接上并且打开的都是所对应内的文件。建议你以后有时间学容学VBA或者java等编程语言，一般我都是写VBA或者写代码来做这些，在公司里经常有类似这样的事情。