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

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

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

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

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

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


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

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

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

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

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

φύλλα εξαγωγής εγγράφων 2

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

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


Διαχωρίστε γρήγορα πολλά φύλλα εργασίας σε ξεχωριστό βιβλίο εργασίας στο Excel

Στο Microsoft Excel, μπορείτε να αποθηκεύσετε ή να διαιρέσετε ένα φύλλο εργασίας από ένα βιβλίο εργασίας ως νέο αρχείο Excel αντιγράφοντας και επικολλώντας αυτό το φύλλο εργασίας σε ένα νέο βιβλίο εργασίας. Φαίνεται ενοχλητικό, εάν θέλετε να χωρίσετε κάθε φύλλο / φύλλο εργασίας ενός μεγάλου βιβλίου εργασίας ως ξεχωριστά αρχεία Excel, txt, csv, pdf. Αλλά με Kutools για Excel'S Διαχωρισμός βιβλίου εργασίας βοηθητικό πρόγραμμα, μπορείτε να το αντιμετωπίσετε γρήγορα.  Κάντε κλικ για δωρεάν δοκιμή 30 ημερών με πλήρεις δυνατότητες!
Βιβλίο εργασίας διαίρεσης εγγράφων 1
 
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.

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

φύλλα εξαγωγής εγγράφων 7

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

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

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

Βήμα 1: Κάντε κλικ στο κουμπί Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας…. Δείτε το στιγμιότυπο οθόνης:
φύλλα εξαγωγής εγγράφων 3

Βήμα 2: Στο Διαχωρισμός βιβλίου εργασίας πλαίσιο διαλόγου, κάντε τα παρακάτω:

φύλλα εξαγωγής εγγράφων 4
1: Όλα τα ονόματα των φύλλων εργασίας έχουν ελεγχθεί από προεπιλογή, εάν δεν θέλετε να διαχωρίσετε μερικά από τα φύλλα εργασίας, μπορείτε να τα καταργήσετε.


2: Εάν θέλετε να αποφύγετε τον διαχωρισμό των κρυφών ή κενών φύλλων εργασίας, μπορείτε να ελέγξετε το Παράλειψη κρυφών φύλλων εργασίας or Παράλειψη κενών φύλλων εργασίας.)?


3: και επίσης μπορείτε να ελέγξετε Καθορίστε αποθήκευση μορφή, και για να επιλέξετε διαίρεση των φύλλων, στη συνέχεια αποθηκεύστε ως αρχείο κειμένου, αρχείο pdf ή αρχείο csv, σε defualt, εάν δεν επιλέξετε αυτήν την επιλογή, θα χωρίσει φύλλα και θα αποθηκευτεί ως βιβλίο εργασίας.

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

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

Κάντε κλικ για να μάθετε περισσότερες πληροφορίες σχετικά με αυτό το εργαλείο Split Workbook.

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


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

Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας που έχει δεδομένα στις στήλες Α έως Ζ, το όνομα του πωλητή βρίσκεται στη στήλη Α και πρέπει να χωρίσετε αυτόματα αυτά τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη Α στο ίδιο βιβλίο εργασίας και κάθε πωλητής θα χωριστεί σε ένα νέο φύλλο εργασίας Kutools για Excel'S Ημερομηνία διαχωρισμού Το βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να χωρίσετε γρήγορα δεδομένα σε πολλά φύλλα εργασίας με βάση την επιλεγμένη στήλη, όπως φαίνεται παρακάτω στο στιγμιότυπο οθόνης στο Excel.  Κάντε κλικ για δωρεάν δοκιμή 30 ημερών με πλήρεις δυνατότητες!
δεδομένα διαχωρισμού εγγράφων 2
 
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.

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

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations