Fungsi CreateObject

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft Jet sedang berjalan di mode kotak pasir yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, Cari "mode kotak pasir" di bantuan.

Membuat dan mengembalikan referensi ke objek ActiveX.

Sintaks

CreateObject ( kelas [, servername] )

Sintaks fungsi CreateObject memiliki argumen ini:

Argumen

Deskripsi

kelas

Diperlukan. Varian (String). Nama aplikasi dan kelas untuk membuat objek.

nama server

Opsional. Varian (String). Nama server jaringan yang mana objek yang akan dibuat. Jika nama server adalah string kosong (""), komputer lokal digunakan.


Kelas argumen menggunakan sintaks appname.objecttype dan memiliki bagian berikut ini:

Bagian

Deskripsi

APPNAME

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

objecttype

Diperlukan. Varian (String). Tipe atau kelas objek untuk membuat.


Keterangan

Setiap aplikasi yang mendukung otomatisasi menyediakan setidaknya satu tipe objek. Sebagai contoh, aplikasi pemrosesan word dapat memberikan objek aplikasi , objek dokumen , dan objek Toolbar .

Untuk membuat objek ActiveX, menetapkan objek yang dikembalikan oleh CreateObject ke variabel objek:

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi lebih lanjut 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")

Kode ini memulai aplikasi membuat objek, dalam kasus ini, lembar bentang Microsoft Office Excel 2007 . Setelah membuat objek, Anda mereferensikan dalam kode menggunakan variabel objek yang Anda tentukan. Dalam contoh berikut, Anda mengakses properti dan metode objek baru menggunakan variabel objek, ExcelSheet, dan objek Excel lainnya, termasuk Application objek dan kumpulan 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

Mendeklarasikan variabel objek dengan klausa As Object membuat variabel yang bisa berisi referensi ke setiap tipe objek. Namun, akses ke objek melalui variabel yang terlambat terikat; yaitu, pengikatan terjadi saat program Anda jalankan. Untuk membuat variabel objek yang dihasilkan dalam mengikat awal, yaitu, mengikat saat program kompilasi, mendeklarasikan variabel objek dengan ID kelas tertentu. Misalnya, Anda dapat mendeklarasikan dan membuat referensi Excel berikut ini:

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 awal terikat bisa memberi kinerja yang lebih baik, tapi hanya bisa berisi referensi ke kelas ditentukan dalam deklarasi.

Anda bisa melewati objek dikembalikan oleh fungsi CreateObject untuk fungsi yang diperkirakan objek sebagai argumen. Misalnya, kode berikut akan membuat dan meneruskan referensi ke objek Excel.Application:

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

Anda bisa membuat objek di jaringan komputer jarak jauh dengan menambahkan nama komputer di kepada argumen servernameCreateObject. Nama itu adalah sama seperti bagian nama mesin berbagi nama: untuk berbagi bernama "\\MyServer\Public", nama server adalah "MyServer."

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

Kode berikut mengembalikan nomor versi contoh Excel berjalan di komputer jarak jauh yang bernama MyServer:

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 run-time.

Catatan: Gunakan CreateObject bila ada contoh saat ini tidak ada objek. Jika contoh objek belum dijalankan, contoh baru dimulai, dan objek dengan tipe yang ditentukan. Untuk menggunakan contoh saat ini, atau untuk memulai aplikasi dan memuat file, gunakan fungsi GetObject .

Jika objek memiliki terdaftar itu sendiri sebagai objek tunggal-misalnya, hanya satu contoh objek dibuat, tidak peduli berapa kali CreateObject dijalankan.

Contoh

Contoh ini menggunakan fungsi CreateObject untuk mengatur (referensi)

xlApp

) ke Excel. Menggunakan referensi untuk mengakses properti terlihat Excel, dan lalu menggunakan metode Excel keluar untuk menutupnya. Akhirnya, referensi sendiri dirilis.

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.

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan 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.

×