Přejít k hlavnímu obsahu

Jak rychle vypsat názvy obrázků / názvy souborů složky do buněk aplikace Excel?

V tomto tutoriálu uvedu několik triků, jak rychle zobrazit všechny názvy obrázků nebo názvy souborů konkrétní složky v listu aplikace Excel, jak je zobrazeno na obrazovce.

RYCHLÁ NAVIGACE

Seznam názvů obrázků složky v aplikaci Excel pomocí VBA
Seznam názvů obrázků nebo specifických názvů souborů složek v aplikaci Excel pomocí Seznamu názvů souborů
Stáhněte si ukázkový soubor

název obrázku v seznamu dokumentů 1

Seznam názvů obrázků složky v aplikaci Excel pomocí VBA

V aplikaci Excel neexistuje žádná vestavěná funkce, která by mohla automaticky vypsat všechny názvy obrázků složky, kterou vyberete v buňce listu, ale zde mám kód VBA, který vám pomůže rychle vyřešit tuto práci.

1. V aplikaci Excel stiskněte + klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. V rozbalovacím okně klikněte na Vložit > Modul vytvořit nový skript modulu.

3. Zkopírujte níže uvedený kód a vložte je do nového okna skriptu modulu.

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. lis F5 Poté se zobrazí dialogové okno pro výběr buňky pro umístění názvů obrázků.
název obrázku v seznamu dokumentů 1

5. cvaknutí OK pokračujte ve výběru složky, v níž chcete zobrazit seznam názvů obrázků v dialogovém okně Procházet.
název obrázku v seznamu dokumentů 3

6. cvaknutí OK, nyní jsou v aplikaci Excel uvedeny všechny názvy obrázků ve vybrané složce.
název obrázku v seznamu dokumentů 13

Poznámka: V kódu VBA můžete v řetězci kódu použít jpg / png /… Pokud InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Pak na příponu souboru potřebujete, například pokud chcete vypsat názvy souborů ve formátu doc, změňte pouze kódový řetězec na Pokud InStr (1, xFileName, ".doc")> 0 pak.

Pokud obvykle potřebujete ve své každodenní práci vypsat názvy souborů jednoho nebo všech formátů složky v buňce aplikace Excel, je kód složitý a není snadné jej zvládnout, ale níže uvedeným způsobem můžete tuto úlohu rychle vyřešit.


ot tah

Chcete zvýšit plat a dostatek času na doprovázení rodiny?

Karta Office zvyšuje vaši efektivitu o 50% při práci s Microsoft Office právě teď

Neuvěřitelné, práce na dvou nebo více dokumentech je jednodušší a rychlejší než práce na jednom.

Ve srovnání se známými prohlížeči je nástroj s kartami na kartě Office výkonnější a efektivnější.

Omezte stovky klikání myší a psaní na klávesnici každý den za vás, sbohem teď s myší rukou.

Pokud obvykle pracujete na více dokumentech, bude vám karta Office skvělým šetřičem času.

30-denní zkušební verze zdarma, není vyžadována kreditní karta.

VíceStáhnout zdarma


Seznam názvů obrázků nebo specifických názvů souborů složek v aplikaci Excel pomocí Seznamu názvů souborů

Zde je nástroj - Seznam názvů souborů in Kutools pro Excel, které mohou

>> seznam všech jmen souborů ve všech formátech souborů složky na novém listu;

>> seznam názvů souborů v jednom nebo několika formátech souborů, které určíte pro Excel;

>> seznam názvů souborů včetně podsložek a skrytých souborů a složek do aplikace Excel.

Rozloučte se s myší myší a cervikální spondylózou hned teď

Řeší 300 pokročilých nástrojů Kutools pro Excel 80% Excelové úkoly během několika sekund, vytrhnou vás z tisíců kliknutí myší.

Snadno se vypořádejte s 1500 pracovními scénáři, nemusíte ztrácet čas hledáním řešení, máte spoustu času na to, abyste si užili život.

Zlepšujte 80% produktivitu pro 110000+ vysoce efektivních lidí každý den, samozřejmě včetně vás.

Už vás nebudou trápit bolestivé vzorce a VBA, dopřejte svému mozku odpočinek a radostnou pracovní náladu.

30denní bezplatná zkušební verze se všemi funkcemi, 30denní vrácení peněz bez udání důvodu.

Lepší tělo vytváří lepší život.

