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

發布:未知文本批量工具

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

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

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

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

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

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

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

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

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

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

Sub GetFileList()updateby ExtendofficeDim xFSO As ObjectDim xFolder As ObjectDim xFile As ObjectDim xFiDialog As FileDialogDim xPath As StringDim i As IntegerSet xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)If xFiDialog.Show = -1 ThenxPath = xFiDialog.SelectedItems(1)End IfSet xFiDialog = NothingIf xPath = "" Then Exit SubSet 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 = 1For Each xFile In xFolder.Filesi = i + 1ActiveSheet.Cells(i, 1) = xPathActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)NextEnd SubCopy

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

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

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

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

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

Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內.前往下載購買貝寶/ MyCommerce

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

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

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

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

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

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