Πώς να καταχωρίσετε όλα τα αρχεία σε φάκελο και υποφακέλους σε ένα φύλλο εργασίας;

Έχετε προσπαθήσει ποτέ να παραθέσετε όλα τα ονόματα αρχείων από ένα φάκελο σε ένα φύλλο εργασίας, συμπεριλαμβανομένων των αρχείων που βρίσκονται στους υποφακέλους του; Στην πραγματικότητα, δεν υπάρχει άμεσος τρόπος για να παραθέσουμε τα ονόματα αρχείων από έναν φάκελο και τον υποφάκελό του στο Excel, ωστόσο, σήμερα, θα παρουσιάσω μερικά γρήγορα κόλπα για την επίλυση αυτής της εργασίας.

Καταγράψτε όλα τα ονόματα αρχείων σε φάκελο και υποφάκελο με κωδικό VBA

Καταγράψτε όλα τα ονόματα αρχείων σε φάκελο και υποφάκελο γρήγορα και εύκολα με το Kutools για Excel

Καταγράψτε όλα τα ονόματα αρχείων σε φάκελο και υποφάκελο με κωδικό VBA

Κανονικά, το Excel δεν διαθέτει δυνατότητα ενσωμάτωσης για την αντιμετώπιση αυτής της εργασίας, αλλά, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA για να ολοκληρώσετε αυτό το πρόβλημα.

1. Ενεργοποιήστε ένα νέο φύλλο εργασίας που θα εμφανίζει τα ονόματα αρχείων.

2. Κρατήστε πατημένο το ALT + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Λίστα όλων των ονομάτων αρχείων σε φάκελο και υποφάκελο

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4. Αφού επικολλήσετε τον κώδικα στην Ενότητα, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, και a Μακροεντολές εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το Κύρια λίστα όνομα μακροεντολής και, στη συνέχεια, κάντε κλικ στο τρέξιμο κουμπί, δείτε το στιγμιότυπο οθόνης:

5. Και στο Αναζήτηση παράθυρο, επιλέξτε το φάκελο στον οποίο θέλετε να αναφέρετε όλα τα ονόματα αρχείων συμπεριλαμβανομένων των υποφακέλων, δείτε το στιγμιότυπο οθόνης:

6. Αφού καθορίσετε το φάκελο, κάντε κλικ στο OK κουμπί και όλα τα ονόματα αρχείων στο φάκελο και τους υποφακέλους του έχουν καταχωριστεί στο τρέχον φύλλο εργασίας από το κελί A2, δείτε στιγμιότυπα οθόνης:

Καταγράψτε όλα τα ονόματα αρχείων σε φάκελο και υποφάκελο γρήγορα και εύκολα με το Kutools για Excel

Με τον παραπάνω κωδικό, μπορείτε απλώς να παραθέσετε τα ονόματα αρχείων, μερικές φορές, πρέπει να παραθέσετε άλλα χαρακτηριστικά, όπως μέγεθος αρχείου, τύπο αρχείου, ώρα δημιουργίας, που περιέχει φάκελο και άλλα. Kutools για Excel περιέχει μια χρήσιμη λειτουργία - Λίστα ονομάτων αρχείων, με αυτήν τη δυνατότητα, μπορείτε να εμφανίσετε γρήγορα όλους ή συγκεκριμένους τύπους ονομάτων αρχείων σε ένα φάκελο και τους υποφακέλους του.

Μετά το λήψη και εγκατάσταση Kutools για Excel, κάντε τα παρακάτω βήματα:

1. Κλίκ Εταιρεία > Εισαγωγή εξαγωγή > Λίστα ονομάτων αρχείων, δείτε το στιγμιότυπο οθόνης:

2. Στην Λίστα ονομάτων αρχείων πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

A: Κάντε κλικ κουμπί για να επιλέξετε το φάκελο που θέλετε να αναφέρετε τα ονόματα αρχείων.

B: Καθορίστε τον τύπο αρχείου που θέλετε να παραθέσετε από το Τύπος αρχείων Ενότητα;

C: Επιλέξτε μία μονάδα μεγέθους αρχείου που θέλετε να εμφανιστεί από το Μονάδα μεγέθους αρχείου τμήμα.

Σημείωση: Για να εμφανίσετε τα ονόματα αρχείων από τον υποφάκελο, ελέγξτε Συμπεριλάβετε αρχεία σε υποκαταλόγους, μπορείτε επίσης να ελέγξετε το Συμπεριλάβετε κρυφά αρχεία και φακέλους όπως χρειάζεστε. Εάν ελέγξετε Δημιουργία υπερσυνδέσμων επιλογή, θα δημιουργήσει υπερσυνδέσμους για κάθε όνομα αρχείου και φάκελο.

3. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλα τα αρχεία που περιλαμβάνονται στον επιλεγμένο φάκελο και τους υποφακέλους του έχουν εμφανιστεί με τα ακόλουθα χαρακτηριστικά σε ένα νέο φύλλο εργασίας. Δείτε το στιγμιότυπο οθόνης:

Κάντε κλικ για να μάθετε περισσότερες λεπτομέρειες σχετικά με αυτό το βοηθητικό πρόγραμμα Λίστα αρχείων.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!