Note: The other languages of the website are Google-translated. Back to English
English English
  • Dokumenty
  • vynikat
  • Jak vypsat všechny názvy souborů ve složce a vytvořit pro ně hypertextové odkazy v aplikaci Excel?

 Jak vypsat všechny názvy souborů ve složce a vytvořit pro ně hypertextové odkazy v aplikaci Excel?

Pro každodenní práci možná budete muset importovat více názvů souborů ze složky do listu a vytvořit hypertextové odkazy pro každý soubor, aby se soubor rychle a snadno otevřel. Možná můžete zkopírovat a vložit názvy souborů a vytvořit hypertextový odkaz jeden po druhém ručně, ale to bude ztrácet mnoho času, pokud jsou ve složce stovky souborů. Dnes budu mluvit o několika rychlých a zajímavých metodách řešení této práce.

Seznam všech názvů souborů ve složce a vytvoření hypertextových odkazů s kódem VBA

Seznam všech názvů souborů ve složce a vytváření hypertextových odkazů pomocí Kutools pro Excel


Chcete-li vytvořit seznam a vytvořit hypertextový odkaz se soubory ze složky, můžete si udělat následující kód VBA.

1. Výsledek aktivujete novým listem.

2. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do Modul Okno.

VBA: Seznam všech názvů souborů ve složce a vytvoření hypertextových odkazů

Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object 
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyberte složku, ze které chcete vypsat soubory z Procházet okno, viz screenshot:

seznam dokumentů vytvořit hypertextové odkazy 1

5. Po zadání složky klikněte na OK Tlačítko a všechny soubory v konkrétní složce byly uvedeny do aktivního listu s hypertextovými odkazy, viz screenshot:

seznam dokumentů vytvořit hypertextové odkazy 2

Poznámka: Pokud jsou ve vaší konkrétní složce podsložky, soubory v podsložkách nebudou uvedeny.


Chcete-li zobrazit seznam všech souborů ve složce i jejích podsložkách a vytvořit hypertextové odkazy pro každý soubor, Kutools pro ExcelJe Seznam názvů souborů může vám udělat laskavost. Díky této funkci budou všechny soubory ve složkách a podsložkách uvedeny najednou s některými atributy, jako je název souboru, velikost souboru, vytvořený čas, složka atd.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů.

Pokud jste nainstalovali Kutools pro Excel, proveďte prosím následující kroky:

1, klikněte Kutools Plus > Import Export > Seznam názvů souborů, viz screenshot:

2. v Seznam názvů souborů V dialogovém okně proveďte následující operace:

(1.) Klikněte seznam dokumentů vytvořit hypertextové odkazy 5 tlačítko pro výběr složky, ve které chcete vypsat názvy souborů;

(2.) Zkontrolovat Zahrnout soubory do podadresářů pokud chcete vypsat názvy souborů v podsložkách, zaškrtněte Zahrňte skryté soubory a složky pokud chcete vypsat skryté soubory;

(3.) Určete typy souborů, které chcete najít, a uveďte je do seznamu Typ souboru sekce;

(4.) Vyberte jednotku velikosti souboru, kterou chcete zobrazit;

(5.) Zkontrolovat Vytvořte hypertextové odkazy v levé dolní části dialogového okna.

Stáhněte si nyní Kutools pro Excel!

3. Pak klikněte na tlačítko Ok Tlačítko a všechny soubory ve složce a podsložkách byly uvedeny v novém listu s hypertextovými odkazy, jak potřebujete, viz screenshot:

seznam dokumentů vytvořit hypertextové odkazy 6

Klepnutím zobrazíte další podrobnosti o nástroji Seznam názvů souborů ...

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Související článek:

Jak vypsat všechny soubory ve složce a podsložkách do listu?


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než
    300
    výkonné funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (13)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Spuštění kódu VBA uvedeného výše ukazuje, že vybraný adresář je prázdný, když je plný souborů aplikace Excel.
Tento komentář byl moderátorem webu minimalizován
Úžasné..díky moc. Opravdu mi to ušetřilo čas.
Tento komentář byl moderátorem webu minimalizován
Velké díky, i když nelze zobrazit soubory ve vybraném adresáři, jak řekl Barry, stejně vytváří hypertextové odkazy pro všechny soubory v tomto adresáři.
Tento komentář byl moderátorem webu minimalizován
"VBA: Seznam všech názvů souborů ve složce a vytváření hypertextových odkazů" je skvělé! Funguje to perfektně! Děkujeme za zveřejnění! Jedna otázka... Nyní, když jste nám řekli, jak přidat odkazy ze složky, je možné tyto odkazy použít k získání informací z jednoho nebo dvou různých listů v každém z uvedených souborů? Byly by to stejné buňky pro každý ze souborů, pro které máme nyní seznam. To by pomohlo vytvořit komplexní obsah s aktivními odkazy na jinak nesrozumitelné názvy souborů.
Tento komentář byl moderátorem webu minimalizován
Jak bych změnil tento kód, aby obsahoval názvy složek, nikoli názvy souborů? A jak bych to změnil, aby kontroloval soubory v podsložkách?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Ellie,
Chcete-li vypsat všechny názvy složek a podsložek z adresáře, může vám pomoci níže uvedený kód VBA, zkuste to, hopt vám může pomoci.

Názvy podsložek()
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs jako pracovní list
Dim fso As Object, j As Long, folder1 As Object
S Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Vyberte složku"
.Show
Konec s
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Aplikace.Sešity.Přidat
Nastavit xWs = Application.ActiveSheet
xWs.Cells(1, 1).Hodnota = xCesta
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Cesta", "Dir", "Název", "Datum vytvoření", "Datum poslední úpravy")
Nastavit fso = CreateObject ("Scripting.FileSystemObject")
Nastavit složku1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Ztlumit podsložku jako objekt
Dim subfld As Object
Dim xRow As Long
Pro každou podsložku v prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(Podsložka.Cesta, Left(Podsložka.Cesta, InStrRev(Podsložka.Cesta, "\")), Název podsložky, Podsložka.Datum vytvoření, Podsložka. DateLastModified)
Další podsložka
Pro každý podfld V prntfld.SubFolders
getSubFolder subfld
Další podfld
End Sub
Tento komentář byl moderátorem webu minimalizován
Jak byste to kódovali, abyste vytvořili hypertextové odkazy na cestu a adresář
Tento komentář byl moderátorem webu minimalizován
Ahoj, yuri,
Chcete-li vyřešit svůj problém, vyzkoušejte následující kód:

Názvy podsložek()
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs jako pracovní list
Dim xRg jako rozsah
Dim fso As Object, j As Long, folder1 As Object
S Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Vyberte složku"
.Show
Konec s
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Aplikace.Sešity.Přidat
Nastavit xWs = Application.ActiveSheet
Nastavit xRg = xWs.Cells(1, 1)
xRg.Value = xPath
xWs.Hyperlinks.Add Anchor:=xRg, Address:=xPath, TextToDisplay:=xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Cesta", "Dir", "Název", "Datum vytvoření", "Datum poslední úpravy")
Nastavit fso = CreateObject ("Scripting.FileSystemObject")
Nastavit složku1 = fso.GetFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Ztlumit podsložku jako objekt
Dim subfld As Object
Dim xRow As Long
Dim xStr jako řetězec
Dim xRg jako rozsah
Pro každou podsložku v prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(Podsložka.Cesta, Left(Podsložka.Cesta, InStrRev(Podsložka.Cesta, "\")), Název podsložky, Podsložka.Datum vytvoření, Podsložka. DateLastModified)
Nastavit xRg = Cells(xRow, 1)
xRg.Worksheet.Hyperlinks.Add Anchor:=xRg, Address:=xRg.Value, TextToDisplay:=xRg.Value
Nastavit xRg = Cells(xRow, 2)
xRg.Worksheet.Hyperlinks.Add Anchor:=xRg, Address:=xRg.Value, TextToDisplay:=xRg.Value
Další podsložka
Pro každý podfld V prntfld.SubFolders
getSubFolder subfld
Další podfld
End Sub
Tento komentář byl moderátorem webu minimalizován
@skyyang Ahoj, mohl by být tento kód upraven na cestu hypertextového odkazu pro soubory místo složek. Například namísto hyperlinkování cest složek ve složce Folder1 by to hyperlinkovalo cesty všech souborů ve složce Folder1 (potřebuji, aby se text zobrazil jako cesta k souboru, nikoli název souboru), to by bylo perfektní použití případ pro mě. oceňuji jakoukoli pomoc, kterou můžete nabídnout :)
Tento komentář byl moderátorem webu minimalizován
@skyyang Ahoj,
Mohl by být tento kód upraven na cestu hypertextového odkazu pro soubory místo složek. Například místo hyperlinkování cest složek ve složce Folder1 by to hyperlinkovalo cesty všech souborů ve složce Folder1 (potřebuji, aby se text zobrazil jako cesta k souboru, nikoli název souboru), to by bylo perfektní použití případ pro mě.
oceňuji jakoukoli pomoc, kterou můžete nabídnout :)
Tento komentář byl moderátorem webu minimalizován
@skyyang Ahoj,
Mohl by být tento kód upraven na cestu hypertextového odkazu pro soubory místo složek. Například místo hyperlinkování cest složek ve složce Folder1 by to hyperlinkovalo cesty všech souborů ve složce Folder1 (potřebuji, aby se text zobrazil jako cesta k souboru, nikoli název souboru), to by bylo perfektní použití případ pro mě.
oceňuji jakoukoli pomoc, kterou můžete nabídnout :)
Tento komentář byl moderátorem webu minimalizován
Ahoj všem,

ich habe eine bescheidene Frage:
Wie kann ich Eine Liste von Dateinamen v klickbare Links umwandeln dotazu.
Je sind hier Beispiele genannt worden. Dies hat mich aber nicht weiter gebracht.
Hat wer eine Beispieldatei? Wie aus dem Bericht #28151.

Děkuji vám!
Tento komentář byl moderátorem webu minimalizován
Hello friend,

Poté, co budou všechny soubory v konkrétní složce uvedeny v aktivním listu s hypertextovými odkazy, můžete kliknutím na buňky hypertextové odkazy otevřít. Na všechny názvy souborů lze kliknout. Podívejte se prosím na snímky obrazovky.

Nemohu vám však poslat svůj vzorový soubor Excel, protože hypertextové odkazy uvedené v souboru lze otevřít pouze z mých vlastních počítačů. Stačí použít metodu k vytvoření hypertextových odkazů se soubory z vaší konkrétní složky. Po názvech souborů s hypertextovými odkazy jsou uvedeny v novém souboru. Stačí kliknout na hypertextové odkazy a otevřít je. Zkuste to prosím.

S pozdravem,
Mandy
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL