Przejdź do głównej zawartości

Jak wyświetlić wszystkie pliki w folderze i podfolderach w arkuszu?

Autor: Xiaoyang Ostatnia modyfikacja: 2020-04-28

Czy kiedykolwiek próbowałeś wyświetlić wszystkie nazwy plików z folderu w arkuszu, w tym pliki znajdujące się w jego podfolderach? W rzeczywistości nie ma bezpośredniego sposobu, abyśmy mogli wyświetlić nazwy plików z folderu i jego podfolderu w programie Excel, jednak dzisiaj przedstawię kilka szybkich sztuczek, aby rozwiązać tę pracę.

Wyświetl wszystkie nazwy plików w folderze i podfolderze z kodem VBA

Wyświetlaj wszystkie nazwy plików w folderze i podfolderze szybko i łatwo za pomocą Kutools for Excel

Zwykle program Excel nie ma wbudowanej funkcji do wykonania tego zadania, ale można zastosować następujący kod VBA, aby rozwiązać ten problem.

1. Aktywuj nowy arkusz roboczy, który będzie zawierał listę nazw plików.

2. Przytrzymaj ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

3. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: wyświetla wszystkie nazwy plików w folderze i podfolderze

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 wklejeniu kodu do modułu naciśnij F5 klucz do uruchomienia tego kodu oraz plik Makra pojawi się okno dialogowe, wybierz plik Lista główna nazwę makra, a następnie kliknij run przycisk, zobacz zrzut ekranu:

pliki listy dokumentów w podfolderze folderu 1

5. I w Przeglądaj oknie, wybierz folder, w którym chcesz wyświetlić wszystkie nazwy plików, w tym podfoldery, zobacz zrzut ekranu:

pliki listy dokumentów w podfolderze folderu 2

6. Po określeniu folderu kliknij OK przycisk, a wszystkie nazwy plików w folderze i jego podfolderach zostały wymienione w bieżącym arkuszu z komórki A2, patrz zrzuty ekranu:

pliki listy dokumentów w podfolderze folderu 3
1
pliki listy dokumentów w podfolderze folderu 4

Za pomocą powyższego kodu możesz po prostu wyświetlić nazwy plików, czasami musisz wymienić inne atrybuty, takie jak rozmiar pliku, typ pliku, czas utworzenia, folder zawierający itp. Kutools dla programu Excel zawiera przydatną funkcję - Lista nazw plikówDzięki tej funkcji można szybko wyświetlić listę wszystkich lub określonych typów nazw plików w folderze i jego podfolderach.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni.
Przejdź do pobierania
Bezpłatna wersja próbna 30 dniZakup
PayPal/Mój Handel

Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:

1. Kliknij Enterprise > Import Eksport > Lista nazw plikówzobacz zrzut ekranu:

2, w Lista nazw plików w oknie dialogowym wykonaj następujące operacje:

A: Kliknij pliki listy dokumentów w podfolderze folderu 7przycisk, aby wybrać folder, w którym chcesz wyświetlić nazwy plików;

B: Określ typ pliku, który chcesz wyświetlić z Typ plików Sekcja;

C: Wybierz jedną jednostkę rozmiaru pliku, którą chcesz wyświetlić z Jednostka rozmiaru pliku

Note: Aby wyświetlić nazwy plików z podfolderu, sprawdź Uwzględnij pliki w podkatalogach, możesz również sprawdzić Uwzględnij ukryte pliki i foldery tak jak potrzebujesz. Jeśli sprawdzisz Twórz hiperlinki opcja, utworzy hiperłącza dla każdej nazwy plików i folderów.

Pobierz i bezpłatną wersję próbną teraz!

3. Następnie kliknij OK przycisk, wszystkie pliki zawarte w wybranym folderze i jego podfolderach zostały wyświetlone z następującymi atrybutami w nowym arkuszu. Zobacz zrzut ekranu:

pliki listy dokumentów w podfolderze folderu 8

Kliknij, aby dowiedzieć się więcej szczegółów na temat tego narzędzia Lista nazw plików.

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (22)
No ratings yet. Be the first to rate!
Johnny
Johnny
This comment was minimized by the moderator on the site
Is it possible to combine this with your other VBA to include hyperlinks?