Po bezplatné instalaci programu Kutools pro Excel postupujte takto:

1. Povolte sešit, ve kterém chcete vypsat názvy souborů, a klikněte na Kutools Plus > Import / Export > Seznam názvů souborů.
název obrázku v seznamu dokumentů 4

2. V Seznam názvů souborů dialogové okno, nejprve klikněte na  název obrázku v seznamu dokumentů 5 Chcete-li vybrat složku, ve které chcete vypsat její názvy souborů, můžete zaškrtnout políčka u Zahrnout soubory do podadresářů a Zahrňte skryté soubory a složky jak potřebujete.
název obrázku v seznamu dokumentů 6

3. Poté vyberte formát souboru, ve kterém chcete zobrazit seznam jmen Typ souboru sekce.

Kontrola Všechny soubory Tato možnost zobrazí seznam všech názvů souborů ve všech formátech souborů ve vybrané složce
název obrázku v seznamu dokumentů 7
Kontrola Společný možnost a v rozevíracím seznamu vyberte konkrétní formát souboru, který chcete vypsat, a poté v rozevíracím seznamu zobrazí všechny názvy souborů ve formátu souboru, který vyberete.
název obrázku v seznamu dokumentů 8
Kontrola Specifikovat možnost, potom zadejte přípony souborů (oddělte je čárkou), které chcete do textového pole vypsat, a zobrazí pouze názvy souborů se vstupními příponami v aplikaci Excel
název obrázku v seznamu dokumentů 9

4. Z rozevíracího seznamu v vyberte požadovanou velikostní jednotku Jednotka velikosti souboru Pokud chcete vytvořit odkaz na názvy souborů, zkontrolujte Vytvořte hypertextové odkazy volba.

název obrázku v seznamu dokumentů 10 název obrázku v seznamu dokumentů 11

5. cvaknutí Ok, bude vytvořen nový list se seznamem názvů souborů a některými informacemi o souboru.
název obrázku v seznamu dokumentů 12

Tip: pokud chcete zobrazit seznam všech názvů listů v aplikaci Excel, můžete použít Kutools pro Excel ' Vytvořte seznam názvů listů nástroj, vytvoří nový list se seznamem všech názvů propojitelných listů.
vytvořit seznam názvů listů

Kutools pro Excel: + užitečné užitečné nástroje, které zjednodušují složité úkoly v aplikaci Excel na několik kliknutí.


Stáhněte si ukázkový soubor

vzorek


Jak vás přimět vyniknout v davu, snadno pracovat a užívat si volný čas života?

Kutools pro Excel průměrně zlepší vaši 80% účinnost každý den, budete mít spoustu času na doprovod s rodinou a zábavu v životě.

300 pokročilých nástrojů řeší 80% Problémy s Excelem, už se nemusíte snažit hledat řešení, snadněji dokončíte práci.

Snadno zvládněte 1500 1 scénářů aplikace Excel, ušetří vám každý den alespoň XNUMX hodinu.

Staňte se odborníkem na Excel za 5 minut, získejte uznání lidí a příležitost k povýšení.

Obslužné programy na jedno kliknutí zpracovávají dávkové zpracování, takže se můžete vyhnout tisícům klikání myší, rozloučit se s myší rukou.

Zbavte se zapamatovaných vzorců a složitých VBA, odpočiňte si mozek.

110000+ vysoce efektivních pracovníků a 300+ světově proslulých společností.

Vezměte si pouze 39 dolarů, ale v hodnotě více než 4000 dolarů školení jiných lidí

30denní bezplatná zkušební verze bez jakéhokoli omezení, plné peníze zpět do 30 dnů bez jakéhokoli důvodu.

Nyní jste získali svůj lepší život Více Zdarma 30-Day Trial Kup nyní

Doporučené nástroje produktivity

Karta Office - Procházení, úpravy, správa dokumentů v Microsoft Office 2019 - 2003 a Office 365


záložka Office

Profesionální doplněk pro zrychlení aplikace Excel 2019-2007, zmenšuje počet hodin úkolů na sekundy

Tento doplněk zahrnuje desítky profesionálních skupin, přičemž více než 300 možností automatizuje většinu vašich každodenních úkolů v aplikaci Excel a zvýší vaši produktivitu alespoň o 50%. Například skupiny optonů na jedno kliknutí a hromadné převody.
Nyní máte šanci se zrychlit pomocí Kutools pro 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