如何將文件夾和子文件夾中的所有文件列出到工作表中？
您是否曾經嘗試將某個文件夾中的所有文件名列出到工作表中，包括其子文件夾中的文件？ 實際上，我們沒有直接方法可以在Excel中列出文件夾及其子文件夾中的文件名，但是，今天，我將介紹一些快速的技巧來解決此問題。
用VBA代碼列出文件夾和子文件夾中的所有文件名
快速輕松地列出文件夾和子文件夾中的所有文件名 Kutools for Excel
用VBA代碼列出文件夾和子文件夾中的所有文件名通常，Excel沒有內置功能來處理此任務，但是，您可以應用以下VBA代碼來完成此問題。
1。 激活一個新的工作表，它將列出文件名。
2。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。
3。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊窗口.
VBA代碼：列出文件夾和子文件夾中的所有文件名
Sub MainList()Updateby ExtendofficeSet folder = Application.FileDialog(msoFileDialogFolderPicker)If folder.Show <> -1 Then Exit SubxDir = folder.SelectedItems(1)Call ListFilesInFolder(xDir, True)End SubSub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)Dim xFileSystemObject As ObjectDim xFolder As ObjectDim xSubFolder As ObjectDim xFile As ObjectDim rowIndex As LongSet xFileSystemObject = CreateObject("scripting.FileSystemObject")Set xFolder = xFileSystemObject.GetFolder(xFolderName)rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1For Each xFile In xFolder.FilesApplication.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.NamerowIndex = rowIndex + 1Next xFileIf xIsSubfolders ThenFor Each xSubFolder In xFolder.SubFoldersListFilesInFolder xSubFolder.Path, TrueNext xSubFolderEnd IfSet xFile = NothingSet xFolder = NothingSet xFileSystemObject = NothingEnd SubFunction GetFileOwner(ByVal xPath As String, ByVal xName As String)Dim xFolder As ObjectDim xFolderItem As ObjectDim xShell As ObjectxName = StrConv(xName, vbUnicode)xPath = StrConv(xPath, vbUnicode)Set xShell = CreateObject("Shell.Application")Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))If Not xFolder Is Nothing ThenSet xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))End IfIf Not xFolderItem Is Nothing ThenGetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)ElseGetFileOwner = ""End IfSet xShell = NothingSet xFolder = NothingSet xFolderItem = NothingEnd FunctionCopy4。 將代碼粘貼到模塊中后，按 F5 運行此代碼的關鍵，以及 宏 彈出對話框，選擇 主目錄 宏名稱，然后單擊 運行 按鈕，請參見屏幕截圖：
5. 而在 瀏覽 窗口，請選擇要列出所有文件名（包括子文件夾）的文件夾，請參見屏幕截圖：
6。 指定文件夾后，然后單擊 OK 按鈕，并且該文件夾及其子文件夾中的所有文件名已從單元格A2列出到當前工作表中，請參見屏幕截圖：
快速輕松地列出文件夾和子文件夾中的所有文件名 Kutools for Excel使用上面的代碼，您可以只列出文件名，有時，您需要列出其他屬性，例如文件大小，文件類型，創建時間，包含文件夾等。 Kutools for Excel 包含有用的功能– 文件名列表，使用此功能，您可以快速列出文件夾及其子文件夾中的所有或特定類型的文件名。
Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內.前往下載購買貝寶/ MyCommerce安裝后 Kutools for Excel，請執行以下步驟：
1。 點擊 企業 > 進出口 > 文件名列表，請參見屏幕截圖：
2。 在 文件名列表 對話框中，進行以下操作：
A：點擊 按鈕選擇要列出文件名的文件夾；
B：從列表中指定要列出的文件類型 檔案類型 部分;
C：從中選擇要顯示的一個文件大小單位 文件大小單位 部分。
備注：要列出子文件夾中的文件名，請檢查 在子目錄中包含文件，您還可以檢查 包括隱藏的文件和文件夾 根據需要。 如果您檢查 創建超鏈接 選項，它將為每個文件名和文件夾創建超鏈接。
立即下載并！
3。 然后點擊 OK 按鈕，所選文件夾及其子文件夾中包含的所有文件已在新工作表中顯示，并帶有以下屬性。 看截圖：
單擊以了解有關此文件名列表實用程序的更多詳細信息。
下載并 Kutools for Excel 現在 ！
演示：列出文件夾和子文件夾中的所有文件名 Kutools for ExcelKutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
