În acest tutorial, vă voi oferi câteva trucuri pentru a enumera rapid toate numele imaginilor sau numele fișierelor unui anumit folder într-o foaie Excel ca captură de ecran prezentată. NAVIGAȚIE RAPIDĂ >Listează numele imaginilor unui folder în Excel cu VBA >Listați numele imaginilor sau numele fișierelor de format specific ale unui folder în Excel cu Lista de nume de fișiere >Descărcați fișierul eșantion

În Excel, nu există nicio funcție încorporată care să poată afișa automat toate numele imaginilor unui folder pe care îl alegeți într-o celulă a unei foi, dar aici am un cod VBA care vă poate ajuta să rezolvați rapid acest job.

1. În Excel, apoi apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În fereastra popping, faceți clic pe Insera > Module pentru a crea un nou script Module.

3. Copiați codul de mai jos și lipiți-le în noua fereastră a scriptului Module.

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. presa F5 , apoi apare un dialog pentru a selecta o celulă pentru a plasa numele imaginilor.

5. clic OK pentru a continua să selectați folderul pe care doriți să-l listați numele imaginilor în dialogul Răsfoire.

6. clic OK, acum toate numele imaginilor din folderul selectat au fost listate în Excel.

Notă: În codul VBA, puteți jpg / png / ... în șirul de cod Dacă InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Apoi la extensia de fișier de care aveți nevoie, de exemplu, dacă doriți să listați numele fișierelor fișierului în format doc, schimbați doar șirul de coduri în Dacă InStr (1, xFileName, ".doc")> 0 Atunci.

Dacă de obicei trebuie să enumerați unul sau toate formatele unui nume de fișier dintr-un dosar în celula Excel în activitatea dvs. zilnică, codul este complex și nu este ușor de manevrat, dar, cu modul de mai jos, puteți rezolva rapid acest job.

Vreți să aveți o creștere a plății și mult timp pentru a însoți cu familia? Fila Office vă îmbunătățește eficiența cu 50% în Microsoft Office funcționând chiar acum Incredibil, lucrul la două sau mai multe documente este mai ușor și mai rapid decât lucrul la unul singur. Comparat cu browsere cunoscute, instrumentul cu file din fila Office este mai puternic și mai eficient. Reduceți sute de clicuri de mouse și tastarea tastaturii în fiecare zi pentru dvs., spuneți adio mâinii mouse-ului acum. Dacă lucrați de obicei la mai multe documente, Office Office va economisi timp excelent pentru dvs. 30- zi de probă gratuită, nu este necesar un card de credit. Citeste mai multDescărcare gratuită acum

Iată un utilitar - Lista de nume de fișiere in Kutools pentru Excel, care poate

>> enumeră toate numele fișierelor în toate formatele de fișiere ale unui folder într-o foaie nouă;

>> enumerați numele fișierelor într-unul sau mai multe formate de fișiere pe care le specificați în Excel;

>> enumerați numele fișierelor, inclusiv subfoldere și fișiere și foldere ascunse în Excel.

Încercare gratuită Spuneți adio mâinii șoarecilor și spondilozei cervicale acum

300 de instrumente avansate de rezolvare Kutools pentru Excel 80% Sarcini Excel în câteva secunde, scoateți-vă din miile de clicuri de mouse.

Faceți cu ușurință 1500 de scenarii de lucru, nu este nevoie să pierdeți timp pentru căutarea soluțiilor, aveți mult timp să vă bucurați de viață. Îmbunătățiți productivitatea cu 80% pentru peste 110000 de persoane extrem de eficiente în fiecare zi, desigur, inclusiv pe dvs. Nu mai fi chinuit de formule dureroase și VBA, dă-i creierului tău o odihnă și o dispoziție plăcută de lucru. Perioadă de încercare gratuită de 30 de zile cu funcții complete, rambursare de 30 de zile fără motive. Un corp mai bun creează o viață mai bună.

Citeste mai mult Descarcă acum

După instalarea gratuită a Kutools pentru Excel, faceți următoarele:

1. Activați registrul de lucru pe care doriți să-l listați numele fișierelor, apoi faceți clic pe Kutools Plus > Import / Export > Lista de nume de fișiere.

2. În Lista de nume de fișiere dialog, în primul rând, faceți clic pe  pentru a selecta un folder pe care doriți să-l enumerați numele fișierelor, puteți bifa casetele de selectare din Includeți fișiere în subdirectoare și Includeți fișiere și foldere ascunse după cum ai nevoie.

3. Apoi selectați formatul de fișier în care doriți să listați numele Tipul fișierelor secţiune.

Verifica Toate fișierele opțiunea, va afișa toate numele fișierelor în toate formatele de fișiere din folderul selectat

Verifica Comun și selectați formatul de fișier specific pe care doriți să-l listați numele fișierelor din lista derulantă, apoi va afișa toate numele fișierelor formatului de fișier pe care îl alegeți în lista derulantă

Verifica Specifica opțiune, apoi tastați extensiile de fișiere (folosind virgulă pentru a le separa) pe care doriți să le afișați numele fișierelor în caseta de text, apoi va lista doar numele fișierelor cu introducerea extensiilor de fișiere în Excel

4. Alegeți unitatea de mărime după cum doriți din lista derulantă din Unitatea de dimensiune a fișierului secțiune, dacă doriți să creați un link către numele fișierelor, verificați Creați hyperlinkuri opțiune.

5. clic Ok, va fi creată o nouă foaie pentru a enumera numele fișierelor și unele informații despre fișiere.

Sfat: dacă doriți să enumerați toate numele foilor în Excel, puteți aplica Kutools pentru Excel ' Creați o listă de nume de foi utilitar, va crea o foaie nouă pentru a enumera toate numele foilor care pot fi conectate.

Kutools pentru Excel: + instrumente utile la îndemână, simplificând sarcinile complicate din Excel în câteva clicuri.

Instrumente de productivitate recomandate

Fila Office - Navigarea cu tab-uri, editarea, gestionarea documentelor în Microsoft Office 2019 - 2003 și Office 365

Descărcare gratuită

Un program de completare profesional pentru accelerarea Excel 2019-2007, micșorează sarcinile de ore la secunde

Acest supliment include zeci de grupuri profesionale, cu peste 300 de opțiuni care vă vor automatiza majoritatea sarcinilor zilnice în Excel și vă vor crește productivitatea cu cel puțin 50%. De exemplu, grupuri de opțiuni cu un singur clic și conversii în serie.
Acum este șansa ta de a te accelera cu Kutools pentru Excel!

Descărcare gratuită