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

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 Další + F11 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ů.

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.

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

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.

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

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.

Zkušební verze zdarma 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.

Více Stáhnout nyní

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ů.

2. V Seznam názvů souborů dialogové okno, nejprve klikněte na  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.

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

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.

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

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.

5. cvaknutí Ok, bude vytvořen nový list se seznamem názvů souborů a některými informacemi o souboru.

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ů.

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

Doporučené nástroje produktivity

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

Stažení zdarma

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!

Stažení zdarma