Σε αυτό το άρθρο, θα σας δείξουμε 5 μέθοδοι χρήσης Excel VBA στο save και close Βιβλίο εργασίας Καθώς ο χρόνος είναι πολύ πολύτιμος, μπορούμε να εξοικονομήσουμε πολύ χρόνο παραλείποντας τις τετριμμένες εργασίες χρησιμοποιώντας Excel VBA . Επιπλέον, έχουμε λάβει ένα σύνολο δεδομένων που αποτελείται από 3 στήλες : " Όνομα ", " Γεννημένος ", και " Τελευταίο έργο ". Αυτό το σύνολο δεδομένων αντιπροσωπεύει 6 το έτος γέννησης των ανθρώπων και τις τελευταίες πληροφορίες για την ταινία τους.

Κατεβάστε το βιβλίο ασκήσεων

VBA για αποθήκευση και κλείσιμο του Workbook.xlsm

5 παραδείγματα για την αποθήκευση και το κλείσιμο του βιβλίου εργασίας χρησιμοποιώντας την VBA στο Excel

1. Αποθήκευση και κλείσιμο ενεργού βιβλίου εργασίας με χρήση του Excel VBA

Για την πρώτη μέθοδο, θα save και close το Ενεργό βιβλίο εργασίας χρησιμοποιώντας το Μακροεντολή VBA . Θα φέρουμε το Ενότητα VBA παράθυρο, πληκτρολογήστε τον κώδικά μας και στη συνέχεια εκτελέστε τον κώδικα για να επιτύχουμε τον στόχο μας. Χωρίς περαιτέρω καθυστέρηση, ας περάσουμε στη διαδικασία βήμα προς βήμα.

Βήματα:

Πριν, πληκτρολογώντας τον κώδικά μας πρέπει να εμφανίσουμε το Ενότητα VBA . Για να το κάνετε αυτό -

• Πρώτον, από το Προγραμματιστής tab>>>> select Visual Basic .

Εναλλακτικά, μπορείτε να πατήσετε ALT + F11 για να το κάνει και αυτό. Το " Microsoft Visual Basic για την εφαρμογή " θα εμφανιστεί μετά από αυτό.

• Δεύτερον, από Εισαγωγή >>> επιλέξτε Ενότητα .

Εδώ, θα πληκτρολογήσουμε τον κώδικά μας.

• Τρίτον, πληκτρολογήστε τον ακόλουθο κώδικα μέσα στο Ενότητα .

 Sub Save_and_Close_Active_Workbook() ActiveWorkbook.Close SaveChanges:=True End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία Save_and_Close_Active_Workbook (Αποθήκευση_και_κλείσιμο_ενεργού_βιβλίου εργασίας) .
• Τότε, αναφερόμαστε στην τρέχουσα Βιβλίο εργασίας ως ActiveWorkbook .
• Μετά από αυτό, χρησιμοποιώντας το Κλείστε το μέθοδο είμαστε κλείσιμο το αρχείο μας.
• Τέλος, έχουμε ορίσει SaveChanges στο Αλήθεια , το οποίο θα σώσει το Βιβλίο εργασίας στο κλείσιμο .

Τώρα, θα εκτελέσουμε τον κώδικά μας.

• Πρώτον, Αποθήκευση αυτό το Ενότητα .
• Δεύτερον, κάντε κλικ μέσα στον κώδικά μας.
• Τέλος, πατήστε το πλήκτρο Εκτέλεση κουμπί.

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

Διαβάστε περισσότερα: Πώς να αποθηκεύσετε μια μακροεντολή για όλα τα βιβλία εργασίας στο Excel (με εύκολα βήματα)

2. Excel VBA για αποθήκευση και κλείσιμο συγκεκριμένου βιβλίου εργασίας

Για τη δεύτερη μέθοδο, θα χρησιμοποιήσουμε save και close ένα συγκεκριμένο Βιβλίο εργασίας χρησιμοποιώντας ένα άλλο VBA Εδώ, έχουμε ανοίξει δύο Βιβλία εργασίας και θα save και close το πρώτο Βιβλίο εργασίας από την αριστερή πλευρά.

Βήματα:

• Πρώτον, όπως φαίνεται στη μέθοδο 1 , εμφανίζει το Ενότητα VBA .
• Δεύτερον, πληκτρολογήστε αυτόν τον κώδικα μέσα στο Ενότητα .

 Sub Save_and_Close_Specific_Workbook() Workbooks("Macro Save and Close.xlsm").Close SaveChanges:=True End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία Αποθήκευση_και_κλείσιμο_συγκεκριμένου_βιβλίου_εργασίας .
• Τότε, αναφερόμαστε στην πρώτη μας Βιβλίο εργασίας μέσα στο Αντικείμενο βιβλία εργασίας .
• Μετά από αυτό, χρησιμοποιώντας το Κλείστε το μέθοδο είμαστε κλείσιμο το αρχείο μας.
• Τέλος, έχουμε ορίσει SaveChanges στο Αλήθεια , το οποίο θα σώσει το Βιβλίο εργασίας στο κλείσιμο .

• Τρίτον, όπως φαίνεται στη μέθοδο 1 , εκτελέστε τον κώδικα.

Μετά από αυτό, θα δούμε ότι η πρώτη Βιβλίο εργασίας είναι κλειστό και μόνο το δεύτερο Βιβλίο εργασίας είναι ανοιχτό . Επομένως, σας δείξαμε μια ακόμη μέθοδο εξοικονόμηση και κλείσιμο a Βιβλίο εργασίας .

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

3. Αποθήκευση και κλείσιμο συγκεκριμένου βιβλίου εργασίας σε συγκεκριμένο φάκελο

Για την τρίτη μέθοδο, θα save και close a συγκεκριμένο βιβλίο εργασίας σε ένα φάκελος χρησιμοποιώντας το Excel VBA .

Βήματα:

• Πρώτον, όπως φαίνεται στη μέθοδο 1 , εμφανίζει το Ενότητα VBA .
• Δεύτερον, πληκτρολογήστε αυτόν τον κώδικα μέσα στο Ενότητα .

 Sub Save_and_Close_Workbook_in_Specific_Folder() Workbooks("Macro Save and Close.xlsm").SaveAs _ Filename:="C:\Users\Rafi\OneDrive\Desktop\Exceldemy\Macro Save and Close.xlsm" Workbooks("Macro Save and Close.xlsm").Close End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία Save_and_Close_Workbook_in_Specific_Folder (Αποθήκευση_και_κλείσιμο_βιβλίου_εργασίας_σε_συγκεκριμένο_φάκελο) .
• Μετά από αυτό, χρησιμοποιώντας το SaveAs μέθοδο είμαστε εξοικονόμηση το αρχείο μας σε μια συγκεκριμένη θέση.
• Στη συνέχεια, διατηρούμε το όνομα αρχείου ίδιο με το αρχικό Βιβλίο εργασίας .
• Τέλος, εμείς close το μας Βιβλίο εργασίας .

• Τρίτον, όπως φαίνεται στη μέθοδο 1 , εκτελέστε τον κώδικα.

Μετά από αυτό, θα save το μας Βιβλίο εργασίας μέσα στην καθορισμένη θέση του φακέλου μας και close Έτσι, σας δείξαμε μια άλλη μέθοδο εξοικονόμηση και κλείσιμο του βιβλίου εργασίας σε ένα συγκεκριμένος φάκελος χρησιμοποιώντας το VBA .

Διαβάστε περισσότερα: Μακροεντολή Excel VBA για την αποθήκευση PDF σε συγκεκριμένο φάκελο (7 ιδανικά παραδείγματα)

Παρόμοιες αναγνώσεις

• Excel VBA: Αποθήκευση βιβλίου εργασίας χωρίς προτροπή (με εύκολα βήματα)
• [Διορθώθηκε!] Γιατί το Excel δεν αποθηκεύει τη μορφοποίησή μου; (7 πιθανοί λόγοι)
• Πώς να αποθηκεύσετε το Excel ως τοπίο PDF (με γρήγορα βήματα)
• Excel VBA για να αποθηκεύσετε ως αρχείο χρησιμοποιώντας τη διαδρομή από το κελί (με γρήγορα βήματα)
• [Διορθωμένο!] Το αρχείο CSV του Excel δεν αποθηκεύει τις αλλαγές (6 πιθανές λύσεις)

4. Εισαγωγή κουμπιού για την αποθήκευση και το κλείσιμο του βιβλίου εργασίας στο Excel

Για την τέταρτη μέθοδο, θα δημιουργήσουμε ένα Κουμπί VBA για να κλείσετε και να αποθηκεύσετε το βιβλίο εργασίας στο Excel.

Βήματα:

• Πρώτον, όπως φαίνεται στη μέθοδο 1 , εμφανίζει το Ενότητα VBA .
• Δεύτερον, πληκτρολογήστε αυτόν τον κώδικα μέσα στο Ενότητα .

 Sub Button_Click_Save_and_Close_Workbook() ThisWorkbook.Save Application.Quit End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία Κουμπί_Click_Save_and_Close_Workbook .
