批量提取文件名到excelEXCEL快速提取文件夹内的文件名怎么批量提取文件夹里的文件名到excel




批量提取文件名到excelEXCEL快速提取文件夹内的文件名怎么批量提取文件夹里的文件名到excel

2022-07-20 21:27:06 网络知识 官方管理员


小伙伴们好啊,今天和大家分享一个高效好玩的技巧。

如下图所示,在“测试”文件夹内,包含有两个Word文件和子文件夹“测试2”,在“测试2”文件夹内有Excel文档和另外一个子文件夹。

咱们看看如何快速获取文件夹内的所有文件名

批量提取文件名到excel(EXCEL快速提取文件夹内的文件名)(1)

接下来咱们以Excel2016为例,说说具体的操作方法:

1、依次单击【数据】→【获取数据】→【自文件】→【自文件夹】

2、点击【浏览】按钮,找到文件夹位置。

3、在数据查询编辑器中,右键单击Name字段,删除其他列。

4、最后单击【关闭并上载】。

批量提取文件名到excel(EXCEL快速提取文件夹内的文件名)(2)

使用此方法,可以快速提取出包含子文件夹在内的所有文件列表,如果在文件夹中增加了子文件夹或是新增了文件,只要在汇总表中单击右键→刷新。就可以可获取最新的文件名列表。

如果是低版本的Excel,还可以使用VBA代码的方法来提取:

SubFileDir()Dimp$,f$,k&'获取用户选择文件夹的路径WithApplication.FileDialog(msoFileDialogFolderPicker)'选择文件夹If.ShowThenp=.SelectedItems(1)'选择的文件路径赋值变量PElseExitSub'如果没有选择保存路径,则退出程序EndIfEndWithIfRight(p,1)<>"\"Thenp=p&"\"f=Dir(p&"*.*")'返回变量P指定路径下带任意扩展名的文件名'如果有超过一个文件存在,将返回第一个找到的文件名'如果一个文件都没有,则返回空[a:a].ClearContents'清空A列数据[a1]="目录"k=1DoWhilef<>""'如果文件名不为空,则……k=k+1'累加文件个数Cells(k,1)=ff=Dir'第二次调用Dir函数,但不带任何参数,则将返回同一目录下的下一个文件。LoopMsgBox"OK"EndSub

批量提取文件名到excel(EXCEL快速提取文件夹内的文件名)(3)

好了,今天的内容就是这些吧,祝各位小伙伴一天好心情!


发表评论:

最近发表
网站分类
标签列表