Excel│VBA實用小代碼 提取文件夾內文件名

大家好，我是塗塗

今天塗塗給大家分享的是使用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

◆點擊按鈕，在彈出的文件選擇框中，選擇需要提取文件名的文件夾即可

※只需選到文件夾，無需指定某一個文件

提取後效果：