sub文件 快速提取文件夹内的文件名

朋友们，你们好。今天，我将与你分享一个高效有趣的技巧。

如下图所示，“测试”文件夹包含两个Word文件和一个子文件夹“测试2”，而“测试2”文件夹包含Excel文档和另一个子文件夹。

让我们看看如何快速获取文件夹中的所有文件名。

接下来我们以Excel 2016为例，说说具体的操作方法:

1.单击[数据]→[获取数据]→[从文件]→[从文件夹]

2.单击“浏览”查找文件夹位置。

3.在数据查询编辑器中，右键单击“名称”字段并删除其他列。

4.最后，单击关闭并上传。

使用此方法，您可以快速提取包括子文件夹在内的所有文件的列表。如果在文件夹中添加子文件夹或新文件，只需在汇总表中右键单击→刷新。您可以获得最新的文件名列表。

如果是较低版本的Excel，还可以使用VBA代码提取:

子文件目录

Dim p$，f$，k & amp

获取用户选择的文件夹的路径

使用应用程序。文件对话框(msoFileDialogFolderPicker)

选择文件夹

如果……然后显示

p =。选择编辑项(1)

所选文件路径分配变量p

其他

出口接头

如果未选择保存路径，请退出程序

如果…就会结束

以…结尾

如果正确(p，1)& lt；>。”“那么p = p & amp""

f = Dir(p & amp；"*.*")

返回由变量p指定的路径下任何扩展名的文件名

如果存在多个文件，将返回找到的第一个文件名

如果没有文件，返回空

[答:答]。ClearContents' clear空列a数据

[a1] = "目录"

k = 1

当f & lt>。""

如果文件名不是空，则...

k = k + 1

累积文件数量

单元格(k，1) = f

f = Dir

如果在没有任何参数的情况下第二次调用Dir函数，将返回同一目录下的下一个文件。

环

MsgBox“OK”

末端接头

好了，今天就到这里。祝各位朋友一天好！

平面制作:老朱

星光