3 Szybkie metody rekurencyjnego wyświetlania wszystkich plików w folderze Windows w arkuszu programu Excel

Wielu użytkowników musi szybko wyświetlić listę wszystkich plików w folderze systemu Windows i wszystkich jego podfolderów w arkuszu programu Excel. Dlatego w tym artykule przedstawimy Ci 3 szybkie sposoby, aby to zrealizować.

Jeśli chcesz rekurencyjnie wyświetlać wszystkie pliki w folderze Windows w arkuszu programu Excel, z pewnością nie spodoba ci się ręczne kopiowanie nazw plików do programu Excel. Niewątpliwie jest to zbyt żmudne i czasochłonne. Dlatego tutaj nauczymy Cię 3 znacznie inteligentniejszych i wygodniejszych podejść

Metoda 1: Wyświetl listę plików w folderze systemu Windows za pośrednictwem przeglądarki Firefox lub Google Chrome

1. Po pierwsze, w Eksploratorze Windows uzyskaj dostęp do określonego folderu systemu Windows i skopiuj ścieżkę folderu.
2. Następnie uruchom przeglądarkę Firefox lub Google Chrome.
3. Następnie wklej skopiowaną ścieżkę folderu w pasku adresu przeglądarki internetowej.
4. Następnie naciśnij klawisz „Enter”.
5. Od razu wszystkie pliki w tym folderze systemu Windows zostaną wyświetlone w przeglądarce.
6. Następnie naciśnij „Ctrl + A”, aby zaznaczyć całą zawartość i „” Ctrl + C ””, aby je skopiować.
7. Na koniec wklej je do arkusza programu Excel.

Metoda 2: Lista plików w folderze Windows za pomocą „Menedżera nazw”

1. Najpierw utwórz nowy arkusz programu Excel.
2. Następnie wybierz komórkę A1.
3. Następnie przejdź do zakładki „Formuły” i kliknij przycisk „Menedżer nazw”.
4. W wyskakującym oknie dialogowym kliknij przycisk „Nowy”.
5. Następnie w następnym oknie dialogowym wprowadź „Pliki” w polu „Nazwa”.
6. I zmień „= Arkusz1! $ A $ 1” na „= PLIKI (Arkusz1! $ A $ 1)” w polu „Odnosi się do:”.
7. Następnie kliknij „OK” i zamknij okno dialogowe „Menedżer nazw”.
8. Później skopiuj ścieżkę do folderu Windows w komórce A1 i dodaj „\* ”Na końcu ścieżki.
9. Następnie wybierz komórkę A3 i wprowadź funkcję „= INDEKS (pliki, WIERSZ () - 2)”.
10. Od razu pojawi się plik w tym folderze Windows, jak na poniższym obrazku.
11. Na koniec skopiuj tę funkcję w dół o kilka wierszy, aby wyświetlić inne pliki, aż zobaczysz „#REF!” błąd. Błąd oznacza, że ​​wszystkie pliki zostały wymienione.

Metoda 3: Rekurencyjne wyświetlanie listy plików w folderze systemu Windows za pośrednictwem programu Excel VBA

1. Na początek utwórz nowy plik Excela.
2. Następnie przejdź do edytora Excel VBA z odniesieniem do „Jak uruchomić kod VBA w programie Excel".
3. Następnie skopiuj następujący kod do projektu „ThisWorkbook”.

Sub BatchListAllFiles_FolderSubfolders()
    Dim strWindowsFolder As String
 
    'Select the source Windows folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = "E:\"
        .Show
        If .SelectedItems.Count > 0 Then
           strWindowsFolder = .SelectedItems(1) & "\"
        End If
    End With
 
    With ActiveSheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Path"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Size(Bytes)"
         .Cells(1, 3).Font.Bold = True
         .Cells(1, 4) = "Type"
         .Cells(1, 4).Font.Bold = True
         .Cells(1, 5) = "Created"
         .Cells(1, 5).Font.Bold = True
    End With
 
    Call LoopFolders(strWindowsFolder)
End Sub

Sub LoopFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim nLastRow As Integer
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
 
    For Each objFile In objFolder.Files
        With ActiveSheet
            nLastRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            .Range("A" & nLastRow) = objFile.Name
            .Range("B" & nLastRow) = objFile.Path
            .Range("C" & nLastRow) = objFile.Size
            .Range("D" & nLastRow) = objFile.Type
            .Range("E" & nLastRow) = objFile.DateCreated
            .Columns("A:E").AutoFit
       End With
    Next
 
    'Process all folders and subfolders recursively
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

4. Teraz kliknij pierwszy podprogram i naciśnij klawisz „F5”.
5. W wyskakującym oknie dialogowym przejdź do folderu Windows, z którego chcesz wyświetlić listę plików, i wybierz go, a następnie kliknij „OK”.
6. Ostatecznie po zakończeniu działania makra wróć do arkusza programu Excel. Wszystkie pliki w folderze Windows i jego podfolderach zostały wymienione, jak pokazano na poniższym zrzucie ekranu.

Od czasu do czasu program Excel ulega awarii

Podobnie jak inne oprogramowanie, Excel może od czasu do czasu ulec awarii, co może spowodować bezpośrednie zniszczenie aktualnie otwartego pliku Excela. W takich przypadkach większość użytkowników liczy na to, że Excel automatycznie odzyska plik po ponownym uruchomieniu. Jednak częściej rzeczywistość nie jest taka, jakiej się spodziewasz. W takiej sytuacji konieczne może okazać się skorzystanie z pomocy… Naprawa programu Excel narzędzie, takie jak DataNumen Excel Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskać mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com