I denna handledning kommer jag att ge några knep för att snabbt lista alla bildnamn eller filnamn för en viss mapp i ett Excel-ark som skärmdumpen som visas. SNABB NAVIGATION >Lista bildnamn på en mapp i Excel med VBA >Lista bildnamn eller filformat för specifikt format för en mapp i Excel med filnamnlista >Ladda ner exempelfil

I Excel finns det ingen inbyggd funktion som automatiskt kan lista alla bildnamn på en mapp du väljer i en cell på ett ark, men här har jag en VBA-kod som kan hjälpa dig att snabbt lösa detta jobb.

1. I Excel, tryck sedan på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka på i poppfönstret Insert > Modulerna för att skapa ett nytt modulskript.

3. Kopiera nedanstående kod och klistra in dem i det nya modulskriptfönstret.

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. Tryck F5 -tangenten, sedan öppnas en dialogruta där du kan välja en cell för att placera bildnamnen.

5. klick OK för att fortsätta markera den mapp du vill visa bildnamnen i dialogrutan Bläddra.

6. klick OK, nu har alla bildnamn i den valda mappen varit listade i Excel.

Notera: I VBA-koden kan du jpg / png /… i kodsträngen Om InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Sedan till filtillägget du behöver, till exempel om du vill lista filnamn på filen i doc-format, ändra bara kodsträngen till Om InStr (1, xFileName, ".doc")> 0 Då.

Om du vanligtvis behöver lista ett eller alla formats filnamn på en mapp i Excel-cellen i ditt dagliga arbete är koden komplicerad och inte lätt att hantera, men med nedanstående sätt kan du snabbt lösa det här jobbet.

Vill du ha löneförhöjning och mycket tid att följa med familjen? Fliken Office förbättrar din effektivitet med 50% när Microsoft Office arbetar just nu Otroligt, att arbeta på två eller flera dokument är enklare och snabbare än att arbeta på ett. Jämfört med kända webbläsare är flikverktyget i Office-fliken kraftfullare och effektivare. Minska hundratals musklick och tangentbordstypning varje dag åt dig, säg adjö till mushanden nu. Om du vanligtvis arbetar med flera dokument kommer Office Tab att vara en bra tidsbesparing för dig. 30- dagars gratis provperiod, inget kreditkort krävs. Läs merGratis nedladdning nu

Här är ett verktyg - Lista över filnamn in Kutools för Excel, som kan

>> lista alla filnamn i alla filformat i en mapp i ett nytt ark;

>> lista filnamnen i ett eller flera filformat som du anger för Excel;

>> lista filnamn inklusive undermappar och dolda filer och mappar till Excel.

Pröva På Säg adjö till mushand och cervikal spondylos nu

300 avancerade verktyg av Kutools för Excel lösa 80% Excel-uppgifter på några sekunder, dra dig ut ur tusentals musklick.

Hantera enkelt 1500 arbetsscenarier, du behöver inte slösa tid på att söka lösningar, ha mycket tid att njuta av ditt liv. Förbättra 80 % produktivitet för 110000 XNUMX+ mycket effektiva människor varje dag, naturligtvis inklusive dig. Inte längre att plågas av smärtsamma formler och VBA, ge din hjärna en vila och glädjande arbetsstämning. 30 dagars gratis provperiod med alla funktioner, 30 dagars pengarna tillbaka utan anledning. En bättre kropp skapar ett bättre liv.

Läs mer Hämta hem nu

Efter gratis installation av Kutools för Excel, gör så här:

1. Aktivera arbetsboken som du vill lista filnamnen och klicka sedan på Kutools Plus > Import / Export > Lista över filnamn.

2. I Lista över filnamn Klicka först på dialogrutan  för att välja en mapp som du vill lista dess filnamn, kan du markera kryssrutorna för Inkludera filer i underkataloger och Inkludera dolda filer och mappar som du behöver.

3. Välj sedan filformatet du vill lista namnen i Filtyp sektion.

Kolla upp Alla filer alternativ, kommer det att lista alla filnamn i alla filformat i den valda mappen

Kolla upp Gemensam och välj det specifika filformat du vill lista filnamnen från rullgardinsmenyn, då kommer det att lista alla filnamn på filformatet du väljer i rullgardinsmenyn

Kolla upp Ange alternativet, skriv sedan filtilläggen (använd kommatecken för att separera dem) du vill lista filnamnen i textrutan, då listas det bara filnamnen med de inmatade filtilläggen i Excel

4. Välj önskad storlek från rullgardinsmenyn i Enhet för filstorlek avsnittet, om du vill skapa en länk till filnamnen, kontrollera Skapa hyperlänkar alternativ.

5. klick Okkommer ett nytt ark att skapas för att lista filnamnen och viss filinformation.

Dricks: om du vill lista alla arknamn i Excel kan du använda Kutools för Excel ' Skapa lista över arknamn verktyget kommer det att skapa ett nytt ark för att lista alla länkbara arknamn.

Kutools för Excel: + användbara praktiska verktyg som förenklar de komplicerade uppgifterna i Excel till några få klick.

Rekommenderade produktivitetsverktyg

Fliken Office - Bläddring, redigering, hantering av dokument i Microsoft Office 2019-2003 och Office 365

Gratis nedladdning

Ett professionellt tillägg för att påskynda Excel 2019-2007, krympa timmar till sekunder

Detta tillägg innehåller dussintals yrkesgrupper, med 300+ alternativ automatiserar de flesta av dina dagliga uppgifter i Excel och ökar din produktivitet med minst 50%. Såsom grupper med ett klick optons och batchkonverteringar.
Nu är det din chans att snabba upp dig själv med Kutools för Excel!

Gratis nedladdning