如何将多个文件的文件名输入到1个excel表格中？

Question

如题所述

Answer 1

将文件夹名列表输出到文本文件中，再粘贴到excel即可。
具体操作：
1、用cmd命令打开命令窗口，输入dir命令，其中c:\test\改成要列表的文件夹路径，>后面的文件名是列表输出的文本文档名；
2、打开保存的文本文档选中文件名称复制，回到excel粘贴就ok了。

Answer 2

比如你的目录为d:\工资
打开附件下的dos命令提示符
输入
d:
回车
输入
cd\工资
回车
输入
dir>a.txt
好了，在d:\工资
目录下已经生成了一个a.txt的文本文件，双击打开，全选复制，在excel中粘贴，分列，留下你需要的列就可以了。
注：上面的“回车”上让你打回车键

Answer 3

按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行
Sub
t()
Dim
s
As
FileSearch
'定义一个文件搜索对象
Set
s
=
Application.FileSearch
s.LookIn
=
"c:\"
'注意路径，换成你实际的路径
s.Filename
=
"*.*"
'搜索所有文件
s.Execute
'执行搜索
Cells.Delete
'表格清空
For
i
=
1
To
s.FoundFiles.Count
Cells(i,
1)
=
s.FoundFiles(i)
'每一行第一列填写一个文件名
Next
End
Sub