Fungsi CreateObject

Catatan: Kami ingin secepatnya menyediakan konten bantuan terbaru dalam bahasa Anda. Halaman ini diterjemahkan menggunakan mesin dan mungkin terdapat kesalahan tata bahasa atau masalah keakuratan. Kami bertujuan menyediakan konten yang bermanfaat untuk Anda. Dapatkah Anda memberi tahu kami apakah informasi ini bermanfaat untuk Anda di bagian bawah halaman ini? Berikut artikel dalam bahasa Inggris untuk referensi.

Catatan: Fungsi, metode, objek, atau properti yang diuraikan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft jet berjalan dalam mode Sandbox, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode Sandbox, Cari "mode Sandbox" dalam bantuan.

Membuat dan mengembalikan referensi ke objek ActiveX.

Sintaks

CREATEOBJECT ( kelas [, namaserver] )

Sintaks fungsi CREATEOBJECT memiliki argumen ini:

Argumen

Deskripsi

kelas

Diperlukan. Varian (String). Nama aplikasi dan kelas objek yang akan dibuat.

ServerName

Optional. Varian (String). Nama server jaringan tempat objek akan dibuat. Jika namaserver adalah string kosong (""), komputer lokal digunakan.


Kelas _ z0z_ menggunakan sintaks APPNAME.objecttype dan memiliki bagian berikut ini:

Bagian

Deskripsi

APPNAME

Diperlukan. Varian (String). Nama aplikasi yang menyediakan objek.

objecttype

Diperlukan. Varian (String). Tipe atau _ z0z_ objek yang akan dibuat.


Keterangan

Setiap aplikasi yang mendukung otomatisasi menyediakan setidaknya satu tipe objek. Misalnya, aplikasi pengolah kata mungkin menyediakan objek aplikasi , objek dokumen , dan objek Toolbar .

Untuk membuat objek ActiveX, tetapkan objek yang dikembalikan oleh CREATEOBJECT ke _ z0z_:

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

' Declare an object variable to hold the object 
' reference. Dim as Object causes late binding.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

Dalam contoh ini, kami akan mengotomatisasi objek lembar bentang Excel dari dalam database Access. Kode ini memulai aplikasi yang membuat objek, dalam hal ini, lembar bentang Microsoft Excel. Setelah objek dibuat, Anda mereferensikan dalam kode menggunakan variabel objek yang Anda tentukan. Dalam contoh berikut, Anda mengakses properti dan metode objek baru menggunakan variabel objek, _ z0z_, dan objek Excel lainnya, termasuk _ z1z_ objek dan _ z2z_ Collection.

' 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

Mendeklarasikan variabel objek dengan klausul _ z0z_ membuat variabel yang bisa berisi referensi ke setiap tipe objek. Namun, akses ke objek melalui variabel tersebut adalah batas akhir; Artinya, pengikatan terjadi ketika program Anda dijalankan. Untuk membuat variabel objek yang menghasilkan binding awal, yaitu, mengikat ketika program dikompilasi, Deklarasikan variabel object dengan ID kelas tertentu. Misalnya, Anda dapat mendeklarasikan dan membuat referensi Excel berikut:

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

Referensi melalui variabel yang terikat awal bisa memberikan kinerja yang lebih baik, tapi hanya bisa berisi referensi ke _ z0z_ yang ditentukan di _ z1z_.

Anda bisa melewatkan objek yang dikembalikan oleh fungsi CREATEOBJECT ke fungsi yang mengharapkan objek sebagai argumen. Misalnya, kode berikut membuat dan mengirimkan referensi ke objek Excel. Application:

Call MySub (CreateObject("Excel.Application"))

Anda dapat membuat objek pada komputer jarak jauh dengan melewati nama komputer ke argumen namaserver dari CREATEOBJECT. Nama tersebut sama seperti bagian nama mesin dari nama berbagi: untuk berbagi yang bernama "\\MyServer\Public," namaserver adalah "myserver."

Catatan:  Rujuk ke dokumentasi COM (Lihat Microsoft Developer Network) untuk informasi tambahan tentang membuat aplikasi terlihat pada komputer jarak jauh. Anda mungkin harus menambahkan kunci registri untuk aplikasi Anda.

Kode berikut mengembalikan nomor versi contoh Excel yang berjalan pada komputer jarak jauh yang bernama _ z0z_:

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application", "MyServer")
Debug.Print xlApp.Version

Jika server jarak jauh tidak ada atau tidak tersedia, terjadi kesalahan saat menjalankan.

Catatan:  Gunakan CREATEOBJECT saat tidak ada contoh objek saat ini. Jika contoh objek sudah berjalan, instance baru dimulai, dan objek dari tipe yang ditentukan dibuat. Untuk menggunakan contoh saat ini, atau untuk memulai aplikasi dan memilikinya memuat file, gunakan fungsi GetObject .

Jika sebuah objek telah mendaftarkan dirinya sebagai objek instance tunggal, hanya satu contoh objek yang dibuat, tak peduli berapa kali CREATEOBJECT dieksekusi.

Contoh

Contoh ini menggunakan fungsi CREATEOBJECT untuk mengatur referensi (

xlApp

) ke Excel. Menggunakan referensi untuk mengakses properti Excel yang terlihat , lalu menggunakan metode keluar Excel untuk menutupnya. Akhirnya, referensi itu sendiri dilepaskan.

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.
Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×