今天给大家分享的是使用VBA代码提取文件夹内文件名。

步骤1

选择【开发工具】选项卡，点击【Visual Baisc】选项，打开VBE窗口

或者按也可以打开

在VBE窗口左侧工程资源管理器中，右键新建模块，然后双击模块

在VBE窗口右侧代码区写入代码，保存，关闭VBE窗口

代码：

Sub 提取文件夹内名称()

Dim FilePath As String

Dim FileName As String

Dim i As Integer

Rows("2:100000").ClearContents

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "请选择要查找的文件夹"

.InitialFileName = ThisWorkbook.Path

If .Show = 0 Then Exit Sub

FilePath = .SelectedItems(1) & "\"

End With

i = 2

FileName = Dir(FilePath)

Do While FileName <> ""

Cells(i, 1) = FileName

i = i + 1

FileName = Dir

Loop

End Sub

步骤2

选择【开发工具】选项卡，点击【插入】选项的下拉箭头，选择“按钮”控件

在工作表任意地方插入按钮控件，在指定宏对话框中，选择宏名，确定

步骤3

点击按钮，在弹出的文件选择框中，选择需要提取文件名的文件夹即可

※只需选到文件夹，无需指定某一个文件

提取后效果：