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

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

• Χρησιμοποιώντας την εντολή MD και το Σημειωματάριο
• Χρησιμοποιώντας ένα ισχυρό χαρακτηριστικό – Kutools για Excel
• Χρησιμοποιώντας κώδικα VBA

Δημιουργήστε φακέλους και υποφακέλους με βάση τις τιμές κελιών με κώδικα 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 σε ένα οργανωμένο σύστημα φακέλων, ενισχύοντας σημαντικά την παραγωγικότητά σας.

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

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

Αποτέλεσμα:

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

Δημιουργήστε φακέλους από μια λίστα χρησιμοποιώντας κώδικα 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. δείτε στιγμιότυπο οθόνης:

Δημιουργήστε φακέλους και υποφακέλους με βάση τις τιμές κελιών με κώδικα 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, μεταβείτε στον κατάλογο προορισμού για να δείτε το αποτέλεσμα. Θα διαπιστώσετε ότι οι φάκελοι και οι αντίστοιχοι υποφάκελοι τους, όπως υπαγορεύονται από τις τιμές των κελιών, έχουν δημιουργηθεί με επιτυχία όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

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