3 greiti metodai, kaip rekursyviai išvardyti visus failus „Windows“ aplanke „Excel“ darbalapyje

Daugeliui vartotojų reikia greitai išvardyti visus failus „Windows“ aplanke ir visus jo poaplankius „Excel“ darbalapyje. Todėl šiame straipsnyje pristatysime 3 greitus būdus, kaip tai įgyvendinti.

Jei norite rekursyviai išvardyti visus „Windows“ aplanke esančius failus „Excel“ darbalapyje, jums tikrai nepatiks kopijuoti failų pavadinimus į „Excel“ rankiniu būdu. Be jokios abejonės, tai per daug varginantis ir atimantis daug laiko. Taigi, čia mes išmokysime jus 3 daug protingesnių ir patogesnių būdų

1 būdas: įtraukite failus į Windows aplanką naudodami Firefox arba Google Chrome

1. Pirmiausia „Windows Explorer“ pasiekite konkretų „Windows“ aplanką ir nukopijuokite aplanko kelią.
2. Tada paleiskite „Firefox“ arba „Google Chrome“.
3. Tada įklijuokite nukopijuoto aplanko kelią į interneto naršyklės adreso juostą.
4. Po to paspauskite klavišą „Enter“.
5. Iš karto visi šiame „Windows“ aplanke esantys failai bus pateikti naršyklėje.
6. Tada paspauskite „Ctrl + A“, kad pasirinktumėte visą turinį, ir „Ctrl + C““, kad juos nukopijuotumėte.
7. Galiausiai įklijuokite juos į „Excel“ darbalapį.

2 būdas: įtraukite failus į „Windows“ aplanką naudodami „Vardų tvarkyklę“

1. Pirmiausia sukurkite naują „Excel“ darbalapį.
2. Tada pasirinkite langelį A1.
3. Tada eikite į skirtuką „Formulės“ ir spustelėkite mygtuką „Vardų tvarkyklė“.
4. Atsidariusiame dialogo lange spustelėkite mygtuką „Naujas“.
5. Tada kitame dialogo lange lauke „Vardas“ įveskite „Failai“.
6. Ir lauke „Refers to:“ pakeiskite „=Sheet1!$A$1“ į „=FILES(Sheet1!$A$1)“.
7. Po to spustelėkite „Gerai“ ir uždarykite dialogo langą „Vardų tvarkyklė“.
8. Vėliau nukopijuokite „Windows“ aplanko kelią į A1 langelį ir pridėkite „\*“ kelio gale.
9. Tada pasirinkite langelį A3 ir įveskite funkciją „=INDEX(Files,ROW()-2)“.
10. Iš karto bus pateiktas failas šiame „Windows“ aplanke, kaip ir toliau pateiktame paveikslėlyje.
11. Galiausiai tiesiog nukopijuokite šią funkciją keliomis eilutėmis, kad pateiktumėte kitus failus, kol pamatysite „#REF! klaida. Klaida reiškia, kad visi failai buvo išvardyti.

3 būdas: rekursyviai įtraukite failus į Windows aplanką naudodami Excel VBA

1. Norėdami pradėti, sukurkite naują „Excel“ failą.
2. Tada pasiekite „Excel VBA“ rengyklę su nuoroda „Kaip paleisti VBA kodą „Excel“.".
3. Tada nukopijuokite šį kodą į projektą „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. Dabar spustelėkite pirmąją paprogramę ir paspauskite klavišą „F5“.
5. Iššokančiajame dialogo lange eikite į ir pasirinkite „Windows“ aplanką, kuriame norite įtraukti failus, ir spustelėkite „Gerai“.
6. Galiausiai, kai makrokomanda bus baigta, grįžkite į „Excel“ darbalapį. Visi failai „Windows“ aplanke ir jo poaplankiuose buvo išvardyti, kaip parodyta toliau esančioje ekrano kopijoje.

„Excel“ retkarčiais užstringa

Kaip ir kita programinė įranga, „Excel“ kartais gali užstrigti, o tai gali tiesiogiai sunaikinti atidarytą „Excel“ failą. Tokiais atvejais dauguma vartotojų tikisi, kad „Excel“ automatiškai atkurs failą paleidus iš naujo. Tačiau dažniausiai realybė nėra tokia, kokios tikėtasi. Tuomet būtina kreiptis į Excel remontas įrankis, pvz DataNumen Excel Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com