Hoe snel de namen van afbeeldingen/bestandsnamen van een map in Excel-cellen te lijsten?

In deze handleiding bied ik enkele trucs om snel alle afbeeldingsnamen of bestandsnamen van een specifieke map in een Excel-werkblad te lijsten, zoals in de schermafbeelding te zien is. SNELLE NAVIGATIE > Lijst met afbeeldingsnamen van een map in Excel met VBA > Lijst met afbeeldingsnamen of specifiek formaat bestandsnamen van een map in Excel met Bestandsnaamlijst > Voorbeeldbestand downloaden

In Excel is er geen ingebouwde functie die automatisch alle afbeeldingsnamen van een door u gekozen map in een cel van een werkblad kan weergeven, maar hier heb ik een VBA-code die u snel kan helpen bij deze taak.

1. In Excel drukt u vervolgens op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het pop-upvenster op Invoegen > Module om een nieuw modulescript te maken.

3. Kopieer onderstaande code en plak deze in het nieuwe modulescriptvenster.

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. Druk op F5 toets, dan verschijnt een dialoogvenster waarin u een cel kunt selecteren om de afbeeldingsnamen te plaatsen.

5. Klik op OK om verder te gaan met het selecteren van de map waarvan u de afbeeldingsnamen wilt tonen in het Blader-dialoogvenster.

6. Klik op OK, nu zijn alle afbeeldingsnamen in de geselecteerde map in Excel gelijst.

Opmerking: In de VBA-code kunt u jpg/png/… in de codestring If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then wijzigen naar de bestandsextensie die u nodig hebt. Bijvoorbeeld, als u bestandsnamen in doc-formaat wilt tonen, wijzigt u de codestring in If InStr(1, xFileName, ".doc") > 0 Then.

Als u regelmatig één of alle formaten van bestandsnamen van een map in een Excel-cel moet tonen in uw dagelijkse werkzaamheden, is de code complex en niet eenvoudig te hanteren, maar met onderstaande methode kunt u deze taak snel oplossen.

Wilt u een salarisverhoging en veel tijd om met uw familie door te brengen? Office Tab verhoogt uw efficiëntie met 50% in Microsoft Office werkzaamheden op dit moment. Onvoorstelbaar, werken aan twee of meer documenten is gemakkelijker en sneller dan werken aan één. In vergelijking met bekende browsers is het tabbladgereedschap in Office Tab krachtiger en efficiënter. Verminder honderden muisklikken en toetsaanslagen elke dag voor u, zeg nu vaarwel tegen de muisarm. Als u gewoonlijk aan meerdere documenten werkt, zal Office Tab een grote tijdbespaarder voor u zijn. 30-dagen gratis proefperiode, geen creditcard vereist. Lees MeerNu Gratis Downloaden

Hier is een hulpmiddel – Bestandsnaamlijst in Kutools voor Excel, dat kan

>> alle bestandsnamen in alle bestandsformaten van een map in een nieuw werkblad tonen;

>> de bestandsnamen in één of meerdere gespecificeerde bestandsformaten naar Excel tonen;

>> bestandsnamen inclusief submappen en verborgen bestanden en mappen naar Excel tonen.

Gratis Proefperiode Zeg Nu Afscheid Tegen Muisarm en Cervicale Spondylose

300 geavanceerde tools van Kutools voor Excel lossen 80% Excel-taken binnen enkele seconden op, trek je weg van de duizenden muisklikken.

Eenvoudig omgaan met 1500 werkscenario's, geen tijdverspilling meer aan het zoeken naar oplossingen, veel tijd om van je leven te genieten. Verhoog 80% productiviteit voor 110000+ zeer effectieve mensen elke dag, natuurlijk inclusief jou. Niet langer gekweld worden door pijnlijke formules en VBA, geef je brein rust en een vrolijke werksfeer. 30-daagse gratis proefperiode met alle functies, 30-daagse terugbetaling zonder reden. Een Betere Lichaamshouding Creëert Een Beter Leven.

Lees Meer Download Nu

Na gratis installatie van Kutools voor Excel, doe dan als volgt:

1. Open het werkboek waarin u de bestandsnamen wilt tonen, klik dan op Kutools Plus > Import/Export > Bestandsnaamlijst.

2. In het Bestandsnaamlijst dialoogvenster klikt u eerst op om een map te selecteren waarvan u de bestandsnamen wilt tonen, daarna kunt u de selectievakjes aanvinken voor Bestanden in submappen opnemen en Verborgen bestanden en mappen opnemen indien nodig.

3. Selecteer vervolgens het bestandsformaat waarin u de namen wilt tonen in de sectie Bestandstype.

Selecteer de optie Alle bestanden, dan worden alle bestandsnamen in alle bestandsformaten in de geselecteerde map getoond.

Selecteer de optie Gangbare typen en kies het specifieke bestandsformaat waarin u de bestandsnamen wilt tonen uit de vervolgkeuzelijst, dan worden alle bestandsnamen van het gekozen bestandsformaat getoond.

Selecteer de optie Specificeer, typ dan de bestandsextensies (gescheiden door komma's) waarin u de bestandsnamen wilt tonen in het tekstvak, dan worden alleen de bestandsnamen met de ingevoerde bestandsextensies in Excel getoond.

4. Kies de maateenheid die u nodig heeft uit de vervolgkeuzelijst in de sectie Eenheid van bestandsgrootte, als u een hyperlink naar de bestandsnamen wilt maken, vink dan de optie Hyperlinks maken aan.

5. Klik op Ok, er wordt een nieuw werkblad aangemaakt om de bestandsnamen en enige bestandsinformatie te tonen.

Tip: als u alle werkbladnamen in Excel wilt tonen, kunt u Kutools voor Excel’ Maak koppeltabel hulpmiddel gebruiken, het maakt een nieuw werkblad om alle linkbare werkbladnamen te tonen.

Kutools voor Excel:+ nuttige handige tools, die de ingewikkelde taken in Excel vereenvoudigen tot een paar klikken.