返回目录：excel表格制作
比如，这里如果想要把“7.21”这个文件夹里面的文件，要做个整理，把文件名称都汇总在一个excel表格了，常见的就是一个一个复制文件名称，然后e799bee5baa6e79fa5e98193e59b9ee7ad94339新建excel表格，但这样效率很慢。
快速提取文件名称方法一：使用，打开Chrome 浏览器——把“7.21”整个文件夹拖到浏览器里面——自动生成目录——全选复制，然后粘贴到新的excel表格中——调整修改一下，做个美观度调整即可。
是不是很简单快速，但是好像只有部分的浏览器支持，除了Chrome 浏览器，也试了一下360浏览器也是可以的，但是百度浏览器就不支持，当然喜欢的话也可以多找几个去试试看，看看可否有目录产生。
快速提取文件名称方法二：在桌面新建一个文本文档——写入“DIR *.* /B >文件名列表.CSV”这个代码——另存为另存为 .bat 格式——把保存的bat文件放到“7.21”这个文件夹里面——双击，就行了。
双击保存的bat文件，就会生成一个刚刚命名的“文件名列表.CSV”里面就包含了“7.21”这个文件夹所有的文件名称，又快又不会出遗留，就是会多出两个没有作用的文件名称，删去了就可以了。
当然，还有第三种方法，只是暂时先不提及一下，前面两种就可以选择了，为什么要批量提取文件夹中的文件名称，这个自然是有很大的用处的，后续会继续说到一个制作一份文档目录就需要用到了。
如果你的excel表格是csv格式的话，用bat批处理并不难实现，如果不是的话，还是建议用vba来实现更方便。
要批量提取文件名，可把这些文复件放到一个文件夹中：
制 1、在这个文件夹中新建TXT文件，并在其中输入
DIR *.*/B>LIST.TXT
（DIR命令后须有一空格。百这个命令表示：把所有目录列度到名为LIST的记事本中。）
将新建的TXT文件保存。然后把扩展名改为BAT。双击问该文件，可自动生成LIST文件。
2、打开答LIST，将其中的文件名复制到EXCEL中。
建立个按钮，把代码复制进去就知成了~
这是把F和M列的内容写到"f:\批量道.bat"，每次执行都会把原本内容覆盖的回，想保留原数据就改成“答Open "f:\批量.bat" For Append As #1”
Private Sub CommandButton1_Click()
Dim a
Open "f:\批量.bat" For Output As #1
For a = 1 To WorksheetFunction.CountA(Columns(6))
Print #1, Range("f" & a)
Next
For a = 1 To WorksheetFunction.CountA(Columns(13))
Print #1, Range("m" & a)
Next
Close #1
End Sub