在本教程中，我將提供一些技巧，以快速顯示Excel表格中特定文件夾的所有圖片名稱或文件名，如圖所示。 快速導航 >使用VBA列出Excel中文件夾的圖片名稱 >使用“文件名列表”列出Excel中文件夾的圖片名稱或特定格式的文件名 >下載樣本文件

在Excel中，沒有內置的功能可以自動列出您在工作表的單元格中選擇的文件夾的所有圖片名稱，但是這裡我有一個VBA代碼，可以幫助您快速解決此工作。

1.在Excel中，然後按 其他 + F11 打開鑰匙 Microsoft Visual Basic for Applications 窗口。

2.在彈出的窗口中，單擊 插入 > 模塊 創建一個新的模塊腳本。

3.複製以下代碼並將其粘貼到新的“模塊腳本”窗口中。

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4。 按 F5 鍵，然後會彈出一個對話框供您選擇用於放置圖片名稱的單元格。

5。 點擊 OK 繼續選擇要在“瀏覽”對話框中列出圖片名稱的文件夾。

6。 點擊 OK，現在已在Excel中列出了所選文件夾中的所有圖片名稱。

注意： 在VBA代碼中，您可以在代碼字符串中使用jpg / png /… 如果InStr（1，xFileName，“ .jpg”）+ InStr（1，xFileName，“ .png”）+ InStr（1，xFileName，“ .img”）+ InStr（1，xFileName，“ .ioc”）+ InStr （1，xFileName，“。bmp”） > 0然後 到所需的文件擴展名，例如，如果要以doc格式列出文件的文件名，只需將代碼字符串更改為 如果InStr（1，xFileName，“ .doc”）> 0然後。

如果您在日常工作中通常需要在Excel單元格中列出文件夾的一種或所有格式的文件名，則代碼很複雜且不易處理，但是通過以下方式，您可以快速解決此問題。

您想加薪並有很多時間陪伴家人嗎？ Office選項卡可將Microsoft Office立即工作的效率提高50％ 令人難以置信的是，處理兩個或多個文檔比處理一個或多個文檔更容易，更快捷。 與知名瀏覽器相比，Office Tab中的選項卡式工具功能更強大，更高效。 每天為您減少數百次鼠標單擊和鍵盤輸入，現在告別鼠標手。 如果您通常處理多個文檔，Office Tab將為您節省大量時間。 30-天免費試用，無需信用卡。 了解更多 現在免費下載

這是一個實用程序– 文件名列表 in Excel的Kutools， 哪個行

>>在新工作表中列出文件夾的所有文件格式的所有文件名；

>>以您為Excel指定的一種或幾種文件格式列出文件名；

>>將文件名（包括子文件夾和隱藏文件及文件夾）列出到Excel。

免費試用 告別鼠標手和頸椎病

300個高級工具 Kutools for Excel 解決 企業排放佔全球 80% 數秒內完成 Excel 任務，讓您擺脫數千次鼠標點擊。

輕鬆應對1500個工作場景，無需浪費時間尋找解決方案，有更多時間享受生活。 每天為 80+ 高效能人士提高 110000% 的生產力，當然也包括你。 不再被痛苦的公式和VBA折磨，給你的大腦一個休息和快樂的工作心情。 30 天免費試用全功能，30 天無理由退款。 更好的身體創造更好的生活。

了解更多 立即下載

免費安裝Kutools for Excel後，請執行以下操作：

1.啟用要列出文件名的工作簿，然後單擊 Kutools 加 > 進出口 > 文件名列表.

2。 在裡面 文件名列表 對話框，首先，單擊  選擇要列出其文件名的文件夾，然後可以選中以下複選框 在子目錄中包含文件 和 包括隱藏的文件和文件夾 如你所需。

3.然後選擇要在其中列出名稱的文件格式 檔案類型 部分。

格紋 所有文件 選項，它將列出所選文件夾中所有文件格式的所有文件名

格紋 共同 選項，然後從下拉列表中選擇要列出文件名的特定文件格式，然後它將列出您在下拉列表中選擇的文件格式的所有文件名

格紋 指定 選項，然後在文本框中鍵入要在列表中列出文件名的文件擴展名（使用逗號分隔），然後它將僅在Excel中列出帶有輸入文件擴展名的文件名

4.根據需要從下拉列表中選擇尺寸單位 文件大小單位 部分，如果您要創建文件名的鏈接，請檢查 創建超鏈接 選項。

5。 點擊 Ok，將創建一個新工作表來列出文件名和一些文件信息。

小提示: 如果要在Excel中列出所有工作表名稱，可以將Kutools for Excel' 創建工作表名稱列表 實用程序，它將創建一個新的工作表以列出所有可鏈接的工作表名稱。

Excel的Kutools：+有用的便捷工具，只需單擊幾下即可簡化Excel中的複雜任務。

推薦的生產力工具

Office選項卡-Microsoft Office 2019-2003和Office 365中的選項卡式瀏覽，編輯，文檔管理

免費下載

一個用於加速Excel 2019-2007的專業加載項，可將小時任務縮減為幾秒鐘

此外接程序包括數十個專業組，具有300多個選項，可以自動執行Excel中的大多數日常任務，並至少使生產率提高50％。 例如一組一鍵式opton和批量轉換。
現在，您可以使用Kutools for Excel加快自己的速度！

免費下載