Αυτό το σεμινάριο θα επιδείξει διαφορετικές μεθόδους για τη δημιουργία ενός νέου βιβλίου εργασίας χρησιμοποιώντας VBA.
Δημιουργία νέου βιβλίου εργασίας
Για να δημιουργήσετε ένα νέο βιβλίο εργασίας, χρησιμοποιήστε το Τετράδια εργασίας. Προσθήκη:
| 1 | Τετράδια εργασίας. Προσθήκη |
Το πρόσφατα προστιθέμενο τετράδιο εργασίας είναι τώρα το ActiveWorkbook.
Μπορείτε να το δείτε χρησιμοποιώντας αυτόν τον κωδικό:
| 123456 | Sub AddWB ()Τετράδια εργασίας. ΠροσθήκηMsgBox ActiveWorkbook.NameΤέλος υπο |
Δημιουργία νέου βιβλίου εργασίας & Αντιστοίχιση σε αντικείμενο
Μπορείτε να χρησιμοποιήσετε το αντικείμενο ActiveWorkbook για να ανατρέξετε στο νέο βιβλίο εργασίας. Χρησιμοποιώντας αυτό, μπορείτε να αντιστοιχίσετε το νέο βιβλίο εργασίας σε μια μεταβλητή αντικειμένου:
| 1234 | Dim wb ως τετράδιο εργασίαςΤετράδια εργασίας. ΠροσθήκηΡύθμιση wb = ActiveWorkbook |
Όμως, είναι καλύτερο / ευκολότερο να εκχωρήσετε το βιβλίο εργασίας αμέσως σε μια μεταβλητή όταν δημιουργηθεί το βιβλίο εργασίας:
| 123 | Dim wb Ως βιβλίο εργασίαςΡύθμιση wb = Τετράδια εργασίας. Προσθήκη |
Τώρα μπορείτε να αναφέρετε το νέο βιβλίο εργασίας με το όνομα της μεταβλητής.
| 1 | MsgBox wb. Όνομα |
Δημιουργία νέου βιβλίου εργασίας & Αποθήκευση
Μπορείτε επίσης να δημιουργήσετε ένα νέο βιβλίο εργασίας και να το αποθηκεύσετε αμέσως:
| 1 | Workbooks.Add.SaveAs Όνομα αρχείου: = "NewWB" |
Αυτό θα αποθηκεύσει το βιβλίο εργασίας ως αρχείο .xlsx στον προεπιλεγμένο φάκελό σας (π.χ. Τα έγγραφά μου). Αντ 'αυτού, μπορείτε να προσαρμόσετε τα SaveAs με τον οδηγό μας για την αποθήκευση βιβλίων εργασίας.
Τώρα μπορείτε να ανατρέξετε στο βιβλίο εργασίας με το όνομά του:
| 1 | Τετράδια εργασίας ("NewWB.xlsx"). Ενεργοποιήστε |
Αυτός ο κωδικός θα ενεργοποιήσει το "NewWB.xlsx".
Δημιουργία νέου βιβλίου εργασίας & προσθήκη φύλλων
Αφού δημιουργήσετε ένα βιβλίο εργασίας, μπορείτε να το επεξεργαστείτε. Ακολουθεί μόνο ένα παράδειγμα για να προσθέσετε δύο φύλλα στο νέο βιβλίο εργασίας (αν υποθέσουμε ότι είναι το ActiveWorkbook):
| 1 | ActiveWorkbook.Worksheets.Add Count: = 2 |
