Μετάβαση στο κύριο περιεχόμενο

Δημιουργήστε πολλούς φακέλους και υποφακέλους από μια λίστα δεδομένων στο Excel

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

Δημιουργήστε φακέλους με βάση τις τιμές των κελιών

Δημιουργήστε φακέλους και υποφακέλους με βάση τις τιμές κελιών με κώδικα VBA


Δημιουργήστε φακέλους με βάση τις τιμές των κελιών

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

Δημιουργήστε φακέλους από μια λίστα χρησιμοποιώντας την εντολή MD και το Σημειωματάριο

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

Βήμα 1: Χρησιμοποιήστε την εντολή MD για να δημιουργήσετε τύπους

Αντιγράψτε ή εισαγάγετε τον ακόλουθο τύπο σε ένα κενό κελί δίπλα στην τιμή του πρώτου κελιού σας (για παράδειγμα, B1) και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να εφαρμόσετε τον τύπο σε όλα τα στοιχεία της λίστας σας.

="MD "&A1

Βήμα 2: Αντιγράψτε και επικολλήστε τους τύπους σε ένα αρχείο Σημειωματάριο

  1. Τύπος Ctrl + C για να αντιγράψετε τα κελιά με τον τύπο εντολής MD.
  2. Ανοικτό μπλοκ και πατήστε το πλήκτρο Ctrl + V για να επικολλήσετε τις εντολές σε ένα νέο αρχείο.

Βήμα 3: Αποθηκεύστε το αρχείο Σημειωματάριο ως αρχείο .bat

Πατήστε Αποθήκευση ως από το Αρχεία καρτέλα στο Σημειωματάριο, στο Αποθήκευση ως στο παράθυρο διαλόγου, επιλέξτε έναν κατάλογο όπου θέλετε να δημιουργήσετε πολλούς φακέλους και, στη συνέχεια, δώστε ένα όνομα για αυτό το αρχείο με α .bat επέκταση. Τέλος, κάντε κλικ Αποθήκευση κουμπί. Δείτε το στιγμιότυπο οθόνης:

Βήμα 4: Κάντε διπλό κλικ στο αρχείο .bat για να δημιουργήσετε πολλούς φακέλους

  1. Κλείστε το αρχείο Σημειωματάριο, μεταβείτε στον φάκελο που αποθηκεύσατε προηγουμένως το αρχείο .bat.
  2. Τώρα, δείτε τη μαγεία: κάντε διπλό κλικ στο αρχείο και θα δείτε πολλούς φακέλους να δημιουργούνται ταυτόχρονα. Δείτε το demo παρακάτω:
 

Δημιουργήστε φακέλους από μια λίστα χρησιμοποιώντας ισχυρό εργαλείο – Kutools για Excel

Με τους ισχυρούς Kutools για Excel'S Δημιουργία φακέλων από περιεχόμενα κελιού χαρακτηριστικό, μπορείτε πλέον εύκολα και γρήγορα να δημιουργείτε φακέλους από μια λίστα του Excel. Αλλά δεν σταματά μόνο σε βασικούς φακέλους. Το Kutools σάς επιτρέπει επίσης να δημιουργείτε σύνθετες δομές με υποφακέλους πολλαπλών επιπέδων με μία κίνηση. Μερικά απλά βήματα μπορούν να μετατρέψουν δεδομένα από το Excel σε ένα οργανωμένο σύστημα φακέλων, ενισχύοντας σημαντικά την παραγωγικότητά σας.

Note: Εάν θέλετε να το χρησιμοποιήσετε Δημιουργία φακέλων από περιεχόμενα κελιού χαρακτηριστικό, παρακαλώ κατεβάστε και εγκαταστήστε το Kutools για Excel πρώτη.

Μετά την εγκατάσταση Kutools για Excel, Παρακαλώ κάντε κλικ στο κουμπί Kutools Plus > Εισαγωγή εξαγωγή > Δημιουργία φακέλων από περιεχόμενα κελιού για να ανοίξετε το Δημιουργία φακέλων από περιεχόμενα κελιού κουτί διαλόγου:

  1. Επιλέξτε τις τιμές κελιών στις οποίες θέλετε να δημιουργήσετε φακέλους με βάση.
  2. Στη συνέχεια, κάντε κλικ στο κουμπί για να καθορίσετε τον φάκελο προορισμού που θέλετε να αποθηκεύσετε τους φακέλους.
  3. Τέλος, κάντε κλικ OK κουμπί.

Αποτέλεσμα:

Το Kutools θα επεξεργαστεί τη λίστα από το φύλλο σας και θα δημιουργήσει έναν φάκελο για κάθε καταχώρηση στον καθορισμένο προορισμό. Μεταβείτε στον φάκελο προορισμού για να δείτε το αποτέλεσμα. Δείτε στιγμιότυπο οθόνης:

