ο Κλείσε και Ανοιχτή μέθοδος σε Excel VBA μπορεί να χρησιμοποιηθεί για το κλείσιμο και το άνοιγμα βιβλίων εργασίας. Θυμηθείτε, η συλλογή βιβλίων εργασίας περιέχει όλα τα αντικείμενα του βιβλίου εργασίας που είναι ανοιχτά αυτήν τη στιγμή.
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Η γραμμή κώδικα παρακάτω κλείνει close-open.xlsm.
Τετράδια εργασίας ("κλείσιμο-άνοιγμα.xlsm"). Κλείσιμο
2. Η παρακάτω γραμμή κώδικα κλείνει το πρώτο βιβλίο εργασίας που ανοίξατε/δημιουργήσατε.
Τετράδια εργασίας (1). Κλείσιμο
3. Η παρακάτω γραμμή κώδικα κλείνει το ενεργό βιβλίο εργασίας.
ActiveWorkbook. Κλείσιμο
4. Η παρακάτω γραμμή κώδικα κλείνει όλα τα βιβλία εργασίας που είναι ανοιχτά αυτήν τη στιγμή.
Τετράδια εργασίας. Κλείσιμο
5. Η παρακάτω γραμμή κωδικού ανοίγει το sales.xlsx.
Workbooks.Open ("sales.xlsx")
Σημείωση: μπορείτε να ανοίξετε μόνο το sales.xlsx χωρίς να καθορίσετε τη διαδρομή του αρχείου εάν είναι αποθηκευμένο στην προεπιλεγμένη θέση αρχείου. Για να αλλάξετε την προεπιλεγμένη θέση αρχείου, στην καρτέλα Αρχείο, κάντε κλικ στην επιλογή Επιλογές, Αποθήκευση.
6. Μπορείτε επίσης να χρησιμοποιήσετε τη μέθοδο GetOpenFilename του αντικειμένου Εφαρμογή για να εμφανίσετε το τυπικό παράθυρο διαλόγου Άνοιγμα.
Dim MyFile As String
MyFile = Application.GetOpenFilename ()
7. Επιλέξτε ένα αρχείο και κάντε κλικ στο Άνοιγμα.
Σημείωση: Το GetOpenFilename δεν ανοίγει πραγματικά το αρχείο.
8. Στη συνέχεια, μπορείτε να ανοίξετε το βιβλίο εργασίας ως συνήθως.
Τετράδια εργασίας. Άνοιγμα (MyFile)
