【原】想知道如何快速提取文件夹中所有文件名吗？

EXCEL应用之家 2024-04-10 发布于上海

展开全文

送人玫瑰，手有余香，请将文章分享给更多朋友

动手操作是熟练掌握EXCEL的最快捷途径！

【置顶公众号】或者【设为星标】及时接收更新不迷路

小伙伴们好，今天和大家分享一则非常实用的小技巧。有时候我们需要知道一个文件夹下面有多少个文件，并把这些文件的文件名都提取出来。小时候我就曾经一个文件一个文件的复制名称，但今天后就不用再做这样的傻事情了！

题目是这样子的：

在一个文件夹中有这样几个文件

这个文件夹的绝对路径是C:\Users\win10\Desktop\Test

怎样才能很方便地将所有文件的文件名都像下面这样提取出来呢？

使用公式可以轻松解决这个问题。公式法要用到FILES函数，而这个函数不能直接在工作表中使用，因此我们首先要创建名称。

创建名称的过程就不详细介绍了。创建后如下。

在单元格A1中输入下列公式，向下拖曳即可。

=INDEX(提取文件名,ROW(A1))

公式很简单，不再赘述了。这里“提取文件名”就是我们创建的名称。

有时为了更加灵活一些，还可以按照下面的方式来书写。我们可以将文件夹路径复制粘贴在一个单元格中。当创建名称时可以直接引用这个单元格。

在单元格A1中输入下列公式，向下拖曳即可。

=INDEX(创建名称2,ROW(A1))

在这个名称中，我们直接引用了包含路径地址的单元格。

如果使用VBA也是可以轻松解决问题的。

完整的代码如下：

Sub 提取文件夹中所有文件名称()    Dim i As Integer, filename As String    filename = Dir("C:\Users\win10\Desktop\测试\*")    i = 1    Do While filename <> ""        Cells(i, 1) = filename        filename = Dir        i = i + 1    LoopEnd Sub