Πώς να απαριθμήσετε όλους τους φακέλους και τους υποφακέλους στο Excel;
Έχετε αντιμετωπίσει ποτέ αυτό το πρόβλημα που απαριθμεί όλους τους φακέλους και τους υποφακέλους από έναν καθορισμένο κατάλογο σε ένα φύλλο εργασίας; Στο Excel, δεν υπάρχει γρήγορος και εύχρηστος τρόπος για να λάβετε ταυτόχρονα το όνομα όλων των φακέλων σε έναν συγκεκριμένο κατάλογο. Για την αντιμετώπιση της εργασίας, αυτό το άρθρο μπορεί να σας βοηθήσει.
Λίστα όλων των φακέλων και υποφακέλων με κωδικό VBA
Λίστα όλων των φακέλων και υποφακέλων με κωδικό VBA
Εάν θέλετε να λάβετε όλα τα ονόματα φακέλων από έναν καθορισμένο κατάλογο, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Λίστα όλων των φακέλων και των ονομάτων των φακέλων
Sub FolderNames()
'Update 20141027
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choose the folder"
.Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
getSubFolder subfld
Next subfld
End Sub
3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, και a Επιλέξτε το φάκελο θα εμφανιστεί το παράθυρο και, στη συνέχεια, πρέπει να επιλέξετε τον κατάλογο που θέλετε να αναφέρετε τα ονόματα φακέλων και υποφακέλων, δείτε το στιγμιότυπο οθόνης:
4. Κλίκ OKκαι θα λάβετε τη διαδρομή του φακέλου και των υποφακέλων, τον κατάλογο, το όνομα, την ημερομηνία δημιουργίας και την τελευταία τροποποιημένη ημερομηνία σε ένα νέο βιβλίο εργασίας, δείτε το στιγμιότυπο οθόνης:
Σχετικό άρθρο:
Πώς να παραθέσετε αρχεία σε έναν κατάλογο στο φύλλο εργασίας στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!