Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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

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

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

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

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

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

doc導入文件名1

5。 然後點擊 OK 按鈕,您將得到以下結果:

doc導入文件名2

備註:如果您的特定文件夾中有子文件夾,則不會導入子文件夾中的文件名。


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

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

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

安裝後 Excel的Kutools,請執行以下操作:

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

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

(1.)點擊 doc導入文件名5 按鈕選擇包含要導入文件的文件夾;

(2.)檢查 在子目錄中包含文件 導入子文件夾的文件名;

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

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

(5.)如果要超鏈接文件名和文件夾,請檢查 創建超鏈接 選項。

doc導入文件名4

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

doc導入文件名6

保養竅門:如果只想從特定文件夾導入一種指定類型的文件名,則可以檢查 指定 在選項 文件名列表 對話框,然後在其中輸入文件擴展名,那麼它將僅從文件夾和子文件夾中導入指定類型的文件名。

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

立即下載和免費試用Excel的Kutools!


演示:使用Kutools for Excel將多個文件名導入工作表單元格

Excel的Kutools:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即下載並免費試用!

相關文章:

如何將文件夾和子文件夾中的所有文件列出到工作表中?

如何列出文件夾中的所有文件名並在Excel中為其創建超鏈接?


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (14)
5中的5評分 · 1評級
網站主持人對此評論進行了最小化
嘿,
我有一個 ecxel 表,其中有一些產品名稱,還有一個文件夾,其中有一些 pdf 文件,其名稱與單元格數據中的名稱相同,例如單元格 A2 值為 apple1,Pdf 文件名為 apple1.pdf,我想知道哪個名稱文件丟失,我們可以在 excel somwhow 中得到它嗎?
網站主持人對此評論進行了最小化
你好,邁克,
首先,您可以應用上述代碼將文件名插入工作表,將兩列文件名列出到一個工作表中,然後您可以使用 Kutools 的選擇相同和不同的單元格功能來識別並突出顯示丟失的文件名,看截圖:

請嘗試一下,謝謝!
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
很有幫助,謝謝!
網站主持人對此評論進行了最小化
Apakah bisa merename 文件 dengan excel?
terimakasih sangat membantu perkerjaan saya,
網站主持人對此評論進行了最小化
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi 打開 terus sampai ke 文件 tertentu dan ketika di klik malah 運行時間 26 路徑未找到 bisa bantu kenapa itu bisa terjadi?
網站主持人對此評論進行了最小化
謝謝。 太棒了
網站主持人對此評論進行了最小化
對於 VBA 代碼,您將如何提取修改日期?
網站主持人對此評論進行了最小化
你好,
為導入的文件名添加日期修改欄,請應用下面的VBA代碼,請嘗試一下,希望對您有所幫助!

子GetFileList()
將 xFSO 調暗為對象
將 xFolder 調暗為對象
將 xFile 調暗為對象
將 xFiDialog 調暗為 FileDialog
將 xPath 調暗為字符串
昏暗我作為整數
設置 xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
如果 xFiDialog.Show = -1 那麼
xPath = xFiDialog.SelectedItems(1)
如果結束
設置 xFiDialog = 無
If xPath = "" Then Exit Sub
設置 xFSO = CreateObject("Scripting.FileSystemObject")
設置 xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "文件夾名稱"
ActiveSheet.Cells(1, 2) = "文件名"
ActiveSheet.Cells(1, 3) = "文件擴展名"
ActiveSheet.Cells(1, 4) = "上次修改日期"
I = 1
對於 xFolder.Files 中的每個 xFile
我=我+ 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)
ActiveSheet.Cells(i, 4) = CDate(xFile.daterastmodified)
下一頁
END SUB
網站主持人對此評論進行了最小化
有沒有辦法將文件夾路徑放在代碼中?
網站主持人對此評論進行了最小化
我只想提及文件夾名稱。什麼是 vba 代碼。
網站主持人對此評論進行了最小化
我想添加表,只有文件夾名稱,以及修改的數據?
網站主持人對此評論進行了最小化
你好,
是否要列出特定主文件夾中的所有文件夾名稱? 請詳細說明您的問題。
網站主持人對此評論進行了最小化
還有一種簡單的方法。 只需複制保存文檔的目錄路徑,然後將該鏈接粘貼到瀏覽器(chrome/mozilla)中。 您將獲得名單,只需將粘貼複製到 excel 中。 乾杯!
網站主持人對此評論進行了最小化
非常有幫助。 很多
5中的5評分
這裡還沒有評論
請用英文發表您的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護