3 γρήγορες μέθοδοι για αναδρομική λίστα όλων των αρχείων σε φάκελο Windows στο φύλλο εργασίας του Excel

Πολλοί χρήστες πρέπει να καταχωρίσουν γρήγορα όλα τα αρχεία σε ένα φάκελο των Windows και όλους τους υποφακέλους σε ένα φύλλο εργασίας του Excel. Επομένως, σε αυτό το άρθρο, θα σας παρουσιάσουμε 3 γρήγορους τρόπους για να το πραγματοποιήσετε.

Εάν θέλετε να αναφέρετε αναδρομικά όλα τα αρχεία σε ένα φάκελο Windows σε ένα φύλλο εργασίας του Excel, σίγουρα θα σας αρέσει να αντιγράφετε τα ονόματα αρχείων στο Excel με μη αυτόματο τρόπο. Αναμφίβολα, είναι πολύ κουραστικό και χρονοβόρο. Ως εκ τούτου, εδώ θα σας διδάξουμε 3 πολύ πιο έξυπνες και πιο βολικές προσεγγίσεις

Μέθοδος 1: Λίστα αρχείων σε φάκελο Windows μέσω Firefox ή Google Chrome

1. Πρώτα απ 'όλα, στην Εξερεύνηση των Windows, αποκτήστε πρόσβαση στον συγκεκριμένο φάκελο των Windows και αντιγράψτε τη διαδρομή του φακέλου.
2. Στη συνέχεια, ξεκινήστε τον Firefox ή το Google Chrome.
3. Στη συνέχεια, επικολλήστε τη διαδρομή του αντιγράφου φακέλου στη γραμμή διευθύνσεων του Internet Browser.
4. Μετά από αυτό, πατήστε το πλήκτρο "Enter".
5. Ταυτόχρονα, όλα τα αρχεία σε αυτόν τον φάκελο των Windows θα εμφανίζονται στο πρόγραμμα περιήγησης.
6. Στη συνέχεια, πατήστε "Ctrl + A" για να επιλέξετε όλα τα περιεχόμενα και "" Ctrl + C "" για να τα αντιγράψετε.
7. Τέλος, επικολλήστε τα σε ένα φύλλο εργασίας του Excel.

Μέθοδος 2: Λίστα αρχείων σε φάκελο των Windows μέσω του "Name Manager"

1. Αρχικά, δημιουργήστε ένα νέο φύλλο εργασίας του Excel.
2. Στη συνέχεια, επιλέξτε Cell A1.
3. Στη συνέχεια, μεταβείτε στην καρτέλα "Τύποι" και κάντε κλικ στο κουμπί "Διαχείριση ονόματος".
4. Στο αναδυόμενο παράθυρο διαλόγου, κάντε κλικ στο κουμπί "Νέο".
5. Στη συνέχεια, στο επόμενο παράθυρο διαλόγου, εισαγάγετε "Αρχεία" στο πεδίο "Όνομα".
6. Και αλλάξτε "= Sheet1! $ A $ 1" σε "= FILES (Sheet1! $ A $ 1)" στο πεδίο "Αναφέρεται σε:".
7. Στη συνέχεια, κάντε κλικ στο "OK" και κλείστε το παράθυρο διαλόγου "Name Manager".
8. Αργότερα, αντιγράψτε τη διαδρομή φακέλου των Windows στο κελί A1 και προσθέστε "\* "Στο τέλος του μονοπατιού.
9. Στη συνέχεια, επιλέξτε το κελί A3 και εισαγάγετε τη λειτουργία "= INDEX (Files, ROW () - 2)".
10. Ταυτόχρονα, θα εμφανίζεται ένα αρχείο σε αυτόν τον φάκελο των Windows, όπως η ακόλουθη εικόνα.
11. Τέλος, απλώς αντιγράψτε αυτήν τη λειτουργία σε πολλές σειρές για να εμφανίσετε τα υπόλοιπα αρχεία μέχρι να δείτε το "#REF!" λάθος. Το σφάλμα σημαίνει ότι έχουν καταχωριστεί όλα τα αρχεία.

Μέθοδος 3: Αναδρομική λίστα αρχείων σε φάκελο των Windows μέσω του Excel VBA

1. Για αρχή, δημιουργήστε ένα νέο αρχείο Excel.
2. Στη συνέχεια, αποκτήστε πρόσβαση στο πρόγραμμα επεξεργασίας Excel VBA με αναφορά στο "Πώς να εκτελέσετε τον κώδικα VBA στο Excel σας".
3. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα στο έργο "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. Τώρα, κάντε κλικ στην πρώτη υπορουτίνα και πατήστε το πλήκτρο "F5".
5. Στο αναδυόμενο παράθυρο διαλόγου, μεταβείτε και επιλέξτε έναν φάκελο Windows από τον οποίο θέλετε να παραθέσετε αρχεία και κάντε κλικ στο "OK".
6. Τελικά, όταν ολοκληρωθεί η μακροεντολή, επιστρέψτε στο φύλλο εργασίας του Excel. Όλα τα αρχεία του φακέλου των Windows και των υποφακέλων του έχουν καταχωριστεί, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Σφάλματα Excel από καιρό σε καιρό

Όπως και άλλα λογισμικά, το Excel μπορεί να παρουσιάσει σφάλματα κατά καιρούς, γεγονός που μπορεί να καταστρέψει άμεσα το αρχείο Excel που είναι ανοιχτό εκείνη τη στιγμή. Σε τέτοιες περιπτώσεις, η πλειοψηφία των χρηστών θα ελπίζει ότι το Excel θα μπορεί να ανακτήσει αυτόματα το αρχείο κατά την επανεκκίνηση. Ωστόσο, τις περισσότερες φορές, η πραγματικότητα δεν είναι όπως την περιμένετε. Σε αυτήν την περίπτωση, θα ήταν απαραίτητο να καταφύγετε σε ένα Επισκευή Excel εργαλείο, όπως DataNumen Excel Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com