如何在Excel單元格中快速列出文件夾的圖片名稱/文件名？

作者：孫最後修改時間：2020-07-20

在本教程中，我將提供一些技巧，以快速顯示Excel表格中特定文件夾的所有圖片名稱或文件名，如圖所示。

快速導航

使用VBA列出Excel中文件夾的圖片名稱
 使用“文件名列表”列出Excel中文件夾的圖片名稱或特定格式的文件名
 下載樣本文件

使用VBA列出Excel中文件夾的圖片名稱

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

1.在Excel中，然後按 + 打開鑰匙 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 鍵，然後會彈出一個對話框供您選擇用於放置圖片名稱的單元格。
doc列表圖片名稱1

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

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

注意： 在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單元格中列出文件夾的一種或所有格式的文件名，則代碼很複雜且不易處理，但是通過以下方式，您可以快速解決此問題。