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

Hoe snel de afbeeldingsnamen / bestandsnamen van een map weergeven in Excel-cellen?

In deze tutorial zal ik enkele trucs geven om snel alle afbeeldingsnamen of bestandsnamen van een specifieke map in een Excel-blad op te sommen, zoals in de schermafbeelding wordt getoond.

SNELLE NAVIGATIE

Maak een lijst van afbeeldingsnamen van een map in Excel met VBA
Maak een lijst van afbeeldingsnamen of specifieke bestandsnamen van een map in Excel met Bestandsnamenlijst
Download voorbeeldbestand

naam van documentlijstafbeelding 1

Maak een lijst van afbeeldingsnamen van een map in Excel met VBA

In Excel is er geen ingebouwde functie die automatisch alle afbeeldingsnamen van een map die u kiest in een cel van een blad kan weergeven, maar hier heb ik een VBA-code waarmee u deze taak snel kunt oplossen.

1. Druk in Excel op + sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

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

3. Kopieer onderstaande code en plak ze 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 er een dialoogvenster waarin u een cel kunt selecteren om de afbeeldingsnamen in te plaatsen.
naam van documentlijstafbeelding 1

5. klikken OK om door te gaan met het selecteren van de map waarin u de afbeeldingsnamen wilt weergeven in het dialoogvenster Bladeren.
naam van documentlijstafbeelding 3

6. klikken OK, nu zijn alle afbeeldingsnamen in de geselecteerde map in Excel weergegeven.
naam van documentlijstafbeelding 13

Opmerking: In de VBA-code kun je jpg / png /… in de codestring Als InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Dan naar de bestandsextensie die u nodig heeft, als u bijvoorbeeld bestandsnamen van het bestand in doc-formaat wilt weergeven, wijzigt u alleen de codestring in Als InStr (1, xFileName, ".doc")> 0 Then.

Als u in uw dagelijkse werk meestal een of alle bestandsnamen van een map in de Excel-cel moet vermelden, is de code complex en niet gemakkelijk te hanteren, maar met onderstaande manier kunt u deze taak snel oplossen.


iet bewegen

Wilt u een loonsverhoging en veel tijd om met uw gezin te begeleiden?

Office-tabblad verbetert uw efficiëntie met 50% in Microsoft Office dat nu werkt

Ongelofelijk, werken aan twee of meer documenten is gemakkelijker en sneller dan werken aan één.

In vergelijking met bekende browsers is de tool met tabbladen in Office Tab krachtiger en efficiënter.

Verminder elke dag honderden muisklikken en typen op het toetsenbord, zeg nu gedag tegen de muishand.

Als u gewoonlijk aan meerdere documenten werkt, bespaart Office Tab u veel tijd.

Gratis proefperiode van 30-dag, geen kredietkaart nodig.

Lees meerGratis nu downloaden


Maak een lijst van afbeeldingsnamen of specifieke bestandsnamen van een map in Excel met Bestandsnamenlijst

Hier is een hulpprogramma - Bestandsnaam lijst in Kutools for Excel, welke kan

>> lijst alle bestandsnamen in alle bestandsformaten van een map in een nieuw blad;

>> vermeld de bestandsnamen in een of meerdere bestandsindelingen die u opgeeft in Excel;

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

Zeg nu gedag tegen muishand en cervicale spondylose

300 geavanceerde tools van Kutools voor Excel lossen 80% Excel-taken op in seconden, halen u uit de duizenden muisklikken.

Gemakkelijk omgaan met 1500 werkscenario's, geen tijd verspillen aan het zoeken naar oplossingen, veel tijd hebben om van je leven te genieten.

Verbeter elke dag 80% productiviteit voor 110000+ zeer effectieve mensen, natuurlijk inclusief u.

Niet langer gekweld worden door pijnlijke formules en VBA, geef uw hersenen een rustgevende en vreugdevolle werkstemming.

Gratis proefperiode van 30 dagen met alle functies, 30 dagen geld terug zonder opgaaf van redenen.

Een beter lichaam zorgt voor een beter leven.

Nadat u Kutools voor Excel gratis hebt geïnstalleerd, doet u het volgende:

1. Schakel de werkmap in waarvan u de bestandsnamen wilt weergeven en klik op Kutools Plus > Import / Export > Bestandsnaam lijst.
naam van documentlijstafbeelding 4

2. In de Bestandsnaam lijst dialoogvenster, klik eerst op  naam van documentlijstafbeelding 5om een ​​map te selecteren waarvan u de bestandsnamen wilt weergeven, dan kunt u de selectievakjes van aanvinken Voeg bestanden toe aan submappen als Inclusief verborgen bestanden en mappen als je nodig hebt.
naam van documentlijstafbeelding 6

3. Selecteer vervolgens het bestandsformaat waarin u de namen wilt weergeven Bestanden type sectie.

Check Alle bestanden optie, toont het alle bestandsnamen in alle bestandsformaten in de geselecteerde map
naam van documentlijstafbeelding 7
Check Gemeen optie, en selecteer het specifieke bestandsformaat waarvan u de bestandsnamen wilt weergeven in de vervolgkeuzelijst, dan worden alle bestandsnamen weergegeven van het bestandsformaat dat u kiest in de vervolgkeuzelijst
naam van documentlijstafbeelding 8
Check Specificeren optie, typ vervolgens de bestandsextensies (gebruik een komma om ze te scheiden) u wilt de bestandsnamen in het tekstvak weergeven, dan worden alleen de bestandsnamen weergegeven met de invoerende bestandsextensies in Excel
naam van documentlijstafbeelding 9

