Note: The other languages of the website are Google-translated. Back to English

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

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


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (62)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ πολύ, λειτουργεί πολύ καλά και εύκολα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Μου αρέσει ο κώδικας Είναι δυνατόν να αποθηκεύσετε απλώς το νέο βιβλίο εργασίας χωρίς τις πληροφορίες ημερομηνίας. Αυτό σημαίνει ότι όταν αποθηκεύω ξανά τα φύλλα στο προηγούμενο βιβλίο εργασίας θα έχω την επιλογή να αντικαταστήσω τις αλλαγές αντί να δημιουργήσω έναν άλλο φάκελο με ημερομηνία; Επίσης, αλλά όχι τόσο σημαντικό, πώς θα μπορούσα να χρησιμοποιήσω άλλο όνομα και προορισμό για τον φάκελο προορισμού Regards Sean
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ. Καλή δουλειά!.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να αλλάξω αυτήν τη μακροεντολή ώστε να μπορώ να την αποθηκεύσω σε ένα αρχείο στο φάκελο XLSTART αλλά θα εκτελείται για το ενεργό βιβλίο εργασίας; Κάθε φορά που το αποθηκεύω στο βιβλίο εργασίας XLSTART, αποτυγχάνει στη γραμμή DateString = Format(Now, "yyyy-mm-dd hh-mm-ss"). Ευχαριστώ! Κιθ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σε όλους, μπορεί κάποιος να με βοηθήσει στο παρακάτω. Χρειάζομαι κώδικα VBA που μπορεί να αντιγράψει μόνο όλα τα ορατά φύλλα στο νέο βιβλίο εργασίας και δεν θα πρέπει να αντιγράψει κώδικα μακροεντολής σε νέο βιβλίο εργασίας, να αποθηκεύσει το νέο βιβλίο εργασίας στην επιφάνεια εργασίας με δύο διαφορετικές τιμές κελιών στο φύλλο και το όνομα φύλλου ως όνομα αρχείου και να κλείσει το κύριο βιβλίο εργασίας χωρίς οικονομία.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ. Αυτό ακριβώς χρειαζόμουν.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός αποτυγχάνει στο sh.Copy και δεν μπορώ να καταλάβω γιατί. Καμιά ιδέα?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αυτός ο κώδικας είναι τέλειος για αυτό που χρειάζομαι, αλλά θα μπορούσατε να δείξετε κώδικα για την ίδια ακριβώς διαδικασία για ένα φύλλο αντί για ολόκληρο το βιβλίο εργασίας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Οι κωδικοί VBA λειτουργούν σαν μαγικά, αλλά υπάρχει τρόπος να γίνει αυτό χρησιμοποιώντας VBScript; Τρελαίνομαι προσπαθώντας να ανταποκριθώ στην απαίτηση του προϊσταμένου μου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ. terimakasih. ini code yang saya butuhkan
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ χρήσιμο ευχαριστώ! Μου άρεσε πολύ ο κώδικας VBA
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Muy buena la aplicacion. Es una pena no existir tambien en Español. Gracias
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δυστυχώς ο κώδικας VBA δεν μου λειτούργησε. Έπρεπε να κάνω εντοπισμό σφαλμάτων και το πρόβλημα είναι με τη γραμμή: Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum Έχετε ιδέα γιατί δεν μου λειτούργησε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικό άρθρο - το VBA λειτούργησε για πρώτη φορά - τέλειο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
xWs.Copy -είναι σφάλμα από την πλευρά μου τι σημαίνει;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σφάλμα χρόνου εκτέλεσης Η μέθοδος «Αντιγραφή αντικειμένου» φύλλου εργασίας» απέτυχε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Από τις τρεις παραπάνω μεθόδους, βρήκα την πρώτη μέθοδο αρκετά καλή, λαμβάνοντας υπόψη το γεγονός ότι είμαι αρχάριος και η δουλειά μου δεν είναι καθόλου του ίδιου μεγέθους με τους επαγγελματίες. Ευχαριστώ ειλικρινά για την εξήγηση των βημάτων με απλό και ξεκάθαρο τρόπο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορούμε επίσης να εξάγουμε ΟΛΑ (300+) φύλλα σε html, αυτό θα με βοηθήσει πολύ, η εξαγωγή σε ενοποιημένο κείμενο βοηθά ήδη, αλλά τα χρειάζομαι σε html ή δεν υπάρχουν περιθώρια πίνακα για τις διαφορές των κελιών
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός σας λειτούργησε για μένα... Ευχαριστώ πολύ!!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια. Έλαβα έναν κωδικό σφάλματος που λέει "Σφάλμα μεταγλώττισης: Άκυρη εξωτερική διαδικασία"...βοήθεια!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες