Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Δημιουργεί και επιστρέφει μια αναφορά σε ένα αντικείμενο ActiveX.
Σύνταξη
CreateObject ( class [, servername] )
Η σύνταξη της συνάρτησης CreateObject περιλαμβάνει τα παρακάτω ορίσματα:
|
Όρισμα |
Περιγραφή |
|
κλάση |
Υποχρεωτικό. Μεταβλητή (Συμβολοσειρά). Το όνομα της εφαρμογής και η κλάση του αντικειμένου που θα δημιουργηθεί. |
|
Όνομα_διακομιστή |
Προαιρετικό. Μεταβλητή (Συμβολοσειρά). Το όνομα του διακομιστή δικτύου όπου θα δημιουργηθεί το αντικείμενο. Εάν το όνομα διακομιστή είναι μια κενή συμβολοσειρά (""), χρησιμοποιείται ο τοπικός υπολογιστής. |
Η όρισμα τάξης χρησιμοποιεί το όνομα εφαρμογής σύνταξης.τύπος αντικειμένου και έχει τα εξής τμήματα:
|
Τμήμα |
Περιγραφή |
|
όνομα εφαρμογής |
Υποχρεωτικό. Μεταβλητή (Συμβολοσειρά). Το όνομα της εφαρμογής που παρέχει το αντικείμενο. |
|
Τύπος_αντικειμένου |
Υποχρεωτικό. Μεταβλητή (Συμβολοσειρά). Ο τύπος ή κλάση του αντικειμένου που θα δημιουργηθεί. |
Παρατηρήσεις
Κάθε εφαρμογή που υποστηρίζει αυτοματοποίηση παρέχει τουλάχιστον έναν τύπο αντικειμένου. Για παράδειγμα, μια εφαρμογή επεξεργασίας κειμένου μπορεί να παρέχει ένα αντικείμενο Εφαρμογή , ένα αντικείμενο εγγράφου και ένα αντικείμενο γραμμής εργαλείων .
Για να δημιουργήσετε ένα αντικείμενο ActiveX, αντιστοιχίστε το αντικείμενο που επιστρέφεται από το CreateObject σε ένα μεταβλητή αντικειμένου:
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
' Declare an object variable to hold the object ' reference. Dim as Object causes late binding. Dim ExcelSheet As ObjectSet ExcelSheet = CreateObject("Excel.Sheet")
Σε αυτό το παράδειγμα, θα αυτοματοποιήσουμε ένα αντικείμενο υπολογιστικού φύλλου του Excel μέσα από μια βάση δεδομένων της Access. Αυτός ο κώδικας ξεκινά την εφαρμογή δημιουργώντας το αντικείμενο, σε αυτή την περίπτωση, ένα υπολογιστικό φύλλο του Microsoft Excel. Όταν δημιουργείται ένα αντικείμενο, το αναφέρετε με κώδικα χρησιμοποιώντας τη μεταβλητή αντικειμένου που ορίσατε. Στο παρακάτω παράδειγμα, αποκτάτε πρόσβαση σε ιδιότητες και μεθόδους του νέου αντικειμένου χρησιμοποιώντας τη μεταβλητή αντικειμένου, ExcelSheetκαι άλλα αντικείμενα του Excel, συμπεριλαμβανομένου του αντικειμένου Application και της Cells συλλογής.
' Make Excel visible through the Application object.ExcelSheet.Application.Visible = True' Place some text in the first cell of the sheet.ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"' Save the sheet to C:\test.xls directory.ExcelSheet.SaveAs "C:\TEST.XLS"' Close Excel with the Quit method on the Application object.ExcelSheet.Application.Quit' Release the object variable.Set ExcelSheet = Nothing
Η δήλωση μιας μεταβλητής αντικειμένου με τον όρο As Object δημιουργεί μια μεταβλητή που μπορεί να περιέχει μια αναφορά σε οποιονδήποτε τύπο αντικειμένου. Ωστόσο, η πρόσβαση στο αντικείμενο μέσω της συγκεκριμένης μεταβλητής είναι καθυστερημένη. δηλαδή, η σύνδεση πραγματοποιείται κατά την εκτέλεση του προγράμματος. Για να δημιουργήσετε μια μεταβλητή αντικειμένου που έχει ως αποτέλεσμα πρώιμη βιβλιοδεσία, δηλαδή, σύνδεση κατά τη μεταγλώττιση του προγράμματος, δηλώστε τη μεταβλητή αντικειμένου με ένα συγκεκριμένο αναγνωριστικό κλάσης. Για παράδειγμα, μπορείτε να δηλώσετε και να δημιουργήσετε τις ακόλουθες αναφορές του Excel:
Dim xlApp As Excel.Application Dim xlBook As Excel.WorkbookDim xlSheet As Excel.WorkSheetSet xlApp = CreateObject("Excel.Application")Set xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1)
Η αναφορά μέσω μιας μεταβλητής πρώιμου δέους μπορεί να προσφέρει καλύτερες επιδόσεις, αλλά μπορεί να περιέχει μόνο μια αναφορά στην κλάση που καθορίζεται στην δήλωση.
Μπορείτε να μεταβιβάσετε ένα αντικείμενο που επιστρέφεται από τη συνάρτηση CreateObject σε μια συνάρτηση που αναμένει ένα αντικείμενο ως όρισμα. Για παράδειγμα, ο παρακάτω κώδικας δημιουργεί και διαβιβάζει μια αναφορά σε ένα αντικείμενο Excel.Application:
Call MySub (CreateObject("Excel.Application"))
Μπορείτε να δημιουργήσετε ένα αντικείμενο σε έναν απομακρυσμένο υπολογιστή δικτύου μεταβιβάζοντας το όνομα του υπολογιστή στο όρισμα όνομα διακομιστή του CreateObject. Αυτό το όνομα είναι το ίδιο με το τμήμα Machine Name ενός ονόματος κοινής χρήσης: για ένα κοινόχρηστο στοιχείο με το όνομα "\\MyServer\Public", το όνομα διακομιστή είναι "MyServer".
Σημείωση: Ανατρέξτε στην τεκμηρίωση COM (ανατρέξτε στο Microsoft Developer Network) για πρόσθετες πληροφορίες σχετικά με την εμφάνιση μιας εφαρμογής σε έναν απομακρυσμένο υπολογιστή με δίκτυο. Ίσως χρειαστεί να προσθέσετε ένα κλειδί μητρώου για την εφαρμογή σας.
Ο παρακάτω κώδικας επιστρέφει τον αριθμό έκδοσης μιας παρουσίας του Excel που εκτελείται σε έναν απομακρυσμένο υπολογιστή με το όνομα MyServer:
Dim xlApp As ObjectSet xlApp = CreateObject("Excel.Application", "MyServer")Debug.Print xlApp.Version
Εάν ο απομακρυσμένος διακομιστής δεν υπάρχει ή δεν είναι διαθέσιμος, παρουσιάζεται σφάλμα χρόνου εκτέλεσης.
Σημείωση: Χρησιμοποιήστε το CreateObject όταν δεν υπάρχει τρέχουσα παρουσία του αντικειμένου. Εάν μια παρουσία του αντικειμένου εκτελείται ήδη, ξεκινά μια νέα παρουσία και δημιουργείται ένα αντικείμενο του καθορισμένου τύπου. Για να χρησιμοποιήσετε την τρέχουσα παρουσία ή για να ξεκινήσετε την εφαρμογή και να την λάβετε για τη φόρτωση ενός αρχείου, χρησιμοποιήστε τη συνάρτηση GetObject .
Εάν ένα αντικείμενο έχει καταχωρηθεί ως αντικείμενο μίας παρουσίας, δημιουργείται μόνο μία παρουσία του αντικειμένου, ανεξάρτητα από το πόσες φορές εκτελείται το CreateObject .
Παράδειγμα
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση CreateObject για να ορίσει μια αναφορά (
xlApp
) στο Excel. Χρησιμοποιεί την αναφορά για να αποκτήσει πρόσβαση στην ιδιότητα Visible του Excel και, στη συνέχεια, χρησιμοποιεί τη μέθοδο Τερματισμού του Excel για να την κλείσει. Τέλος, κυκλοφορεί η ίδια η αναφορά.
Dim xlApp As Object ' Declare variable to hold the reference.Set xlApp = CreateObject("excel.application") ' You may have to set Visible property to True ' if you want to see the application.xlApp.Visible = True ' Use xlApp to access Microsoft Excel's ' other objects.xlApp.Quit ' When you finish, use the Quit method to close Set xlApp = Nothing ' the application, then release the reference.
