Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe snel de namen van de foto's / bestandsnamen van een map op Excel-cellen weergeven?

In deze zelfstudie zal ik enkele trucjes geven om snel alle namen van foto's of bestandsnamen van een specifieke map in een Excel-blad te tonen, zoals het screenshot laat zien.

SNELLE NAVIGATIE

Lijst afbeeldingsnamen van een map in Excel met VBA
Lijst afbeeldingsnamen of bestandsnamen van specifieke indelingen van een map in Excel met Bestandslijst
Voorbeeldbestand downloaden

doc lijst foto naam 1

Lijst 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 kunt weergeven, maar hier heb ik een VBA-code waarmee u deze taak snel kunt oplossen.

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

2. Klik in het popping-venster bijvoegsel > module om een ​​nieuw modulescript te maken.

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

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 Volgende xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("Select een cel om een ​​naamlijst te plaatsen: "," Kutools For Excel ", xAddress,,,,, 8) Als xRg Is Nothing Then Exit Sub Application.ScreenUpdating = False Set xRg = xRg (1) xRg.Value =" Afbeeldingnaam " Met 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 <> "" Als InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp")> 0 Vervolgens wordt xRg.Offset (I) .Waarde = xF ileDlgItem & "\" & xFileName I = I + 1 End If xFileName = Dir Loop End If Application.ScreenUpdating = True End Sub

4. druk op F5 toets, verschijnt er een dialoogvenster waarin u een cel kunt selecteren om de afbeeldingsnamen te plaatsen.
doc lijst foto naam 1

5. klikken OK om door te gaan met het selecteren van de map waarin u de namen van de afbeeldingen wilt weergeven in het bladerdialoogvenster.
doc lijst foto naam 3

6. klikken OK, alle afbeeldingsnamen in de geselecteerde map zijn nu in Excel weergegeven.
doc lijst foto naam 13

Let op: In de VBA-code kun je jpg / png / ... in de code-string zetten 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 hebt, bijvoorbeeld als u bestandsnamen van het bestand in doc-indeling wilt weergeven, wijzigt u de code alleen in Als InStr (1, xFileName, ".doc")> 0 dan.

Als u gewoonlijk de bestandsnamen van een of alle indelingen van een map in een Excel-cel in uw dagelijkse werk moet vermelden, is de code ingewikkeld en niet gemakkelijk te verwerken, maar met de onderstaande oplossing kunt u deze taak snel oplossen.


ot bewegen

Wil je een loonsverhoging en veel tijd krijgen om met familie te begeleiden?

Office-tabblad Verbetert uw efficiëntie door 50% In Microsoft Office werkt u nu

Ongelooflijk, werken op twee of meer documenten is eenvoudiger en sneller dan werken op één.

Vergelijkbaar 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 muiswijzer.

Als u meestal op meerdere documenten werkt, wordt Office-tabblad een geweldige tijdsbesparing voor u.

Gratis proefperiode 30-dag, geen kredietkaart nodig.

Lees meerGratis nu downloaden


Lijst afbeeldingsnamen of bestandsnamen van specifieke indelingen van een map in Excel met Bestandslijst

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

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

>> lijst de bestandsnamen in een of meerdere bestandsformaten die u opgeeft in Excel;

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

Zeg nu gedag tegen muiswijzer en cervicale spondylose

300 geavanceerde hulpmiddelen 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 met zoeken naar oplossingen, veel tijd hebben om van uw leven te genieten.

Verbeter de 80% productiviteit voor 110000 + zeer effectieve mensen elke dag, natuurlijk ook voor jou.

Je hoeft niet langer te worden gekweld door pijnlijke formules en VBA, en je hersenen een rustgevende en vrolijke werkstemming te geven.

60-day gratis proef met volledige functies, 60-day geld terug zonder reden.

Een beter lichaam zorgt voor een beter leven.

Na het gratis installeren van Kutools voor Excel doet u het volgende:

