Εκραγούν φύλλα εργασίας του Excel σε ξεχωριστά βιβλία εργασίας;

Μπορείτε να εκραγούν τα φύλλα εργασίας του Excel σε ξεχωριστά βιβλία εργασίας χρησιμοποιώντας το VBA (Visual Basic for Applications) στο Excel. Ακολουθεί ένας οδηγός βήμα προς βήμα:

1. Ενεργοποιήστε την καρτέλα προγραμματιστή:

* Ανοίξτε το βιβλίο εργασίας του Excel.

* Μεταβείτε στο Αρχείο> Επιλογές> Προσαρμογή κορδέλας .

* Ελέγξτε το πλαίσιο για τον προγραμματιστή .

* Κάντε κλικ στο ok .

2. Εισαγάγετε μια μονάδα VBA:

* Κάντε κλικ στο Developer> Visual Basic .

* Στο Visual Basic Editor (VBE), μεταβείτε στο Insert> Module .

3. Επικόλληση και τροποποίηση του κώδικα VBA:

`` `vba

Sub SplitworkSheets ()

Dim WB ως βιβλίο εργασίας, WS ως φύλλο εργασίας

Dim NewWB ως βιβλίο εργασίας

Dim Filename ως συμβολοσειρά

Ορίστε WB =ActiveWorkbook 'Ρυθμίστε το ενεργό βιβλίο εργασίας

«Βρόχο σε κάθε φύλλο εργασίας

Για κάθε WS σε WB.Worksheets

«Δημιουργήστε ένα νέο βιβλίο εργασίας

Ορίστε newwb =workbooks.add

«Αντιγράψτε το τρέχον φύλλο εργασίας στο νέο βιβλίο εργασίας

ws.copy πριν:=newwb.sheets (1)

«Μετονομάστε το νέο βιβλίο εργασίας με βάση το όνομα του φύλλου εργασίας

Όνομα αρχείου =ws.name &".xlsx"

newwb.saveas filename

«Κλείστε το νέο βιβλίο εργασίας

newwb.close

Επόμενο WS

Τερματισμός

`` `

Επεξήγηση:

* `dim wb ως βιβλίο εργασίας, ws ως φύλλο εργασίας, newwb ως βιβλίο εργασίας, όνομα αρχείου ως string`: Δηλώνει μεταβλητές για την αποθήκευση βιβλίου εργασίας και φύλλων εργασίας, καθώς και το όνομα αρχείου για το νέο βιβλίο εργασίας.

* `set wb =activeworkbook`: Ορίζει τη μεταβλητή "WB` στο τρέχον ενεργό βιβλίο εργασίας.

* `για κάθε WS σε wb.worksheets`: Βρόχοι μέσω κάθε φύλλου εργασίας στο ενεργό βιβλίο εργασίας.

* `set newwb =workbooks.add`: Δημιουργεί ένα νέο κενό βιβλίο εργασίας.

* `ws.copy πριν:=newwb.sheets (1)`: Αντιγράφει το τρέχον φύλλο εργασίας (`WS`) στο νεοσύστατο βιβλίο εργασίας (` newwb`), εισάγοντάς το πριν από το πρώτο φύλλο.

* `fileName =ws.name &" .xlsx "`: Ορίζει το όνομα αρχείου για το νέο βιβλίο εργασίας χρησιμοποιώντας το όνομα του φύλλου εργασίας και την επέκταση `.xlsx`.

* `newwb.saveas filename`: Αποθηκεύει το νέο βιβλίο εργασίας με το καθορισμένο όνομα αρχείου.

* `newwb.close`: Κλείνει το πρόσφατα δημιουργημένο βιβλίο εργασίας.

4. Εκτελέστε τη μακροεντολή:

* Πατήστε alt + f11 Για να επιστρέψετε στο φύλλο του Excel.

* Μεταβείτε στο Developer> Macros .

* Επιλέξτε τα SplitworkSheets μακροεντολή και κάντε κλικ στο Εκτελέστε .

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

Πρόσθετες σημειώσεις:

* Προσαρμόστε τη μορφή αρχείου: Μπορείτε να τροποποιήσετε τη μεταβλητή `αρχείου 'για να συμπεριλάβετε πρόσθετες πληροφορίες, όπως ημερομηνία ή ώρα, στα αποθηκευμένα ονόματα αρχείων.

* Αποθηκεύστε σε ένα συγκεκριμένο φάκελο: Μπορείτε να καθορίσετε έναν διαφορετικό φάκελο για να αποθηκεύσετε τα νέα βιβλία εργασίας αλλάζοντας τη μεταβλητή `αρχείου '.

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