• Μετά από αυτό, χρησιμοποιώντας το Αποθήκευση μέθοδο είμαστε εξοικονόμηση το Βιβλίο Εργασίας μας
• Τέλος, εμείς close το μας Βιβλίο εργασίας χρησιμοποιώντας το Σταματήστε το μέθοδος.

Τώρα, θα εισάγουμε το VBA κουμπί εδώ.

• Πρώτον, από το Προγραμματιστής καρτέλα>>>, Εισαγωγή >>> επιλέξτε Κουμπί (Έλεγχος φόρμας) .

• Στη συνέχεια, ο δρομέας του ποντικιού θα αλλάξει και θα σύρει ένα πλαίσιο μέσα στο Βιβλίο εργασίας .

Μετά από αυτό, το Παράθυρο διαλόγου Assign Macro θα εμφανιστεί.

• Στη συνέχεια, επιλέξτε " Κουμπί_Click_Save_and_Close_Workbook ".
• Μετά από αυτό, πατήστε OK .

Στη συνέχεια, θα δούμε Κουμπί 1 στο Βιβλίο εργασίας .

• Τέλος, κάντε κλικ στο κουμπί.

Αυτό θα save και close το μας Βιβλίο εργασίας .

Διαβάστε περισσότερα: Κώδικας VBA για το κουμπί αποθήκευσης στο Excel (4 παραλλαγές)

5. Αποθήκευση και κλείσιμο όλων των ανοικτών βιβλίων εργασίας με εφαρμογή του Excel VBA

Σε αυτή την τελευταία μέθοδο, θα αποθηκεύσουμε και θα κλείσουμε όλα τα ανοιχτά Βιβλία εργασίας . Αυτή τη φορά, έχουμε τα ίδια δύο Βιβλία εργασίας όπως στη μέθοδο 3 , ωστόσο, αυτή τη φορά, θα save και close και οι δύο Βιβλία εργασίας Εδώ, θα χρησιμοποιήσουμε ο βρόχος For Next να περάσετε από το Βιβλία εργασίας .

Βήματα:

• Πρώτον, όπως φαίνεται στη μέθοδο 1 , εμφανίζει το Ενότητα VBA .
• Δεύτερον, πληκτρολογήστε αυτόν τον κώδικα μέσα στο Ενότητα .

 Sub CloseAndSaveOpenWorkbooks() Dim z As Workbook With Application For Each z In Workbooks With z If Not z.ReadOnly Then .Save End If If .Name ThisWorkbook.Name Then .Close End If End With End With Next z .Quit End With End With End Sub 

Ανάλυση κώδικα VBA

• Πρώτον, καλούμε το Υποδιαδικασία CloseAndSaveOpenWorkbooks .
• Στη συνέχεια, χρησιμοποιούμε ένα Για τον επόμενο βρόχο για να περάσετε από όλα τα Βιβλία εργασίας .
• Μετά από αυτό, χρησιμοποιώντας το Αποθήκευση μέθοδο είμαστε εξοικονόμηση τα αρχεία μας.
• Στη συνέχεια, εμείς close όλα τα Βιβλία εργασίας εκτός από το τρέχον μας Βιβλίο εργασίας .
• Τέλος, έχουμε κλειστό το πρωτότυπο Βιβλίο εργασίας χρησιμοποιώντας το Σταματήστε το ιδιοκτησία.

• Τρίτον, όπως φαίνεται στη μέθοδο 1 , εκτελέστε τον κώδικα.

Ως εκ τούτου, θα save και close τα δύο Βιβλία εργασίας . Μπορούμε να δούμε το ημερομηνία τροποποίησης είναι η ίδια για τις δύο Βιβλία εργασίας Εν κατακλείδι, δείξαμε 5 διαφορετικό Μακροεντολές Excel VBA στο save και close Βιβλίο εργασίας .

Διαβάστε περισσότερα: Πώς να αποθηκεύσετε μακροεντολές σε προσωπικό βιβλίο εργασίας μακροεντολών;

Συμπέρασμα

Σας δείξαμε 5 γρήγορη και εύκολη κατανόηση Excel VBA στο save και close Βιβλίο εργασίας Εάν αντιμετωπίζετε οποιοδήποτε πρόβλημα, μπορείτε να σχολιάσετε παρακάτω. Επιπλέον, μπορείτε να επισκεφθείτε την ιστοσελίδα μας Exceldemy για περισσότερα Σχετικό με το Excel Ευχαριστώ για την ανάγνωση, συνεχίστε να διαπρέπετε!