1. Schakel de werkmap in waarin u de bestandsnamen wilt weergeven en klik vervolgens op Kutools Plus > Import / Export > Bestandslijst.
doc lijst foto naam 4

2. In de Bestandslijst dialoogvenster, klik eerst op doc lijst foto naam 5 om een ​​map te selecteren waarvan u de bestandsnamen wilt weergeven, vinkt u de selectievakjes aan van Bestanden opnemen in submappen en Voeg verborgen bestanden en mappen toe als je nodig hebt.
doc lijst foto naam 6

3. Selecteer vervolgens de bestandsindeling waarin u de namen wilt vermelden Bestanden type sectie.

Geruit Alle bestanden optie, toont het alle bestandsnamen in alle bestandsindelingen in de geselecteerde map
doc lijst foto naam 7
Geruit Gemeen optie en selecteer de specifieke bestandsindeling waarin u de bestandsnamen wilt weergeven in de vervolgkeuzelijst. Vervolgens worden alle bestandsnamen weergegeven van de bestandsindeling die u kiest in de vervolgkeuzelijst.
doc lijst foto naam 8
Geruit Specificeren optie, typ dan de bestandsextensies (gebruik komma om ze te scheiden) als u de bestandsnamen in het tekstvak wilt weergeven, dan geeft het alleen de bestandsnamen weer met de invoer van bestandsextensies in Excel
doc lijst foto naam 9

4. Kies de maateenheid zoals u nodig hebt uit de vervolgkeuzelijst in Bestandsgrootte-eenheid sectie, als u een koppeling naar de bestandsnamen wilt maken, vinkt u Maak hyperlinks optie.

doc lijst foto naam 10 doc lijst foto naam 11

5. klikken Ok, er wordt een nieuw blad gemaakt om de bestandsnamen en enkele bestandsinformatie weer te geven.
doc lijst foto naam 12

Tip: als u alle bladnamen in Excel wilt weergeven, kunt u Kutools voor Excel toepassen ' Lijst met bladnamen maken hulpprogramma, wordt een nieuw blad gemaakt om alle koppelbare werkbladnamen weer te geven.
maak bladnamenlijst

Kutools for Excel: 200 + handige handige hulpmiddelen, vereenvoudiging van de gecompliceerde taken in Excel in een paar klikken.


Voorbeeldbestand downloaden

monster


Hoe maak je je onderscheidt van de menigte, gemakkelijk werken en ontspannen genieten van het leven?

Kutools voor Excel verbetert gemiddeld elke dag uw 80% -efficiëntie, zodat u veel tijd heeft om met uw gezin te gaan en plezier te hebben in het leven.

De geavanceerde tools van 300 lossen 80% Excel-problemen op, u hoeft niet langer te zoeken om oplossingen te vinden, u kunt uw werk gemakkelijker voltooien.

Behandel eenvoudig 1500 Excel-scenario's, sla elke dag minstens 1-uren op voor u.

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

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

Ontdoe je van het onthouden van formules en complexe VBA, rust uit voor je hersenen.

110000 + hoogrenderende medewerkers en de keuze van de wereldberoemde bedrijven van 300 +.

Neem alleen $ 39, maar veel meer dan $ 4000-training van andere mensen

60 dagen gratis proef zonder beperking, volledig geld terug in 60-day zonder enige reden.


Aanbevolen productiviteitstools

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


kantoor tab

Een professionele invoegtoepassing voor het versnellen van Excel 2019-2007, krimpt taken uren naar seconden

Deze add-in bevat tientallen professionele groepen, met 300 + -opties automatiseert u het grootste deel van uw dagelijkse taken in Excel en verhoogt u uw productiviteit ten minste met 50%. Zoals groepen van één-klik-optons en batch-conversies.
Nu is het jouw kans om jezelf te versnellen met Kutools voor Excel!


Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    THE HELPER · 1 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.
    Tanner Haynes · 1 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 · 1 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.