如何將多個文件名導入Excel中的單元格？

網友投稿 318 2025-03-31

如何將多個文件名導入Excel中的單元格？

假設您有一個包含數百個文件的文件夾，現在，您要將這些文件名導入工作表的單元格中。一個接一個地復制和粘貼將花費大量時間，在本文中，我將討論一些快速技巧，以幫助您將一個文件夾中的多個文件名導入到工作表中。

使用VBA代碼將多個文件名導入工作表單元格

將多個文件名導入工作表單元格 Kutools for Excel

使用VBA代碼將多個文件名導入工作表單元格

以下VBA代碼可以幫助您將文件名，文件擴展名和文件夾名稱導入工作表單元格，請執行以下步驟：

1。啟動您要導入文件名的新工作表。

2。按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

3。點擊插頁 > 模塊，然后將以下代碼粘貼到模塊窗口。

VBA代碼：將多個文件名導入工作表的單元格

Sub GetFileList() updateby Extendoffice Dim xFSO As Object Dim xFolder As Object Dim xFile As Object Dim xFiDialog As FileDialog Dim xPath As String Dim i As Integer Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFiDialog.Show = -1 Then xPath = xFiDialog.SelectedItems(1) End If Set xFiDialog = Nothing If xPath = "" Then Exit Sub Set xFSO = CreateObject("Scripting.FileSystemObject") Set xFolder = xFSO.GetFolder(xPath) ActiveSheet.Cells(1, 1) = "Folder name" ActiveSheet.Cells(1, 2) = "File name" ActiveSheet.Cells(1, 3) = "File extension" i = 1 For Each xFile In xFolder.Files i = i + 1 ActiveSheet.Cells(i, 1) = xPath ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1) ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1) Next End Sub

Copy

4. 然后按 F5 鍵執行此代碼，然后在彈出的“瀏覽”窗口中，選擇要導入文件名形式的文件夾，請參見屏幕截圖：

5。然后點擊 OK 按鈕，您將得到以下結果：

備注：如果您的特定文件夾中有子文件夾，則不會導入子文件夾中的文件名。

將多個文件名導入工作表單元格 Kutools for Excel

如果您需要同時在文件夾和子文件夾中導入文件名，請不要擔心，使用 Kutools for Excel“ 文件名列表 實用程序，您可以輕松地導入特定文件夾（包括子文件夾）中的所有文件名。

Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在30天內免費試用.

前往下載30天免費試用購買貝寶/ MyCommerce

安裝后 Kutools for Excel，請執行以下操作：

1。點擊 Kutools 加> 進出口 > 文件名列表，請參見屏幕截圖：

2。在 文件名列表 對話框中，進行以下操作：

（1.）點擊按鈕選擇包含要導入文件的文件夾；

（2.）檢查 在子目錄中包含文件 導入子文件夾的文件名；

（3.）在“文件名”下指定要導入的文件類型。 檔案類型 部分;

（4.）從菜單中選擇要顯示的文件大小單位。 文件大小單位 部分;

（5.）如果要超鏈接文件名和文件夾，請檢查 創建超鏈接 選項。

3。完成設置后，請點擊 OK 按鈕，文件夾和子文件夾中的文件名都被導入到新的工作表中，如以下屏幕截圖所示：

Tips：如果只想從特定文件夾導入一種指定類型的文件名，則可以檢查指定在選項 文件名列表 對話框，然后在其中輸入文件擴展名，那么它將僅從文件夾和子文件夾中導入指定類型的文件名。

單擊以了解有關此文件名列表功能的更多信息…

下載并免費試用 Kutools for Excel 現在！