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

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

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

快速導航

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

doc列表圖片名稱1

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


其他

您想加薪並有很多時間陪伴家人嗎?

Office選項卡可將Microsoft Office立即工作的效率提高50%

令人難以置信的是,處理兩個或多個文檔比處理一個或多個文檔更容易,更快捷。

與知名瀏覽器相比,Office Tab中的選項卡式工具功能更強大,更高效。

每天為您減少數百次鼠標單擊和鍵盤輸入,現在告別鼠標手。

如果您通常處理多個文檔,Office Tab將為您節省大量時間。

30-天免費試用,無需信用卡。

閱讀更多現在免費下載


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

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

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

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

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

告別鼠標手和頸椎病

300個高級工具 Kutools for Excel 解決 80% 數秒內完成 Excel 任務,讓您擺脫數千次鼠標點擊。

輕鬆應對1500個工作場景,無需浪費時間尋找解決方案,有更多時間享受生活。

每天為 80+ 高效能人士提高 110000% 的生產力,當然也包括你。

不再被痛苦的公式和VBA折磨,給你的大腦一個休息和快樂的工作心情。

30- 全功能免費試用一天, 30- 無理由退款。

更好的身體創造更好的生活。

免費安裝Kutools for Excel後,請執行以下操作:

1.啟用要列出文件名的工作簿,然後單擊 Kutools 加 > 進出口 > 文件名列表.
doc列表圖片名稱4

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

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

來看看我們的 所有文件 選項,它將列出所選文件夾中所有文件格式的所有文件名
doc列表圖片名稱7
來看看我們的 共同 選項,然後從下拉列表中選擇要列出文件名的特定文件格式,然後它將列出您在下拉列表中選擇的文件格式的所有文件名
doc列表圖片名稱8
來看看我們的 指定 選項,然後在文本框中鍵入要在列表中列出文件名的文件擴展名(使用逗號分隔),然後它將僅在Excel中列出帶有輸入文件擴展名的文件名
doc列表圖片名稱9

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

doc列表圖片名稱10 doc列表圖片名稱11

5。 點擊 Ok,將創建一個新工作表來列出文件名和一些文件信息。
doc列表圖片名稱12

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

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


下載樣本文件

樣品


如何使您從人群中脫穎而出,輕鬆工作並悠閒地享受生活?

Kutools for Excel 將平均每天提高您 80% 的效率,讓您有更多的時間陪伴家人,享受生活。

300個高級工具解決 80% Excel 問題,您不再苦苦尋找解決方案,更輕鬆地完成工作。

輕鬆應對1500個Excel場景,每天為您節省至少1小時。

在5分鐘內成為Excel專家,獲得人們的認可和晉昇機會。

一鍵式實用程序處理批處理,使您避免數千次鼠標單擊,與鼠標手說再見。

擺脫死記硬背的公式和復雜的VBA,讓您的大腦休息一下。

110000多名高效率官員和300多家世界知名公司的選擇。

僅花費$ 39,但比$ 4000的其他人培訓更有價值

30 天免費試用無任何限制,全額退款 30-天沒有任何理由。


推薦的生產力工具

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


辦公室標籤

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

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


按評論排序
留言 (10)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
代碼可能有問題嗎? 因為當它拉起框以選擇照片時,它將充滿圖像(.png)的文件夾顯示為空。
網站主持人對此評論進行了最小化
代碼有可能有問題嗎? 文件資源管理器將我的充滿圖像 (.png) 的文件夾顯示為空。
網站主持人對此評論進行了最小化
我遇到了同樣的問題,在腳本中它有不同的文件擴展名,你必須大寫它正在尋找的文件擴展名,例如,你說你的文件是“.png”,如果你大寫它,即“.PNG”它可能會工作。
網站主持人對此評論進行了最小化
現在它對我有用。 謝謝!!!
網站主持人對此評論進行了最小化
如何在excel中導出具有特定文件名的圖像。
網站主持人對此評論進行了最小化
嗨,
根據上面的代碼,我以遞增的順序獲取圖像名稱,但是放置圖像的路徑是數字遞增的。

請建議我如何保持相同的格式。
網站主持人對此評論進行了最小化
驚人的! 感謝你的分享!
網站主持人對此評論進行了最小化
在 Libreoffice Calc 中,我使用通過宏並基於某些條件將文件列表導入 Calc 表的行/列的功能 - 我在工具欄上為這個特定的宏創建了一個按鈕,按下它後,我選擇一個文件夾,圖像列表會立即插入到一個新文檔中。 如何在 Excel 中使其盡可能簡單? 我有很多包含 1 個或多個圖像的文件夾,我需要:
> 如果文件夾包含 1 張圖片,我需要將它放在 Excel 中的新行上。
> 如果文件夾包含更多圖像,第一個在新行上,第二個在:
- 在同一行(在一列中)的第一個旁邊,由字符 | 分隔(例如:照片 1.jpeg | 照片 2.jpeg)
- 或者將他們的名字放在列中(即使沒有 | 字符)(第一個選項會更好,但第二個也足夠了)

這些是我需要通過 csv 文件導入 Woocommerce 的產品圖片。
網站主持人對此評論進行了最小化
非常感謝!
網站主持人對此評論進行了最小化
嘿! 這是超級快,謝謝
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

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