3 kiiret meetodit kõigi Windowsi kaustas olevate failide rekursiivseks loetlemiseks Exceli töölehel

Exceli lahendused Oktoober 3, 2025

Paljud kasutajad peavad kiiresti loendama kõik Windowsi kaustas olevad failid ja kõik selle alamkaustad Exceli töölehel. Seetõttu tutvustame selles artiklis teile 3 kiiret viisi selle realiseerimiseks.

Kui soovite Exceli töölehel kõiki Windowsi kaustas olevaid faile rekursiivselt loetleda, ei meeldi teile kindlasti failinimede käsitsi kopeerimine Excelisse. Kahtlemata on see liiga tüütu ja aeganõudev. Seetõttu õpetame teile siin 3 palju nutikamat ja mugavamat lähenemist

1. meetod: loendage Windowsi kaustas olevad failid Firefoxi või Google Chrome'i kaudu

  1. Kõigepealt avage Windows Exploreris konkreetsele Windowsi kaustale ja kopeerige kausta tee.Kopeeri kausta tee
  2. Seejärel käivitage Firefox või Google Chrome.
  3. Järgmisena kleepige kopeeritud kausta tee Interneti-brauseri aadressiribale.
  4. Pärast seda vajutage klahvi "Enter".
  5. Kõik selles Windowsi kaustas olevad failid loetletakse brauseris korraga.Loetletud failid Firefoxis
  6. Seejärel vajutage kogu sisu valimiseks "Ctrl + A" ja nende kopeerimiseks "Ctrl + C".
  7. Lõpuks kleepige need Exceli tööle.Kleepige kopeeritud loetletud failid Firefoxist Excelisse

2. meetod: loendage Windowsi kaustas olevad failid nimehalduri kaudu

  1. Alustuseks looge uus Exceli tööleht.
  2. Seejärel valige lahter A1.
  3. Järgmisena minge vahekaardile "Valemid" ja klõpsake nuppu "Nimehaldur".
  4. Hüpikaknas klõpsake nuppu "Uus".Nimi sõim
  5. Seejärel sisestage järgmises dialoogiboksis väljale "Nimi" "Failid".
  6. Ja muutke väljal "Viitab:" väärtuseks "=Sheet1!$A$1" väärtuseks "=FILES(Sheet1!$A$1)".Uus nimi
  7. Seejärel klõpsake "OK" ja sulgege dialoogiboks "Nimehaldur".
  8. Hiljem kopeerige Windowsi kausta tee lahtrisse A1 ja lisage "\*” raja lõpus.Sisestage lahtrisse A1 kausta tee
  9. Järgmisena valige lahter A3 ja sisestage funktsioon "=INDEX(Files,ROW()-2)".Sisendfunktsioon lahtris A3
  10. Korraga kuvatakse selles Windowsi kaustas olev fail, nagu järgmine pilt.Fail lisatakse loendisse
  11. Lõpuks kopeerige see funktsioon teiste failide loetlemiseks mitu rida allapoole, kuni näete "#REF!" viga. Viga tähendab, et kõik failid on loetletud.Kopeerige funktsioon mitu rida allapoole, kuni vaadake viga

3. meetod: loendage Windowsi kaustas olevad failid Excel VBA kaudu rekursiivselt

  1. Alustuseks looge uus Exceli fail.
  2. Järgmisena avage Exceli VBA redaktor, viidates "Kuidas Excelis VBA koodi käivitada".
  3. Seejärel kopeerige järgmine kood projekti "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

VBA kood – loetlege failid rekursiivselt Windowsi kaustas

  1. Nüüd klõpsake esimest alamprogrammi ja vajutage klahvi "F5".
  2. Hüpikdialoogiboksis navigeerige ja valige Windowsi kaust, mille faile soovite loetleda, ja klõpsake nuppu "OK".Vali kataloog
  3. Lõpuks, kui makro on lõppenud, naaske Exceli töölehel. Kõik Windowsi kaustas ja selle alamkaustades olevad failid on loetletud, nagu on näidatud järgmisel ekraanipildil.Loetletud failid Excelis

Excel jookseb aeg-ajalt kokku

Nagu iga teine ​​tarkvara, võib ka Excel aeg-ajalt kokku joosta, mis võib avatud Exceli faili otseselt hävitada. Sellistel juhtudel loodab enamik kasutajaid, et Excel suudab faili taaskäivitamisel automaatselt taastada. Kuid enamasti pole tegelikkus selline, nagu ootate. Sellisel juhul on oluline pöörduda abi saamiseks. Exceli remont tööriist, nagu DataNumen Excel Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastada mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.