Hoe geef ik snel alle afbeeldings- of bestandsnamen uit een map weer in Excel?
Bij het werken met verzamelingen afbeeldingen of bestanden is het vaak essentieel om in Excel een catalogus of referentielijst aan te leggen voor taken zoals voorraadbeheer, rapportage of zelfs alleen maar voor snelle opzoeking. Het handmatig invoeren van alle bestands- of afbeeldingsnamen uit een map in een Excel-werkblad is tijdrovend en foutgevoelig, zeker wanneer de map veel bestanden bevat of regelmatig wordt bijgewerkt. Gelukkig biedt Excel diverse slimme oplossingen – zowel ingebouwd als via add-ins of scripts – om dit proces te automatiseren en zo de nauwkeurigheid én efficiëntie aanzienlijk te verhogen.
Deze handleiding beschrijft een reeks praktische technieken om snel alle afbeeldingsnamen of bestandsnamen uit een opgegeven map in een Excel-werkblad te plaatsen, zoals te zien is in de schermafbeelding rechts. Of u nu werkt met afbeeldingen, documenten of een mix van bestandstypen – deze methoden stroomlijnen uw workflow en besparen u aanzienlijk tijd. SNELLE NAVIGATIE Afbeeldingsnamen uit een map in Excel weergeven met VBA |  |
Afbeeldingsnamen uit een map in Excel weergeven met VBA
Standaard biedt Excel geen ingebouwde optie om automatisch bestands- of afbeeldingsnamen uit een computermap in een werkblad te importeren. U kunt echter eenvoudigweg een VBA-macro gebruiken om alle afbeeldingsbestanden (of bestanden van andere opgegeven typen) rechtstreeks uit een map in Excel-cellen weer te geven. Deze oplossing is ideaal als u deze taak incidenteel uitvoert, maximale controle wenst of liever geen extra add-ins installeert. De methode werkt trouwens voor diverse bestandsextensies – niet alleen afbeeldingen – door simpelweg het bestandsfilter in de code aan te passen.
De VBA-methode is krachtig, maar vereist zorgvuldige uitvoering: onjuiste aanpassingen aan de code kunnen fouten veroorzaken. Controleer altijd het bestandspad en de extensiefilters voordat u het script uitvoert. Houd er rekening mee dat wijzigingen in de mapinhoud na het genereren van de lijst niet automatisch worden bijgewerkt in Excel, tenzij u de code opnieuw uitvoert. Zo gebruikt u het:
1. Druk in Excel op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het pop-upvenster op Invoegen > Module om een nieuwe module toe te voegen – hier plakt u de VBA-code.
3. Kopieer en plak de volgende code in het modulevenster:
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 Sub4. Druk op F5 of klik op de knop Uitvoeren in het VBA-venster om het script uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd een cel te selecteren waar u de lijst met afbeeldingsnamen wilt plaatsen.
5. Nadat u de cel heeft bevestigd, wordt u gevraagd de map te zoeken met de afbeeldingen of bestanden die u wilt weergeven. Navigeer naar de juiste map en selecteer deze.
6. Klik op OK. Alle bestandsnamen van afbeeldingen (inclusief het volledige pad) die overeenkomen met de extensies in de code (.jpg, .png, .img, .ico, .bmp) uit de geselecteerde map, worden direct weergegeven in de gekozen Excel-cel en in de cellen eronder.
Opmerking: U kunt de VBA-code aanpassen om andere bestandstypen te targeten door de extensies in de voorwaarde aan te passen: If InStr(1, xFileName, „.jpg") + ... > 0 Then. Wilt u bijvoorbeeld alleen Word-documenten weergeven, verander dit dan in If InStr(1, xFileName, „.docx") > 0 Then. Zorg ervoor dat u een punt voor de extensie plaatst (gebruik dus ".pdf" en niet „pdf"). Om meerdere verschillende bestandstypen weer te geven, combineert u deze met plustekens, zoals getoond.
Belangrijke herinnering: Deze VBA-oplossing toont alleen bestanden op het hoogste niveau van de gekozen map. Bestanden in submappen of verborgen mappen worden niet meegenomen, tenzij de code wordt aangepast om recursief te werken.
Hoewel de VBA-oplossing aanzienlijke aanpassingsmogelijkheden en flexibiliteit biedt, moet u de macro elke keer opnieuw uitvoeren wanneer u de Lijst met bestanden wilt vernieuwen of bijwerken. Voor gebruikers die een terugkerende of geautomatiseerde workflow zoeken – vooral als ze minder vertrouwd zijn met code – kan de hieronder beschreven add-in-aanpak efficiënter zijn.
 | Wilt u een loonsverhoging én veel tijd met uw gezin doorbrengen? Office Tab Verhoogt uw efficiëntie met 50 % in Microsoft Office, direct terwijl u werkt
|
Ongelooflijk maar waar: met twee of meer documenten werken is eenvoudiger én sneller dan met één.Afbeeldingsnamen of specifieke Bestandstype uit een map in Excel weergeven met de Bestandsnaamlijst-functie
Als u regelmatig alle bestanden of afbeeldingen uit verschillende mappen moet weergeven – met opties zoals bestandstype, inclusief submappen of zelfs het toevoegen van directe hyperlinks – dan beschikt Kutools voor Excel over een speciaal daarvoor ontworpen hulpmiddel: de Bestandsnaamlijst. Met deze tool werkt u efficiënter en kunt u eenvoudig:
- Alle bestanden uit elke map weergeven, inclusief elke bestandsextensie, in een Nieuw werkblad voor eenvoudig bijhouden of catalogiseren.
- Filter en geef alleen de Bestandstype weer die u opgeeft, zoals afbeeldingen, PDF's of aangepaste extensies.
- Bestanden in submappen opnemen en verborgen Bestanden en Mappen weergeven, voor een echt uitgebreid overzicht.
Zeg nu vaarwel tegen muisarm en cervicale spondylose
De 300 geavanceerde hulpmiddelen van Kutools voor Excel lossen 80 % van uw Excel-taken binnen enkele seconden op en redden u van duizenden muisklikken.
 |
|
Ga moeiteloos om met 1500 werksituaties, zonder tijd te verspillen aan het zoeken naar oplossingen – zodat u meer tijd overhoudt om van het leven te genieten.Na installatie van Kutools voor Excel (een snel en eenvoudig proces) volgt u deze stappen om bestands- of afbeeldingsnamen uit een map weer te geven:
1. Open de Excel-werkmap waarin u de lijst met bestanden wilt weergeven. Ga naar het tabblad KUTOOLS PLUS, selecteer Importeren/Exporteren en klik vervolgens op Bestandsnaamlijst.
2. In het dialoogvenster Bestandsnaamlijst klikt u eerst op 
om de map te kiezen waar uw bestanden of afbeeldingen zich bevinden. U kunt ook het selectievakje Bestanden in submappen opnemen aanvinken om bestanden uit alle submappen mee te nemen, en Verborgen bestanden en mappen opnemen om indien nodig ook verborgen bestanden weer te geven.
3. Bepaal welke bestanden u wilt weergeven in de sectie Bestandstype. U hebt verschillende opties om dit aan te passen:
4. Kies uw gewenste eenheid van bestandsgrootte in de keuzelijst Eenheid van bestandsgrootte (byte, KB, MB, enz.) voor gedetailleerdere tracking, en vink Hyperlink maken aan als u wilt dat elke bestandsnaam in Excel direct linkt naar het daadwerkelijke bestand op uw systeem. Ideaal voor snel openen en eenvoudig navigeren op een later moment!
 |  |
5. Klik op OK. Kutools genereert een volledige lijst van uw opgegeven bestanden (met optionele extra informatie, zoals bestandsgrootte, bestandstype, aanmaaktijd, enzovoort) in een nieuw werkblad.
Tips en probleemoplossing: Als uw map veel bestanden of submappen bevat, wacht dan enkele seconden tot de verwerking is voltooid. Als niet alle verwachte bestanden worden opgenomen, controleer dan opnieuw het bestandstypefilter en de submapopties, en zorg ervoor dat verborgen bestanden of mappen niet per ongeluk zijn uitgesloten. Voor mappen die regelmatig worden bijgewerkt met gegenereerde bestanden, voert u eenvoudigweg het bestandsnaamlijst-proces opnieuw uit om de lijst in uw werkmap te vernieuwen. Deze aanpak is vooral handig voor gebruikers met terugkerende documentatiebehoeften of voor wie regelmatig digitale assets in bulk beheert.
Een andere handige Kutools-functie voor bestandsbeheer is de tool Maak koppeltabel, perfect om alle werkbladen in uw Excel-bestand te documenteren of aan elkaar te koppelen. Combineer beide tools voor uitgebreide documentatie van uw werkboeken en bestanden:
Kutools voor Excel: een veelzijdige verzameling gebruiksvriendelijke tools die complexe Excel-bewerkingen vereenvoudigen en versnellen.
Alle bestandsnamen weergeven door te kopiëren en plakken vanuit Windows Verkenner
Voor snelle en eenvoudige behoeften zonder scripts of invoegtoepassingen kunt u Windows Verkenner combineren met Excel om een lijst met bestandsnamen te verkrijgen. Deze methode is effectief als u geen Bestandstype of geavanceerde filters nodig heeft.
1. Open de gewenste map in Verkenner (Windows Verkenner).
2. Druk op Ctrl+A om alle bestanden te selecteren, houd daarna de Shift-toets ingedrukt en klik met de rechtermuisknop op een van de geselecteerde bestanden. Klik in het contextmenu op Kopiëren als pad.
3. Schakel over naar uw Excel-werkblad, selecteer de begincel en druk op Ctrl+V om te plakken. Zo wordt het bestandspad (inclusief bestandsnaam) voor elk geselecteerd bestand ingevoegd.
Opmerking: Deze methode wordt niet automatisch bijgewerkt wanneer bestanden in de map worden gewijzigd, en submappen worden niet meegenomen.
Tip: Alleen bestandsnamen weergeven (niet volledige paden)
Als u alleen de bestandsnamen wilt weergeven (en niet de volledige paden), gebruikt u een formule in Excel om bestandsnamen uit de paden te halen. Als uw Bestandspad bijvoorbeeld in kolom A staan, voert u deze formule in cel B1 in:
=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",255)),255))Kopieer de formule in B1 naar beneden voor alle rijen om alleen de bestandsnamen op te halen. Pas de celverwijzingen indien nodig aan.
Gerelateerde artikelen
Hoe onderscheidt u zich van de massa, werkt u moeiteloos en geniet u ontspannen van het leven?
Kutools voor Excel verhoogt uw efficiëntie dagelijks met gemiddeld 80 %, zodat u meer tijd hebt om door te brengen met uw gezin en van het leven te genieten.
300 Geavanceerde Hulpmiddelen lost 80 %Excel-problemen op; u hoeft niet langer moeizaam naar oplossingen te zoeken en kunt uw werk gemakkelijker afronden.
Verwerk eenvoudig 1500 Excel-scenario’s en bespaar minimaal 1 uur per dag.
Word in 5 minuten een Excel-expert, geniet erkenning van collega’s en vergroot uw kansen op promotie.
Met éénklikshulpmiddelen voert u batchverwerking uit, zodat u duizenden muisklikken bespaart en ‘muisarm’ definitief kunt vergeten.
Vrij uzelf van het mechanisch onthouden van formules en complexe VBA—geef uw brein de rust die het verdient.
110.000+ keuzes van efficiënte professionals en 300+ wereldwijd gerenommeerde bedrijven.
Kost slechts $39, maar levert véél meer op dan de $4000-trainingen van anderen.
30 dagen gratis proefversie, volledig onbeperkt; binnen 30 dagen altijd geld terug, zonder opgave van reden.
Aanbevolen productiviteitstools
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins