Jak vypsat všechny soubory ve složce a podsložkách do listu?
Zkoušeli jste někdy vypsat všechny názvy souborů ze složky do listu včetně souborů umístěných v jejích podsložkách? Ve skutečnosti pro nás neexistuje žádný přímý způsob, jak vypsat názvy souborů ze složky a její podsložky v aplikaci Excel, nicméně dnes představím několik rychlých triků, jak tuto práci vyřešit.
Seznam všech názvů souborů ve složce a podsložce s kódem VBA
Seznamte všechny názvy souborů ve složce a podsložce rychle a snadno pomocí programu Kutools pro Excel
Seznam všech názvů souborů ve složce a podsložce s kódem VBA
Za normálních okolností Excel nemá žádnou vestavěnou funkci pro řešení tohoto úkolu, ale k dokončení tohoto problému můžete použít následující kód VBA.
1. Aktivujte nový list se seznamem názvů souborů.
2. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Seznam všech názvů souborů ve složce a podsložce
Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function
4. Po vložení kódu do modulu stiskněte F5 klíč ke spuštění tohoto kódu a makra Zobrazí se dialogové okno, vyberte ikonu Hlavní seznam název makra a potom klepněte na Běh tlačítko, viz screenshot:
5. A v Procházet v okně vyberte složku, ve které chcete zobrazit seznam všech názvů souborů včetně podsložek, viz screenshot:
6. Po zadání složky klikněte na OK Tlačítko a všechny názvy souborů ve složce a jejích podsložkách byly uvedeny do aktuálního listu z buňky A2, viz screenshoty:
Seznamte všechny názvy souborů ve složce a podsložce rychle a snadno pomocí programu Kutools pro Excel
S výše uvedeným kódem můžete pouze vypsat názvy souborů, někdy musíte uvést další atributy, jako je velikost souboru, typ souboru, vytvořený čas, složka atd. Kutools pro Excel obsahuje užitečnou funkci - Seznam názvů souborůPomocí této funkce můžete rychle zobrazit seznam všech nebo konkrétních typů souborů ve složce a jejích podsložkách.
Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, proveďte prosím následující kroky:
1, klikněte Enterprise > Import Export > Seznam názvů souborů, viz screenshot:
2. V Seznam názvů souborů dialogové okno, proveďte následující operace:
A: Klepněte na tlačítko tlačítko pro výběr složky, ve které chcete vypsat názvy souborů;
B: Určete typ souboru, který chcete vypsat z Typ souboru sekce;
C: Vyberte jednu jednotku velikosti souboru, kterou chcete zobrazit z Jednotka velikosti souboru sekce.
Poznámka: Chcete-li zobrazit seznam souborů z podsložky, zkontrolujte Zahrnout soubory do podadresářů, můžete také zkontrolovat Zahrňte skryté soubory a složky jak potřebujete. Pokud zkontrolujete Vytvořte hypertextové odkazy Tato možnost vytvoří hypertextové odkazy pro každý název souboru a složku.
3. Pak klikněte na tlačítko OK Tlačítko, všechny soubory obsažené ve vybrané složce a jejích podsložkách byly zobrazeny s následujícími atributy v novém listu. Viz screenshot:
Klepnutím získáte další informace o tomto nástroji Seznam názvů souborů.
Stáhněte si zdarma zkušební verzi Kutools pro Excel!
Ukázka: Seznam všech názvů souborů ve složce a podsložce pomocí programu Kutools pro Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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 o 50%a snižuje stovky kliknutí myší každý den!