如何將資料夾及其子資料夾中的所有文件列出到工作表中？

您是否曾經嘗試過將資料夾中的所有文件名稱列到工作表中，包括其子資料夾內的文件？實際上，在Excel中沒有直接的方法可以列出資料夾及其子資料夾中的文件名稱。然而，今天我將介紹一些快速解決此問題的小技巧。

使用VBA程式碼列出資料夾和子資料夾中的所有文件名稱

使用Kutools for Excel快速輕鬆地列出資料夾和子資料夾中的所有文件名稱

使用VBA程式碼列出資料夾和子資料夾中的所有文件名稱

通常，Excel沒有內建功能來處理這個任務，但您可以應用以下VBA程式碼來完成這個問題。

1. 啟動一個新工作表，該工作表將列出文件名稱。

2. 在Excel中按住ALT + F11鍵，這將打開Microsoft Visual Basic for Applications視窗。

3. 點擊插入 > 模組，並將以下程式碼粘貼到模組視窗中。

VBA程式碼：列出資料夾和子資料夾中的所有文件名稱

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4. 將程式碼粘貼到模組後，按下F5鍵運行程式碼，此時會彈出一個 宏對話框，選擇MainList宏名稱，然後點擊執行按鈕，請參見截圖：

5. 在瀏覽視窗中，請選擇要列出所有文件名稱（包括子資料夾中的文件）的資料夾，請參見截圖：

6. 指定資料夾後，點擊確定按鈕，然後資料夾及其子資料夾中的所有文件名稱將從單元格A2開始列在當前工作表中，請參見截圖：

使用Kutools for Excel快速輕鬆地列出資料夾和子資料夾中的所有文件名稱

使用上述程式碼，您只能列出文件名稱。有時，您需要列出其他屬性，例如文件大小、文件類型、創建時間、所在資料夾等。Kutools for Excel包含了一個有用的功能——檔名目錄，利用此功能，您可以快速列出資料夾及其子資料夾中的所有或指定類型的文件名稱。

下載並安裝 Kutools for Excel後，請按照以下步驟操作：

1. 點擊企業 > 匯入與匯出 > 檔名目錄，請參見截圖：

2. 在檔名目錄對話框中，進行以下操作：

A: 點擊 按鈕以選擇要列出文件名稱的資料夾；

B: 從文件類型部分指定要列出的文件類型；

C: 從文件大小單位部分選擇要顯示的文件大小單位。

備註：若要列出子資料夾中的文件名稱，請勾選包括子目錄內的文件，您也可以根據需要勾選包括隱藏文件和文件夾。如果勾選創建超鏈接選項，它將為每個文件名稱和文件夾創建超鏈接。

3. 然後點擊確定按鈕，所選資料夾及其子資料夾中的所有文件都已顯示在新工作表中，並附帶以下屬性。請參見截圖：

點擊以了解更多有關此檔名目錄工具的詳細信息。

立即下載並免費試用Kutools for Excel！