Αυτό το άρθρο θα σας δείξει πώς να χρησιμοποιήσετε τη μέθοδο Δημιουργία αντικειμένου στο VBA.
Το VBA είναι μια γλώσσα με αντικείμενο τον προσανατολισμό - χρησιμοποιεί διαδικασίες για τον έλεγχο και τη δημιουργία αντικειμένων.
Δημιουργία αντικειμένου
Μπορούμε να χρησιμοποιήσουμε τη μέθοδο Δημιουργία αντικειμένου για να δημιουργήσουμε ένα αντικείμενο σε μια εφαρμογή του Microsoft Office. Για παράδειγμα, εάν γράφουμε κώδικα VBA στο Excel και επιθυμούμε να ανοίξουμε ένα αντίγραφο του Word, μπορούμε να χρησιμοποιήσουμε τη μέθοδο Δημιουργία αντικειμένου για να δημιουργήσουμε μια νέα παρουσία του Word.
Για παράδειγμα:
| 12345 | Sub CreateWordInstance ()Dim wdApp ως αντικείμενοΟρισμός wdApp = CreateObject ("Word.Application")wdApp.Visible = TrueΤέλος υπο |
Ομοίως, μπορούμε να δημιουργήσουμε μια νέα παρουσία του PowerPoint ή της Access.
| 12345 | Sub CreatePowerPointApplicationDim ppApp ως αντικείμενοΟρισμός ppApp = CreateObject ("PowerPoint.Application")ppApp.Visible = TrueΤέλος υπο |
Μπορούμε επίσης να χρησιμοποιήσουμε τη δημιουργία αντικειμένου για τη δημιουργία αντικειμένων διαφορετικών από το αντικείμενο εφαρμογής. Μπορούμε να το χρησιμοποιήσουμε για να δημιουργήσουμε ένα φύλλο Excel για παράδειγμα.
| 1234567 | Sub CreateExcelSheet ()Dim xlSheet As ObjectΟρισμός xlSheet = CreateObject ("Excel.Sheet")xlSheet.Application.Visible = TruexlSheet.Application.Range ("A2") = "Καλημέρα"Ορισμός xlSheet = ΤίποταΤέλος υπο |
Ωστόσο, αυτό δημιουργεί πραγματικά μια νέα παρουσία του Excel - δεν δημιουργεί το φύλλο στην παρουσία που είναι ήδη ανοιχτή. Για το λόγο αυτό, πρέπει να ορίσουμε την Εφαρμογή του νέου φύλλου (δηλ .: τη νέα παρουσία του Excel) σε Ορατή για να βλέπουμε το αντικείμενο.
Σε όλα τα παραπάνω παραδείγματα, χρησιμοποιούμε Late Binding - ως εκ τούτου δηλώνουμε τις μεταβλητές ως Αντικείμενα. Μπορούμε επίσης να χρησιμοποιήσουμε το Early Binding ορίζοντας μια αναφορά στο Word ή στο PowerPoint στο VBA Project μας και στη συνέχεια γράφοντας την Υποδιαδικασία όπως φαίνεται παρακάτω. Για να κατανοήσετε περισσότερα για το Late and Early binding, κάντε κλικ εδώ.
Πρώτον, για Early Binding, στο VBE, ορίσαμε μια αναφορά στο Microsoft Word.
Στο Μενού γραμμή, επιλέξτε Εργαλεία> Αναφορές και μετακινηθείτε προς τα κάτω για να βρείτε την αναφορά στο Βιβλιοθήκη αντικειμένων Microsoft Word 16.0.
Βεβαιωθείτε ότι η αναφορά είναι επιλεγμένη και, στη συνέχεια, κάντε κλικ ΕΝΤΑΞΕΙ.
ΣΗΜΕΙΩΣΗ: η έκδοση μπορεί να μην είναι 16.0, όλα εξαρτώνται από την έκδοση του Microsoft Office που εκτελείτε στον υπολογιστή σας!
Τώρα, δηλώνουμε το αντικείμενο χρησιμοποιώντας την Early Binding - αυτό σημαίνει ότι, αντί να δηλώνουμε το wdApp ως αντικείμενο, το δηλώνουμε ως Word. Εφαρμογή. Ο υπόλοιπος κώδικας είναι ο ίδιος με αυτόν που χρησιμοποιήσαμε παραπάνω Late Binding παραπάνω.
| 12345 | Sub CreateWordInstance ()Dim wdApp ως νέο Word. ΕφαρμογήΟρισμός wdApp = CreateObject ("Word.Application")wdApp.Visible = TrueΤέλος υπο |
