Στο Excel μπορούμε να καθορίσουμε αν το βιβλίο εργασίας είναι κλειστό ή ανοιχτό μέσω κώδικα VBA. Παρακάτω είναι ο κώδικας και η διαδικασία VBA που πρέπει να επικολλήσετε στη μονάδα κώδικα του αρχείου.
1. Ανοίξτε το Excel
2. Πατήστε ALT + F11
3. Θα ανοίξει ο VBA Editor
4. Κάντε κλικ οπουδήποτε στο παράθυρο έργου
5. Κάντε κλικ στο Εισαγωγή
6. Κάντε κλικ στην ενότητα
7. Στο παράθυρο κωδικού, αντιγράψτε και επικολλήστε τον παρακάτω κωδικό
Function WorkbookOpen (WorkBookName As String) As Boolean'επιστρέφει TRUE εάν το βιβλίο εργασίας είναι ανοιχτό
WorkbookOpen = Λάθος
Σφάλμα GoToWorkBookNotOpen
Εάν Len (Application.Webbooks (WorkBookName). Name)> 0 Τότε
WorkbookOpen = True
Λειτουργία εξόδου
Τέλος εαν
WorkBookNotOpen:
Λειτουργία Τέλους
8. Μόλις γίνει επικόλληση, μεταβείτε στο αρχείο Excel
9. Επιλέξτε το κελί A1
10. Τύπος = εργασία
11. Μπορείτε να δείτε ότι το = workbookopen είναι ορατό σαν τύπος
12. Αρχικά δεν ήταν εκεί
13. Γράψτε τον τύπο = WorkbookOpen ("test1.xlsx")
14. Εδώ το βιβλίο εργασίας "test1.xlsx" χρησιμοποιείται ως παράδειγμα. Αυτό το αρχείο δεν είναι ανοιχτό.
15. Δεδομένου ότι αυτό το αρχείο δεν είναι ανοιχτό, θα εμφανιστεί ως "FALSE"
16. Επιλέξτε το κελί A3
17. Γράψτε τον τύπο = WorkbookOpen ("προσδιορίστε-αν-ένα-βιβλίο-είναι-ήδη-ανοιχτό-χρησιμοποιώντας-vba-in-microsoft-excel.xlsx")
18. Εδώ το βιβλίο εργασίας "προσδιορίστε-αν-ένα-βιβλίο-είναι-ήδη-ανοιχτό-χρησιμοποιώντας-vba-in-microsoft-excel.xlsx" χρησιμοποιείται ως παράδειγμα. Αυτό το αρχείο είναι ανοιχτό.
19. Καθώς αυτό το αρχείο είναι ανοιχτό, θα εμφανίζεται ως "TRUE"
Με αυτόν τον τρόπο μπορούμε να καθορίσουμε εάν το βιβλίο εργασίας είναι ήδη ανοιχτό ή δεν χρησιμοποιεί VBA στο Microsoft Excel 2010 και το Microsoft Excel 2013.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στο ιστοσελίδα email