批量自动提取文件名称

本期分享一个批量自动提取文件名称的方法：

假设我们文件夹里有如下7份文件（1个示例文件用来跑代码+6个测试文件）：

运行如下代码，可从A1单元格开始展示所有相同文件夹下的文件名称：

Sub 提取文件夹里文件名称()

'微信公众号: Will的代码小屋

Application.ScreenUpdating = False

Range("A1").Select

Dim FileName As String

FileName = Dir(ThisWorkbook.Path & "\*")

Do While FileName <> ""

If FileName <> ThisWorkbook.Name Then

ActiveCell.Value = FileName

ActiveCell.Offset(1, 0).Select

End If

FileName = Dir

Loop

Application.ScreenUpdating = True

End Sub

PS:如果想放在其他位置，就把代码里的A1改成你想要的位置就好了

运行过后，效果如下图所示：

如果不知道怎么运用代码的话，欢迎参考往期文章：

《VBA的常见使用方式介绍》