3 rýchle metódy na rekurzívny výpis všetkých súborov v priečinku Windows v hárku programu Excel

Mnoho používateľov musí rýchlo uviesť všetky súbory v priečinku Windows a všetky jeho podpriečinky v pracovnom hárku programu Excel. V tomto článku vám preto predstavíme 3 rýchle spôsoby, ako to realizovať.

Ak chcete rekurzívne zobraziť všetky súbory v priečinku Windows v pracovnom hárku programu Excel, bude sa vám nepáči, že ručne kopírujete názvy súborov do Excelu. Je to nepochybne príliš zdĺhavé a časovo náročné. Preto vás tu naučíme 3 oveľa inteligentnejšie a pohodlnejšie prístupy

Metóda 1: Zoznam súborov v priečinku Windows cez Firefox alebo Google Chrome

1. Najskôr v Prieskumníkovi Windows otvorte konkrétny priečinok Windows a skopírujte cestu k priečinku.
2. Potom spustite prehliadač Firefox alebo Google Chrome.
3. Ďalej vložte cestu skopírovaného priečinka do panela s adresou v internetovom prehliadači.
4. Potom stlačte kláves „Enter“.
5. V prehliadači sa naraz zobrazia všetky súbory v tomto priečinku Windows.
6. Potom stlačte „Ctrl + A“, aby ste vybrali všetok obsah, a „„ Ctrl + C ““, aby ste ich skopírovali.
7. Nakoniec ich prilepte do hárka programu Excel.

Metóda 2: Zoznam súborov v priečinku Windows pomocou aplikácie „Správca mien“

1. Najskôr vytvorte nový pracovný hárok programu Excel.
2. Potom vyberte bunku A1.
3. Ďalej prejdite na kartu „Vzorce“ a kliknite na tlačidlo „Správca mien“.
4. V rozbaľovacom dialógovom okne kliknite na tlačidlo „Nové“.
5. Následne v ďalšom dialógovom okne zadajte do poľa „Názov“ „Súbory“.
6. A v poli „Odkazuje na:“ zmeňte „= List1! $ A $ 1“ na „= SÚBORY (List1! $ A $ 1)“.
7. Potom kliknite na „OK“ a zatvorte dialógové okno „Správca mien“.
8. Neskôr skopírujte cestu k priečinku Windows v bunke A1 a pridajte „\* “Na konci cesty.
9. Ďalej vyberte bunku A3 a zadajte funkciu „= INDEX (súbory, riadok () - 2)“.
10. Okamžite sa zobrazí zoznam súborov v tomto priečinku Windows, napríklad nasledujúci obrázok.
11. Nakoniec túto funkciu jednoducho skopírujte do niekoľkých riadkov, aby ste zobrazili zoznam ďalších súborov, až kým sa nezobrazí „#REF!“ chyba. Chyba znamená, že boli uvedené všetky súbory.

Metóda 3: Rekurzívne vypisujte súbory v priečinku Windows pomocou programu Excel VBA

1. Pre začiatok vytvorte nový súbor programu Excel.
2. Ďalej prejdite do editora Excel VBA s odkazom na „Ako spustiť kód VBA v programe Excel".
3. Potom skopírujte nasledujúci kód 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 kliknite na prvý podprogram a stlačte kláves „F5“.
5. V rozbaľovacom dialógovom okne vyhľadajte a vyberte priečinok Windows, z ktorého chcete zobraziť zoznam súborov, a kliknite na tlačidlo „OK“.
6. Po dokončení makra sa nakoniec vráťte do hárka programu Excel. Všetky súbory v priečinku Windows a jeho podpriečinkoch boli uvedené, ako je znázornené na nasledujúcej snímke obrazovky.

Excel občas zlyháva

Rovnako ako iný softvér, aj Excel môže občas zlyhať, čo môže priamo zničiť aktuálne otvorený súbor programu Excel. V takýchto prípadoch väčšina používateľov dúfa, že Excel dokáže súbor automaticky obnoviť po reštarte. Realita však často nie je taká, akú očakávate. Vtedy by bolo nevyhnutné uchýliť sa k... Excel oprava nástroj, ako DataNumen Excel Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane vymáhať mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S