4. Kies de maateenheid die u nodig heeft uit de vervolgkeuzelijst in Bestandsgrootte eenheid sectie, als u een link naar de bestandsnamen wilt maken, vink dan aan Maak hyperlinks optie.

naam van documentlijstafbeelding 10 naam van documentlijstafbeelding 11

5. klikken Ok, wordt er een nieuw blad gemaakt met de bestandsnamen en wat bestandsinformatie.
naam van documentlijstafbeelding 12

Tip: als u alle bladnamen in Excel wilt weergeven, kunt u Kutools voor Excel toepassen ' Maak een lijst met bladnamen hulpprogramma, zal het een nieuw blad maken met alle koppelbare bladnamen.
maak een lijst met bladnamen

Kutools for Excel:

Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or
+ handige handige tools die de gecompliceerde taken in Excel met een paar klikken vereenvoudigen.

Download voorbeeldbestand

monster


Hoe u zich kunt onderscheiden van de massa, gemakkelijk kunt werken en ontspannen van het leven kunt genieten?

Kutools for Excel verbetert uw efficiëntie van 80% gemiddeld elke dag, zorgt ervoor dat u veel tijd heeft om met uw gezin te begeleiden en plezier te hebben in het leven.

300 geavanceerde tools lossen 80% Excel-problemen op, u worstelt niet langer met het zoeken naar oplossingen, voltooit gemakkelijker werk.

Verwerk gemakkelijk 1500 Excel-scenario's, bespaar elke dag minimaal 1 uur voor u.

Word een Excel-expert in 5 minuten, verkrijg de erkenning van mensen en krijg kansen op promotie.

Hulpprogramma's met één klik zorgen voor batchverwerking, zodat u duizenden muisklikken kunt vermijden en gedag kunt zeggen tegen de muis.

Weg met het uit het hoofd leren van formules en complexe VBA, geef uw hersenen rust.

110000+ hoogrenderende functionarissen en 300+ keuze van wereldberoemde bedrijven.

Neem slechts $ 39, maar veel waard dan $ 4000, training van andere mensen

30 dagen gratis proefperiode zonder enige beperking, volledig geld terug in 30 dagen zonder enige reden.


Aanbevolen productiviteitstools

Office-tabblad - Bladeren, bewerken en beheren van documenten met tabbladen in Microsoft Office 2019-2003 en Office 365


kantoor tab

Een professionele invoegtoepassing voor het versnellen van Excel 2019-2007, uren taken terugbrengen tot seconden

Deze invoegtoepassing omvat tientallen professionele groepen, met meer dan 300 opties automatiseert u de meeste van uw dagelijkse taken in Excel en verhoogt u uw productiviteit met minstens 50%. Zoals groepen optons met één klik en batchconversies.
Nu is het uw kans om uzelf te versnellen met Kutools voor Excel!


Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JJB · 5 months ago
    Hey! This is super quick and thanks
  • To post as a guest, your comment is unpublished.
    Leonie · 1 years ago
    Thanks so much for this!


  • To post as a guest, your comment is unpublished.
    Andrej · 1 years ago
    In Libreoffice Calc I use the function of importing a list of files into the rows / columns of a Calc table, via Macro and based on certain criteria - I have created a button on the toolbar for this particular macro, and after pressing it, I select a folder, and the list of images is immediately inserted into a new document. How to make it as easy as possible in Excel? I have a lot of folders that contain 1 or more images and I need to:
    > If the folder contains 1 image, I need it to be on a new line in Excel.
    > If the folder contains more images, the first being on a new line and the second either:
    - next to the first in the same row (in one column), separated by the character | (example: photo 1.jpeg | photo 2.jpeg)
    - or to have their names in the columns (even without the | character) (the first option would be better, but the second is enough as well)
    These are the product images whose names I need for import into Woocommerce - via a csv file.
  • To post as a guest, your comment is unpublished.
    Ceki · 1 years ago
    Amazing! Thank you for sharing!
  • To post as a guest, your comment is unpublished.
    Mayank · 1 years ago
    Hi,
    As per the above code I am getting the the images name in an incrementing order, however the path where the images are being placed are in numeric incrementation.

    Kindly suggest how I can keep the same formatting.
  • To post as a guest, your comment is unpublished.
    Omila · 1 years ago
    How to export an image with specific file name in excel.
  • To post as a guest, your comment is unpublished.
    THE HELPER · 3 years ago
    I WAS HAVING THE SAME PROBLEM TANNER, IN THE SCRIPT WHERE IT HAS THE DIFFERENT FILE EXTENSIONS ITS GOING TO GRAB,YOU HAVE TO CAPITALIZE THE FILE EXTENSION ITS LOOKING FOR, FOR EXAMPLE, YOU SAID YOUR FILES ARE ".png", WELL IF YOU CAPITALIZE IT I.E ".PNG" IT MAY WORK.
    • To post as a guest, your comment is unpublished.
      Alexandre · 1 days ago
      Now it works for me. Thanks!!!
  • To post as a guest, your comment is unpublished.
    monk2011@gmail.com · 3 years ago
    Is it possible that there is something wrong with the code? The file explorer is showing my folder full of images (.png) as empty.
  • To post as a guest, your comment is unpublished.
    Tanner · 3 years ago
    Is it possible something is wrong with the code? Because it shows folders full of images (.png) as empty when it pulls up the box to select the photos.