Συμβουλές:
  1. Αυτή η χρήσιμη δυνατότητα μπορεί επίσης να σας βοηθήσει δημιουργήστε φακέλους μαζί με τους υποφακέλους τους όπως χρειάζεσαι. Για να το κάνετε αυτό, θα πρέπει να εισαγάγετε τα επιθυμητά ονόματα φακέλων και υποφακέλων στα κελιά, χρησιμοποιώντας το σύμβολο ανάστροφης κάθετο (\) για να διαχωρίσετε κάθε επίπεδο. Τα περιεχόμενα κάθε κελιού θα λειτουργήσουν ως οδηγός για τη ρύθμιση της επιθυμητής δομής φακέλων και υποφακέλων.

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

Δημιουργήστε φακέλους από μια λίστα χρησιμοποιώντας κώδικα VBA

Η χρήση κώδικα VBA στο Excel μπορεί να μετατρέψει τη κουραστική εργασία της δημιουργίας φακέλων από μια λίστα σε μια γρήγορη, αυτοματοποιημένη διαδικασία. Αυτή η ενότητα θα σας δείξει πώς να εφαρμόσετε τον κώδικα VBA για τη δημιουργία φακέλων.

Βήμα 1: Ανοίξτε το πρόγραμμα επεξεργασίας μονάδας VBA και αντιγράψτε τον κώδικα

  1. Κρατήστε πατημένο το ALT + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
  2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
    Κώδικας VBA: Δημιουργήστε φακέλους με βάση μια λίστα τιμών κελιών
    Sub CreateFoldersFromSelection()
    'Updateby Extendoffice
        Dim FolderPath As String
        Dim Cell As Range
        Dim SelectedRange As Range
        Dim FolderName As String
        On Error Resume Next
        Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
        If SelectedRange Is Nothing Then Exit Sub
        On Error GoTo 0
        
        With Application.FileDialog(msoFileDialogFolderPicker)
            .Title = "Select the destination Folder"
            .AllowMultiSelect = False
            If .Show <> -1 Then Exit Sub
            FolderPath = .SelectedItems(1) & "\"
        End With
        
        For Each Cell In SelectedRange
            FolderName = FolderPath & Cell.Value
            If Cell.Value <> "" And Not FolderExists(FolderName) Then
                MkDir FolderName
            End If
        Next Cell
    End Sub
    
    Function FolderExists(ByVal Path As String) As Boolean
        On Error Resume Next
        FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
        On Error GoTo 0
    End Function
    

Βήμα 2: Εκτελέστε τον κώδικα

  1. Αφού επικολλήσετε αυτόν τον κωδικό, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα. Στο πλαίσιο προτροπής, επιλέξτε τις τιμές κελιών από τις οποίες θέλετε να δημιουργήσετε φακέλους. Και μετά, κάντε κλικ OK.
  2. Στη συνέχεια, στα παρακάτω Επιλέξτε τον φάκελο προορισμού παράθυρο, καθορίστε τη διαδρομή προορισμού για την έξοδο των δημιουργημένων φακέλων. Και μετά, κάντε κλικ OK κουμπί, δείτε το στιγμιότυπο οθόνης:

Αποτέλεσμα:

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

Συμβουλές:
  1. Εάν υπάρχουν διπλότυπες εγγραφές στα κελιά, η εκτέλεση του κώδικα θα έχει ως αποτέλεσμα τη δημιουργία μόνο ενός φακέλου για αυτά τα διπλότυπα.
  2. Εάν διαπιστώσετε ότι χρησιμοποιείτε συχνά αυτόν τον κωδικό, σκεφτείτε να αποθηκεύσετε το βιβλίο εργασίας σας Βιβλίο εργασίας με δυνατότητα Macro-Enabled μορφή. Αυτή η ενέργεια διατηρεί τον κώδικα μέσα στο βιβλίο εργασίας, επιτρέποντάς σας να τον εκτελέσετε απευθείας στο μέλλον χωρίς να χρειάζεται να εισαγάγετε ξανά ή να εισαγάγετε ξανά τον κώδικα.

Δημιουργήστε φακέλους και υποφακέλους με βάση τις τιμές κελιών με κώδικα VBA

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

Βήμα 1: Προετοιμάστε τα δεδομένα

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

Βήμα 2: Ανοίξτε το πρόγραμμα επεξεργασίας μονάδας VBA και αντιγράψτε τον κώδικα

  1. Κρατήστε πατημένο το ALT + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
  2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
    Κώδικας VBA: Δημιουργήστε φακέλους και τιμές κελιών που βασίζονται σε υποφακέλους
    Sub CreateFoldersAndSubfoldersWithUserInput()
    'Updateby Extendoffice
        Dim Rng As Range
        Dim Cell As Range
        Dim basePath As String
        Dim fldrPicker As FileDialog
        Dim FolderPath As String, subfolderPath As String
        On Error Resume Next
        Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
        If Rng Is Nothing Then Exit Sub
        On Error GoTo 0
        Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
        With fldrPicker
            .Title = "Select the Base Folder Path"
            .AllowMultiSelect = False
            If .Show <> -1 Then Exit Sub
            basePath = .SelectedItems(1)
        End With
        If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
        For Each Cell In Rng.Columns(1).Cells
            If Not Cell.Value = "" Then
                FolderPath = basePath & Cell.Value
                If Not FolderExists(FolderPath) Then MkDir FolderPath
                If Not Cell.Offset(0, 1).Value = "" Then
                    subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                    If Not FolderExists(subfolderPath) Then MkDir subfolderPath
                End If
            End If
        Next Cell
    End Sub
    
    Function FolderExists(FolderPath As String) As Boolean
        On Error Resume Next
        FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
        On Error GoTo 0
    End Function
    

Βήμα 3: Εκτελέστε τον κώδικα

  1. Αφού επικολλήσετε αυτόν τον κωδικό, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα. Στο πλαίσιο προτροπής, επιλέξτε τις τιμές κελιών από τις οποίες θέλετε να δημιουργήσετε φακέλους. Και μετά, κάντε κλικ OK.
  2. Στο επόμενο αναδυόμενο παράθυρο, καθορίστε τη διαδρομή προορισμού για την έξοδο των φακέλων που δημιουργήσατε. Και μετά, κάντε κλικ OK κουμπί, δείτε το στιγμιότυπο οθόνης:

Αποτέλεσμα:

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

Συμβουλές:
  1. Αυτός ο κώδικας είναι διαθέσιμος μόνο για τη δημιουργία μόνο των κύριων φακέλων και των υποφακέλων πρώτου επιπέδου τους.
  2. Εάν διαπιστώσετε ότι χρησιμοποιείτε συχνά αυτόν τον κωδικό, σκεφτείτε να αποθηκεύσετε το βιβλίο εργασίας σας Βιβλίο εργασίας με δυνατότητα Macro-Enabled μορφή. Αυτή η ενέργεια διατηρεί τον κώδικα μέσα στο βιβλίο εργασίας, επιτρέποντάς σας να τον εκτελέσετε απευθείας στο μέλλον χωρίς να χρειάζεται να εισαγάγετε ξανά ή να εισαγάγετε ξανά τον κώδικα.

Σχετικά Άρθρα:

  • Καταχωρίστε όλους τους φακέλους και τους υποφακέλους στο Excel
  • Έχετε αντιμετωπίσει ποτέ αυτό το πρόβλημα που απαριθμεί όλους τους φακέλους και τους υποφακέλους από έναν καθορισμένο κατάλογο σε ένα φύλλο εργασίας; Στο Excel, δεν υπάρχει γρήγορος και εύχρηστος τρόπος για να λάβετε ταυτόχρονα το όνομα όλων των φακέλων σε έναν συγκεκριμένο κατάλογο. Για την αντιμετώπιση της εργασίας, αυτό το άρθρο μπορεί να σας βοηθήσει.
  • Αντιγράψτε ή μετακινήστε αρχεία από έναν φάκελο στον άλλο με βάση μια λίστα
  • Εάν έχετε μια λίστα ονομάτων αρχείων σε μια στήλη σε ένα φύλλο εργασίας και τα αρχεία εντοπίζονται σε ένα φάκελο στον υπολογιστή σας. Ωστόσο, τώρα, πρέπει να μετακινήσετε ή να αντιγράψετε αυτά τα αρχεία, τα ονόματα που αναφέρονται στο φύλλο εργασίας από τον αρχικό τους φάκελο σε άλλο, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσατε να ολοκληρώσετε αυτήν την εργασία όσο πιο γρήγορα μπορείτε στο Excel;
  • Μετονομάστε πολλά αρχεία ενός φακέλου
  • Ίσως οι περισσότεροι από εμάς να υποφέρουμε με αυτό το πρόβλημα που πρέπει να μετονομάσουμε πολλά αρχεία σε ένα φάκελο, για να μετονομάσουμε τα ονόματα αρχείων ένα προς ένα θα μας κάνουν τρελούς αν υπάρχουν εκατοντάδες ή χιλιάδες αρχεία σε αυτόν τον φάκελο. Υπάρχουν καλές λειτουργίες για να αντιμετωπίσουμε αυτό το έργο;