3 ātrās metodes, lai rekursīvi uzskaitītu visus failus Windows mapē Excel darblapā

Daudziem lietotājiem ātri jāuzskaita visi faili Windows mapē un visas tā apakšmapes Excel darblapā. Tāpēc šajā rakstā mēs iepazīstināsim jūs ar 3 ātriem veidiem, kā to realizēt.

Ja vēlaties rekursīvi uzskaitīt visus failus Windows mapē Excel darblapā, jums noteikti nepatiks failu nosaukumu kopēšana manuāli programmā Excel. Neapšaubāmi, tas ir pārāk garlaicīgs un laikietilpīgs. Tādējādi šeit mēs iemācīsim jums 3 daudz gudrākas un ērtākas pieejas

1. metode: norādiet failus Windows mapē, izmantojot Firefox vai Google Chrome

1. Pirmkārt, pārlūkprogrammā Windows Explorer piekļūstiet konkrētajai Windows mapei un nokopējiet mapes ceļu.
2. Pēc tam palaidiet Firefox vai Google Chrome.
3. Pēc tam interneta pārlūka adreses joslā ielīmējiet kopēto mapes ceļu.
4. Pēc tam nospiediet taustiņu “Enter”.
5. Uzreiz visi šīs Windows mapes faili tiks uzskaitīti pārlūkprogrammā.
6. Pēc tam nospiediet “Ctrl + A”, lai atlasītu visu saturu, un “” Ctrl + C ”, lai tos kopētu.
7. Visbeidzot, ielīmējiet tos Excel darblapā.

2. metode: Failu saraksts Windows mapē, izmantojot “Name Manager”

1. Sākumā izveidojiet jaunu Excel darblapu.
2. Pēc tam atlasiet šūnu A1.
3. Pēc tam dodieties uz cilni “Formulas” un noklikšķiniet uz pogas “Nosaukumu pārvaldnieks”.
4. Uznirstošajā dialoglodziņā noklikšķiniet uz pogas “Jauns”.
5. Pēc tam nākamajā dialoglodziņā laukā “Nosaukums” ievadiet “Faili”.
6. Laukā “Attiecas uz:” mainiet “= Sheet1! $ A $ 1” uz “= FILES (Sheet1! $ A $ 1)”.
7. Pēc tam noklikšķiniet uz Labi un aizveriet dialoglodziņu Nosaukumu pārvaldnieks.
8. Vēlāk nokopējiet Windows mapes ceļu šūnā A1 un pievienojiet “\* ”Ceļa beigās.
9. Pēc tam atlasiet šūnu A3 un ievadiet funkciju “= INDEX (faili, rinda () - 2)”.
10. Uzreiz tiks parādīts fails šajā Windows mapē, piemēram, šāds attēls.
11. Visbeidzot, vienkārši nokopējiet šo funkciju uz leju vairākās rindās, lai uzskaitītu pārējos failus, līdz redzat “#REF!” kļūda. Kļūda nozīmē, ka visi faili ir iekļauti sarakstā.

3. metode: rekursīvi uzskaitiet failus Windows mapē, izmantojot Excel VBA

1. Lai sāktu, izveidojiet jaunu Excel failu.
2. Pēc tam piekļūstiet Excel VBA redaktoram ar norādi “Kā palaist VBA kodu savā Excel".
3. Pēc tam kopējiet šo kodu 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. Noklikšķiniet uz pirmās apakšprogrammas un nospiediet taustiņu “F5”.
5. Uznirstošajā dialoglodziņā dodieties uz un atlasiet Windows mapi, no kuras vēlaties uzskaitīt failus, un noklikšķiniet uz Labi.
6. Galu galā, kad makro ir pabeigts, atgriezieties Excel darblapā. Visi faili Windows mapē un tās apakšmapēs ir uzskaitīti, kā parādīts nākamajā ekrānuzņēmumā.

Excel avarē laiku pa laikam

Tāpat kā cita programmatūra, arī Excel laiku pa laikam var avarēt, kas var tieši iznīcināt pašlaik atvērto Excel failu. Šādos gadījumos lielākā daļa lietotāju cer, ka Excel varēs automātiski atjaunot failu pēc restartēšanas. Tomēr biežāk realitāte neatbilst gaidītajam. Tad ir svarīgi izmantot Excel remonts rīks, piemēram DataNumen Excel Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar