I denne vejledning vil jeg give nogle tricks til hurtigt at liste alle billednavne eller filnavne på en bestemt mappe i et Excel-ark som det viste skærmbillede. HURTIG NAVIGATION >Liste over billednavne på en mappe i Excel med VBA >Liste over billednavne eller filformater til specifikt format for en mappe i Excel med Filnavneliste >Download prøvefil

I Excel er der ingen indbygget funktion, der automatisk kan liste alle billednavne på en mappe, du vælger i en celle på et ark, men her har jeg en VBA-kode, som kan hjælpe dig med hurtigt at løse dette job.

1. I Excel skal du trykke på andre + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik på i poppevinduet indsatte > Moduler for at oprette et nyt modul script.

3. Kopier nedenstående kode og indsæt dem i det nye modul-script-vindue.

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. Trykke F5 tasten, så vises der en dialogboks, hvor du kan vælge en celle, der skal placere billednavne.

5. klik OK for at fortsætte med at vælge den mappe, hvor du vil vise billednavne i dialogboksen Gennemse.

6. klik OK, nu er alle billednavne i den valgte mappe blevet vist i Excel.

Bemærk: I VBA-koden kan du jpg / png /… i kodestrengen Hvis InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Så til den filtypenavn, du har brug for, hvis du f.eks. vil liste filnavne på filen i doc-format, skal du kun ændre kodestrengen til Hvis InStr (1, xFileName, ".doc")> 0 Så.

Hvis du normalt har brug for at angive et eller alle formats filnavne på en mappe i Excel-celle i dit daglige arbejde, er koden kompleks og ikke let at håndtere, men med nedenstående måde kan du hurtigt løse dette job.

Ønsker du lønforhøjelse og meget tid til at ledsage familien? Fanen Office forbedrer din effektivitet med 50%, når Microsoft Office arbejder lige nu Utroligt, det er lettere og hurtigere at arbejde på to eller flere dokumenter end at arbejde på et. Sammenlignet med kendte browsere er fanebladeværktøjet i Office-fanen mere kraftfuldt og mere effektivt. Reducer hundreder af museklik og tastaturindtastning hver dag for dig, farvel med musens hånd nu. Hvis du normalt arbejder på flere dokumenter, vil Office Tab være en god tidsbesparelse for dig. 30-dag gratis prøveperiode, ingen kreditkort kræves. Læs mereGratis download nu

Her er et hjælpeprogram - Liste over filnavne in Kutools til Excel, Hvilket kan

>> liste alle filnavne i alle filformater i en mappe i et nyt ark;

>> anfør filnavne i et eller flere filformater, du angiver til Excel;

>> liste filnavne inklusive undermapper og skjulte filer og mapper til Excel.

Gratis prøveversion Sig farvel til musens hånd og cervikal spondylose nu

300 avancerede værktøjer af Kutools til Excel løser 80 % Excel-opgaver på få sekunder, trækker dig ud af de tusindvis af museklik.

Håndter nemt 1500 arbejdsscenarier, ingen grund til at spilde tid på at søge løsninger, hav meget tid til at nyde dit liv. Forbedre 80 % produktivitet for 110000+ yderst effektive mennesker hver dag, selvfølgelig inklusive dig. For ikke at blive plaget af smertefulde formler og VBA, skal du give din hjerne et hvil og en glædelig arbejdsstemning. 30-dages gratis prøveperiode med alle funktioner, 30-dages pengene tilbage uden grund. En bedre krop skaber et bedre liv.

Læs mere Hent nu

Efter gratis installation af Kutools til Excel, skal du gøre som nedenfor:

1. Aktivér den projektmappe, du vil angive filnavnene, og klik derefter på Kutools Plus > Import / Export > Liste over filnavne.

2. i Liste over filnavne Klik først på dialogboksen  for at vælge en mappe, som du vil vise dens filnavne, så kan du markere afkrydsningsfelterne for Inkluder filer i underkataloger , Inkluder skjulte filer og mapper som du har brug for.

3. Vælg derefter det filformat, du vil angive navnene i Filtype sektion.

Check (Skak) Alle filer valgmulighed, viser den alle filnavne i alle filformater i den valgte mappe

Check (Skak) Fælles valgmulighed, og vælg det specifikke filformat, du vil angive filnavne fra rullelisten, så viser det alle filnavne på det filformat, du vælger, i rullelisten

Check (Skak) Angiv valgmulighed, skriv derefter filtypenavnet (ved hjælp af komma til at adskille dem), du vil liste filnavne i tekstboksen, så viser det kun filnavne med de indtastende filtypenavne i Excel

4. Vælg den størrelsesenhed, som du har brug for, fra rullelisten i Filstørrelsesenhed sektion, hvis du vil oprette et link til filnavne, skal du kontrollere Opret hyperlinks valgmulighed.

5. klik Ok, oprettes et nyt ark, der viser filnavne og nogle filoplysninger.

Tip: hvis du vil liste alle arknavne i Excel, kan du anvende Kutools til Excel ' Opret liste over arknavne værktøj, opretter det et nyt ark, der viser alle linkbare arknavne.

Kutools til Excel: + nyttige praktiske værktøjer, der forenkler de komplicerede opgaver i Excel til et par klik.

Anbefalede produktivitetsværktøjer

Fanen Office - Gennemse faner, redigering, styring af dokumenter i Microsoft Office 2019-2003 og Office 365

Gratis download

Et professionelt tilføjelsesprogram til acceleration af Excel 2019-2007, formindsker opgaver til sekunder

Denne tilføjelse inkluderer snesevis af professionelle grupper med 300+ muligheder, der automatiserer de fleste af dine daglige opgaver i Excel og øger din produktivitet mindst med 50%. Såsom grupper med et klik optons og batchkonverteringer.
Nu er det din chance for at fremskynde dig selv med Kutools til Excel!

Gratis download