CreateObject di VBA | Bagaimana cara menggunakan Fungsi CreateObject di VBA?

Fungsi CreateObject di VBA

Objek adalah konsep yang sangat penting dalam pengkodean VBA dan memahami bahwa model kerja objek cukup kompleks. Saat kita mereferensikan objek dalam pengkodean VBA, kita melakukannya dengan dua cara yaitu "Pengikatan Awal" dan "Pengikatan Akhir". "Pengikatan Awal" adalah proses menyetel referensi objek dari pustaka referensi VBA dan saat kami mengirim file ke orang lain, mereka juga perlu menyetel referensi ke objek masing-masing. Namun "Pengikatan Akhir" tidak memerlukan pengguna untuk menyetel referensi objek apa pun karena dalam pengkodean pengikatan akhir, kami menyetel referensi ke objek masing-masing dengan menggunakan fungsi "CreateObject" VBA.

Apa itu CreateObject di Excel VBA?

"Buat Objek" seperti namanya itu sendiri mengatakan itu akan membuat objek yang disebutkan dari Excel VBA. Jadi, fungsi Buat Objek mengembalikan referensi ke objek yang diprakarsai oleh komponen Active X.

Di bawah ini adalah sintaks dari fungsi CreateObject di VBA

Kelas: Nama objek yang kita coba mulai dan atur referensi ke variabel.
[Nama Server]: Ini adalah parameter opsional, jika diabaikan itu hanya akan menggunakan mesin lokal.

Contoh Buat Fungsi Objek di Excel VBA

Di bawah ini adalah contoh dari VBA CreateObject.

Anda dapat mengunduh Template Excel CreateObject VBA ini di sini - Template Excel CreateObject VBA

Contoh 1

Sekarang kita akan melihat bagaimana memulai aplikasi PowerPoint dari excel menggunakan fungsi CreateObject di VBA. Buka file excel dan masuk ke Jendela Visual Basic Editor dengan menekan tombol ALT + F11 .

Kode:

 Sub CreateObject_Example1 () End Sub

Deklarasikan variabel sebagai PowerPoint.Application.

Seperti yang Anda lihat di atas ketika kita mulai mengetik kata "PowerPoint", kita tidak melihat daftar intellisense yang menunjukkan pencarian terkait, ini karena "PowerPoint" adalah objek eksternal. Tapi tidak perlu khawatir mendeklarasikan variabel sebagai "Object".

Kode:

 Sub CreateObject_Example1 () Redupkan PPT Sebagai Objek Akhir Sub

Karena kita telah mendeklarasikan variabel sebagai "Objek", kita perlu mengatur referensi ke objek dengan menggunakan kata kunci "Set". Dengan memasukkan kata kunci “Set”, sebutkan variabel dan beri tanda sama dengan.

Kode:

 Sub CreateObject_Example1 () Redupkan PPT Sebagai Objek Set PPT = End Sub

Sekarang buka fungsi CreateObject.

Karena kita mereferensikan objek eksternal "PowerPoint" untuk parameter "Kelas" dari fungsi Buat Objek, sebutkan nama objek eksternal dalam tanda kutip ganda sebagai "PowerPoint.Application".

Kode:

 Sub CreateObject_Example1 () Redupkan PPT Sebagai Objek Set PPT = CreateObject ("PowerPoint.Application") End Sub

Sekarang fungsi Create Object akan memulai aplikasi PowerPoint. Setelah objek dimulai, kita perlu membuatnya terlihat dengan menggunakan nama variabel.

Salah satu masalah dengan metode Buat Objek atau metode pengikatan akhir adalah kita tidak dapat melihat daftar intellisense pada saat itu, Anda harus benar-benar yakin tentang kode yang Anda tulis.

Untuk variabel "PPT" gunakan properti "Terlihat" dan setel status sebagai "Benar".

Kode:

 Sub CreateObject_Example1 () Redupkan PPT Sebagai Objek Set PPT = CreateObject ("PowerPoint.Application") PPT.Visible = True End Sub

Untuk menambahkan slide ke PPT, tentukan kode VBA baris di bawah ini.

Kode:

 Sub CreateObject_Example1 () Redupkan PPT Sebagai Objek Set PPT = CreateObject ("PowerPoint.Application") PPT.Visible = True PPT.Presentations.Add End Sub

Sekarang jalankan kode secara manual atau melalui tombol F5 dan lihat aplikasi "PowerPoint" terbuka.

Setelah aplikasi PowerPoint diaktifkan menggunakan variabel "PPT" kita dapat mulai mengakses aplikasi PowerPoint.

Contoh # 2

Sekarang kita akan melihat bagaimana memulai aplikasi Excel menggunakan fungsi CreateObject di VBA. Sekali lagi deklarasikan variabel sebagai “Object”.

Kode:

 Sub CreateObject_Example2 () Redupkan ExcelSheet Sebagai Objek Akhir Sub

Saat kita mendeklarasikan variabel sebagai objek, itu menyebabkan pengikatan terlambat dan kita perlu menggunakan kata kunci "Set" untuk mengatur referensi untuk objek yang diperlukan.

Karena kita merujuk ke lembar kerja excel dari aplikasi excel, masukkan "Excel.Sheet" dalam tanda kutip ganda.

Kode:

 Sub CreateObject_Example2 () Redupkan ExcelSheet Sebagai Objek Set ExcelSheet = CreateObject ("Excel.Sheet") End Sub

Setelah referensi untuk lembar excel diatur, kita perlu membuatnya terlihat untuk menggunakannya. Ini mirip dengan cara kami membuat aplikasi PowerPoint terlihat.

Kode:

 Sub CreateObject_Example2 () Redupkan ExcelSheet Sebagai Objek Set ExcelSheet = CreateObject ("Excel.Sheet") ExcelSheet.Application.Visible = True End Sub

Sekarang ini akan mengaktifkan lembar kerja excel.

Demikian pula untuk memulai buku kerja excel dari produk Microsoft lainnya kita dapat menggunakan kode di bawah ini.

Kode:

 Sub CreateObject_Example3() Dim ExlWb As Object Set ExlWb = CreateObject("Excel.Application") ExlWb.Application.Visible = True End Sub

Things to Remember About CreateObject in VBA

In VBA, the CreateObject function is used to reference objects.
Create Object function causes a late-binding process.
Using create object function we don’t get to access the intellisense list of VBA.