e.g. hyperlinks to all files in a folder including subfolders?
Reply
0
0
skyyang
skyyang     Johnny
This comment was minimized by the moderator on the site
Hello, Johnny,
To list all filenames in a folder and subfolders, and create hyperlinks to these files in an Excel worksheet, please apply the following code:
Sub ListFilesAndCreateHyperlinks()
    Dim FolderPath As String
    Dim OutputRow As Integer
    Dim FileSystem As Object
    Dim TargetFolder As Object
    Dim File As Object
    
    ' Set the path to the folder from which to list files
    FolderPath = "C:\Your\Folder\Path"  ' Change this to the desired folder path
    
    ' Create an instance of the FileSystemObject
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    Set TargetFolder = FileSystem.GetFolder(FolderPath)
    
    ' Initialize the row for output in Excel
    OutputRow = 1
    
    ' Call the recursive procedure to list files and create hyperlinks
    ListFiles TargetFolder, OutputRow
    
    ' Clean up
    Set File = Nothing
    Set TargetFolder = Nothing
    Set FileSystem = Nothing
End Sub

Sub ListFiles(ByVal Folder As Object, ByRef Row As Integer)
    Dim SubFolder As Object
    Dim File As Object
    
    ' List all files in the folder
    For Each File In Folder.Files
        ' Insert the file name
        With ActiveSheet
            .Cells(Row, 1).Value = File.Name
            .Hyperlinks.Add Anchor:=.Cells(Row, 1), Address:=File.Path, TextToDisplay:=File.Name
        End With
        Row = Row + 1  ' Move to the next row
    Next File
    
    ' Recursively list files in subfolders
    For Each SubFolder In Folder.SubFolders
        ListFiles SubFolder, Row
    Next SubFolder
End Sub


Note: Replace "C:\Your\Folder\Path" in the code with the path of the folder from which you want to list files.

Please have a try, hope it can help you!
Reply
Report
0
0
d2b
d2b
This comment was minimized by the moderator on the site
Nice work, exactly what I was trying to create. But this is 1000% better.
Reply
0
0
twmcc2
twmcc2
This comment was minimized by the moderator on the site
Sorry... I gave you the wrong code (below), here is the code I modified..
Code:
Sub MainList()
On Error Resume Next
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Dim answer As Variant
answer = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a Folder"
.AllowMultiSelect = False
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show = -1 Then
xDir = folder.SelectedItems(1)
Else
Exit Sub
End If
End With

Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1

' Add a space then the Folder Name to the Worksheet
rowIndex = rowIndex + 1
With Application.ActiveSheet.Cells(rowIndex, 1)
.Value = xFolder.Name
.Font.Size = 12
.Font.FontStyle = "Bold Italic"
End With
rowIndex = rowIndex + 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
rowIndex = rowIndex + 1
End If

Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing

Call MainList
End Sub


Reply
Report
0
0
twmcc2
twmcc2
This comment was minimized by the moderator on the site
I have modified your code to make it recycle and re-run the folder dialog continuously until you press Cancel.Unfornatually it generates some errors.1. If subfolders become involved in a folder selected then the next folder selected becomes out of numerical order.2. If subfolders become involved in a folder selected the Cancel button has to be repeated and repeated depending on how many folders you have added.
Code:
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 SubSub 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

any ideas ?
Reply
Report
0
0
Peter
Peter
This comment was minimized by the moderator on the site
Does it work on MAC too?
Reply
0
0
Prasanna Venkatesh
Prasanna Venkatesh
This comment was minimized by the moderator on the site
Hey, so if I have to just extract an extension from the whole list, where should I make changes?
Reply
0
0
JDay
JDay
This comment was minimized by the moderator on the site
Really new to VBA. how do i use the above code but have the file path built into it so i don't have to search for it every time?
Reply
0
0
James
James
This comment was minimized by the moderator on the site
My VBA is saying that the variable folder is not defined. Anyone know why this is?
Reply
0
0
Chris K
Chris K
This comment was minimized by the moderator on the site
What was the purpose of the parameter ByVal xIsSubfolders As Boolean?
Reply
0
0
Leandro Barbosa
Leandro Barbosa
This comment was minimized by the moderator on the site
Extremamente elegante este código!
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations