Ga naar hoofdinhoud

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.

30-dag gratis op proef, 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 oplossen 80% Excel-taken in seconden, haal je uit de duizenden muisklikken.

Ga gemakkelijk om met 1500 werkscenario's, u hoeft geen tijd te verspillen aan het zoeken naar oplossingen, u heeft veel tijd om van uw leven te genieten.

Verbeter elke dag de productiviteit van 80% voor meer dan 110000 zeer effectieve mensen, natuurlijk ook voor u.

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

30 dagen gratis proefperiode met alle functies, 30 dagen geld terug zonder opgaaf van reden.

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 Koetools Plus > Import / Export > Bestandsnaam lijst.
naam van documentlijstafbeelding 4

2. In de Bestandsnaam lijst dialoogvenster, klik eerst op  naam van documentlijstafbeelding 5 om een ​​map te selecteren waarvan u de bestandsnamen wilt weergeven, dan kunt u de selectievakjes van aanvinken Voeg bestanden toe aan submappen en 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 pagina.

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: + handige handige tools die de gecompliceerde taken in Excel in 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 voor Excel verbetert gemiddeld uw 80% efficiëntie 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 oplossen 80% Excel-problemen, u hoeft niet langer naar oplossingen te zoeken, u kunt gemakkelijker werk voltooien.

Beheer eenvoudig 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 binnen 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!


Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hey! This is super quick and thanks
This comment was minimized by the moderator on the site
Thanks so much for this!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Amazing! Thank you for sharing!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
How to export an image with specific file name in excel.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Now it works for me. Thanks!!!
This comment was minimized by the moderator on the site
Is it possible that there is something wrong with the code? The file explorer is showing my folder full of images (.png) as empty.
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations