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

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

Αποθηκεύστε τα φύλλα εργασίας ως νέο βιβλίο εργασίας ένα προς ένα με την εντολή Μετακίνηση ή Αντιγραφή

Χρήση του Μετακίνηση ή Αντιγραφή Η εντολή θα σας βοηθήσει να εξαγάγετε ή να αντιγράψετε ένα ή περισσότερα φύλλα εργασίας σε ένα νέο βιβλίο εργασίας γρήγορα.

Βήμα 1: Επιλέξτε τα ονόματα του φύλλου εργασίας στη γραμμή καρτελών. Μπορείτε να επιλέξετε πολλαπλά πατώντας παρατεταμένα Ctrl κλειδί ή αλλαγή κλειδί.

Βήμα 2: Κάντε δεξί κλικ στο όνομα του φύλλου εργασίας και κάντε κλικ στο Μετακίνηση ή Αντιγραφή από το μενού περιβάλλοντος.

Βήμα 3: In Μετακίνηση ή Αντιγραφή πλαίσιο διαλόγου, επιλέξτε το (καινούργιο βιβλίο) στοιχείο από την αναπτυσσόμενη λίστα του Μετακίνηση επιλεγμένων φύλλων για κράτηση.

Βήμα 4: Στη συνέχεια κάντε κλικ OK, τώρα έχετε μεταβεί στο νέο βιβλίο εργασίας με εξαγόμενα ή αντιγραμμένα φύλλα εργασίας, κάντε κλικ στο Αρχεία > Αποθήκευση για να αποθηκεύσετε το νέο βιβλίο εργασίας.

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

Αποθηκεύστε εύκολα ομαδικά φύλλα εργασίας ως νέο βιβλίο εργασίας με το Kutools για Excel

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

Μετά την εγκατάσταση του Kutools για Excel, Κλίκ Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας για να ανοίξετε το Διαχωρισμός βιβλίου εργασίας κουτί διαλόγου. Και μετά ρυθμίστε τις παραμέτρους ως εξής.

1. Ελέγξτε τα φύλλα εργασίας που θέλετε να αποθηκεύσετε ως νέα βιβλία εργασίας. Από προεπιλογή, όλα τα φύλλα εργασίας ελέγχονται.
2. Είναι προαιρετικό να παραλείψετε κρυφά και κενά φύλλα εργασίας επιλέγοντας τα αντίστοιχα πλαίσια ελέγχου στο Επιλογές τμήμα.
3. Πατήστε OK.

   

4. A Επιλογή φακέλου εμφανίζεται το παράθυρο διαλόγου, στη συνέχεια πρέπει να επιλέξετε έναν φάκελο προορισμού για να αποθηκεύσετε τα νέα βιβλία εργασίας και να κάνετε κλικ στο Επιλογή φακέλου κουμπί.

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

Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας με κωδικό VBA

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

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

Βήμα 2: Κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας:

VBA: Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας σε νέο φάκελο.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Βήμα 3: Πατήστε το F5 κλειδί για την εκτέλεση αυτού του κώδικα. Και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας πει τη θέση των νέων εξαγόμενων βιβλίων εργασίας και όλα τα φύλλα εργασίας του αρχικού βιβλίου εργασίας έχουν εξαχθεί σε ορισμένα νέα ξεχωριστά βιβλία εργασίας που ονόμασαν πρωτότυπα φύλλα σε έναν νέο συγκεκριμένο φάκελο. Δείτε στιγμιότυπα οθόνης:

Εξαγάγετε και αποθηκεύστε κάθε φύλλο ως νέο βιβλίο εργασίας

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

• Συνδυάστε πολλά βιβλία εργασίας σε ένα βιβλίο εργασίας
• Αποθηκεύστε μια επιλογή ως μεμονωμένο αρχείο
• Διαχωρίστε ένα βιβλίο εργασίας για να διαχωρίσετε αρχεία Excel