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 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.
5. klikken OK om door te gaan met het selecteren van de map waarin u de afbeeldingsnamen wilt weergeven in het dialoogvenster Bladeren.
6. klikken OK, nu zijn alle afbeeldingsnamen in de geselecteerde map in Excel weergegeven.
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.
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. |
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.
2. In de Bestandsnaam lijst dialoogvenster, klik eerst op 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.
3. Selecteer vervolgens het bestandsformaat waarin u de namen wilt weergeven Bestanden type pagina.
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.
5. klikken Ok, wordt er een nieuw blad gemaakt met de bestandsnamen en wat bestandsinformatie.
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.
Kutools for Excel: + handige handige tools die de gecompliceerde taken in Excel in een paar klikken vereenvoudigen.
Download voorbeeldbestand
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
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!