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

网友投稿 539 2022-10-07

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

如下图所示,在“测试”文件夹内,包含有两个Word文件和子文件夹“测试2”,在“测试2”文件夹内有Excel文档和另外一个子文件夹。咱们看看如何快速获取文件夹内的所有文件名。

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

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

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

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

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:一个公式,快速生成工资条
下一篇:用自定义格式展示销售增减,特别棒!
相关文章