Αυτό το σεμινάριο θα εξηγήσει τι είναι μια αναφορά και πώς να τα χρησιμοποιήσετε στο VBA Editor
Εάν εργάζεστε στο Excel VBA και θέλετε να εργαστείτε με αντικείμενα που διατίθενται σε διαφορετική εφαρμογή - όπως το Microsoft Word για παράδειγμα, πρέπει να προσθέσετε μια αναφορά στη βιβλιοθήκη αντικειμένων της συγκεκριμένης εφαρμογής.
Προσθήκη αναφοράς στο έργο σας VBA
Στο παράθυρο VBE, κάντε κλικ στο Εργαλεία μενού και στη συνέχεια κάντε κλικ Βιβλιογραφικές αναφορές…
Κάντε κύλιση προς τα κάτω στη λίστα αναφορών για να βρείτε αυτήν που θέλετε να χρησιμοποιήσετε. Σε αυτήν την περίπτωση, η βιβλιοθήκη αντικειμένων του Microsoft Word 16.0.
Κάντε κλικ ΕΝΤΑΞΕΙ.
Προβολή της Βιβλιοθήκης Αντικειμένων
Αφού προσθέσετε μια αναφορά στη βάση δεδομένων, μπορείτε να χρησιμοποιήσετε τα αντικείμενα που σχετίζονται με την εφαρμογή στην οποία έχετε αναφερθεί. ο ΑΝΤΙΚΕΙΜΕΝΗ ΒΙΒΛΙΟΘΗΚΗ για τη συγκεκριμένη εφαρμογή είναι τώρα διαθέσιμη για χρήση στο Excel.
Κάνε κλικ στο Πρόγραμμα περιήγησης αντικειμένων κουμπί στο Πρότυπο γραμμή εργαλείων.
Ή
Κάνε κλικ στο Θέα μενού και επιλέξτε Πρόγραμμα περιήγησης αντικειμένων.
Επιλέγω Λέξη από την αναπτυσσόμενη λίστα
Τώρα θα μπορείτε να δείτε όλα τα αντικείμενα καθώς και τις μεθόδους και τις ιδιότητές τους που μπορείτε τώρα να χρησιμοποιήσετε στον κώδικα VBA του Excel.
Χρήση της αναφοράς σε μια διαδικασία Excel
Αφού δημιουργήσετε μια αναφορά, μπορείτε να χρησιμοποιήσετε τα αντικείμενα από τη βιβλιοθήκη αντικειμένων στον κώδικα VBA στο Excel. Η παρακάτω διαδικασία θα δημιουργήσει ένα νέο έγγραφο Word και θα κάνει το Word ορατό στην οθόνη σας.
| 123456789101112 | Sub CreateWordDocument ()Dim wdApp ως Word. ΕφαρμογήDim wdDoc As Word.Document«ανοιχτή λέξηΟρισμός wdApp = Νέο Word.Application«Δημιουργήστε ένα έγγραφοΟρισμός wdDoc = wdApp.Documents.Add«πληκτρολογήστε κάποια πράγματαwdApp.Selection.TypeText "Καλημέρα Melanie!"«εμφάνιση λέξης στην οθόνηwdApp.Visible = TrueΤέλος υπο |
Early vs Late Binding
Η προσθήκη μιας αναφοράς σε μια Βιβλιοθήκη αντικειμένων στο έργο σας είναι γνωστή ως Early BindingΤο Αυτό καθιστά διαθέσιμα όλα τα αντικείμενα από αυτήν τη Βιβλιοθήκη αντικειμένων για προγραμματική χρήση στο VBA Project σας. Όπως έχετε ήδη προσθέσει μια αναφορά στη Βιβλιοθήκη αντικειμένων του Microsoft Word στην παραπάνω διαδικασία, είμαστε σε θέση να αναφερθούμε απευθείας στην εφαρμογή Word και στο έγγραφο Word όταν δηλώνουμε τις μεταβλητές wdApp και wdDoc χρησιμοποιώντας το Νέος μέθοδος.
Ωστόσο, μπορείτε ακόμα να χρησιμοποιήσετε τη Βιβλιοθήκη αντικειμένων μιας διαφορετικής εφαρμογής χωρίς να προσθέσετε μια αναφορά σε αυτήν στον κώδικά σας. Θα χρειαστεί να δηλώσετε τις μεταβλητές wdApp και wdDoc ως αντικείμενα και στη συνέχεια θα πρέπει να χρησιμοποιήσετε το CreateObject μέθοδο και όχι το Νέος μέθοδο για τη δημιουργία μιας νέας παρουσίας του Microsoft Word.
| 123456789101112 | Sub CreateWordDocument ()Dim wdApp ως αντικείμενοDim wdDoc ως αντικείμενο«ανοιχτή λέξηΟρισμός wdApp = CreateObject ("Word.Application")«Δημιουργήστε ένα έγγραφοΟρισμός wdDoc = wdApp.Documents.Add"πληκτρολογήστε κάποιο κείμενοwdApp.Selection.TypeText Text: = "Καλημέρα Melanie!"«εμφάνιση λέξης στην οθόνηwdApp.Visible = TrueΤέλος υπο |
Η χρήση του Late Binding είναι χρήσιμη εάν το πρόγραμμα που δημιουργείτε πρόκειται να χρησιμοποιηθεί σε πολλούς υπολογιστές. Εάν ένας χρήστης έχει διαφορετική έκδοση του Microsoft Office από εσάς, ενδέχεται να μην έχει το σωστό αρχείο στον υπολογιστή του για τη Βιβλιοθήκη αντικειμένων. Για παράδειγμα, εάν χρησιμοποιείτε την έκδοση Excel 16, αλλά χρησιμοποιούν την έκδοση Excel 15, ενδέχεται να καταλήξουν σε αναφορά που λείπει.
Μπορείτε εύκολα να το διορθώσετε αφαιρώντας το τσιμπούρι δίπλα στην αναφορά που λείπει και, στη συνέχεια, μετακινηθείτε προς τα κάτω για να βρείτε τη σωστή αναφορά και επιλέγοντας αυτό.
