Κλείστε ένα βιβλίο εργασίας χρησιμοποιώντας το VBA στο Microsoft Excel

Σε αυτό το άρθρο θα μάθουμε πώς να υπερέχετε σε κλειστό βιβλίο εργασίας χρησιμοποιώντας το VBA στο Microsoft Excel 2010.

Αφού η μακροεντολή / κώδικας VBA έχει εκτελέσει όλες τις απαιτούμενες ενέργειες, θα θέλατε η μακροεντολή είτε να αποθηκεύσει το αρχείο είτε να παραλείψει την αποθήκευσή του. Εδώ είναι οι επιλογές που μπορείτε να ορίσετε στον κώδικα ενώ του ζητάτε να κλείσει το αρχείο. Η μέθοδος Κλείσιμο και Άνοιγμα στο VBA μπορεί να χρησιμοποιηθεί για το κλείσιμο και το άνοιγμα βιβλίων εργασίας.

Εάν θέλετε ο κωδικός να κλείνει το αρχείο χωρίς να αποθηκεύσετε τις αλλαγές - χρησιμοποιήστε αυτήν τη γραμμή στο τέλος του κώδικα ή όπου χρειάζεται -

ActiveWorkbook.Close (False) ή ActiveWorkbook.Close False ή ActiveWorkbook.CloseSaveChanges: = FALSE

Δείτε τον κώδικα σε αυτήν την εικόνα παρακάτω. Για να αντιγράψετε τον κώδικα, πατήστε Alt + F11 στο πληκτρολόγιο ενώ βεβαιώνεστε ότι το φύλλο excel είναι ανοιχτό. Στη συνέχεια, κάντε δεξί κλικ στα αντικείμενα του Microsoft Excel και επιλέξτε Εισαγωγή. Στη συνέχεια, κάντε κλικ στην ενότητα. Αντιγράψτε τον κωδικό που δίνεται κάτω από την εικόνα -

Επιλογή ρητή

Υπομακρο1 ()

ActiveWorkbook.Close False

Τέλος υπο

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

Εάν θέλετε ο κωδικός να αποθηκεύει τις αλλαγές ενώ κλείνετε το αρχείο, χρησιμοποιήστε το

ActiveWorkbook.Close (True) ή ActiveWorkbook.Close True ή ActiveWorkbook.Close SaveChanges: = TRUE

Εδώ είναι ο κωδικός -

Επιλογή ρητή

Υπο macro1 ()

ActiveWorkbook.Close True

Τέλος υπο

Ωστόσο, εάν θέλετε ο χρήστης να αποφασίσει, τότε απλά πρέπει να εισαγάγετε

ActiveWorkbook. Κλείσιμο

Εδώ είναι ο κωδικός -

Επιλογή ρητή

Υπο macro1 ()

ActiveWorkbook. Κλείσιμο

Τέλος υπο

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

Βιβλία εργασίας ("File1.XLS"). Κλείσιμο SaveChanges: = Λάθος

Αυτό το παράδειγμα θα κλείσει το File1.xls και θα απορρίψει τυχόν αλλαγές που έχουν γίνει σε αυτό.

Συμπέρασμα:

Εάν το "Application.DisplayAlerts" έχει οριστεί σε False, δεν θα εμφανιστεί κανένα αναδυόμενο παράθυρο και το βιβλίο εργασίας θα κλείσει απευθείας χωρίς να σας ζητηθεί να αποθηκεύσετε.

Αυτό το αναδυόμενο παράθυρο θα εμφανιστεί εάν το "Application.DisplayAlerts" δεν έχει οριστεί σε False οπουδήποτε πριν από το excel vba Activeworkbook.Κλείστε τη γραμμή κώδικα.

Έτσι, ακόμη και αν ο κώδικας απαιτεί να απενεργοποιήσετε τις ειδοποιήσεις, βεβαιωθείτε ότι το "Application.DisplayAlerts = True" υπάρχει πριν από τη γραμμή Activeworkbook.Close.

Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στοιστοσελίδα email