Fungsi CreateObject di VBA
Objek adalah konsep yang sangat penting dalam pengkodean VBA, dan memahami bahwa model kerja objek cukup kompleks. Saat kami mereferensikan objek dalam pengkodean VBA, kami melakukannya dengan dua cara, yaitu, "Pengikatan Awal" dan "Pengikatan Akhir". "Early Binding" adalah proses menyetel referensi objek dari pustaka referensi VBA, dan saat kami mengirim file ke orang lain, mereka juga perlu menyetel referensi ke objek tersebut masing-masing. Namun, "Pengikatan Akhir" tidak mengharuskan 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 dimulai 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, ini hanya akan menggunakan mesin lokal.
Contoh Buat Fungsi Objek di Excel VBA
Di bawah ini adalah contoh dari VBA CreateObject.
Contoh 1
Sekarang kita akan melihat bagaimana memulai aplikasi PowerPoint dari excel menggunakan fungsi CreateObject di VBA. Buka file excel dan masuk ke Visual Basic Editor Window dengan menekan tombol ALT + F11 .
Kode:
Sub CreateObject_Example1 () End Sub
Deklarasikan variabel sebagai PowerPoint.Application.
Seperti yang Anda lihat di atas, saat kami mulai mengetik kata "PowerPoint", kami tidak melihat daftar IntelliSense yang menampilkan penelusuran terkait. Ini karena "PowerPoint" adalah objek eksternal. Tapi tidak perlu khawatir mendeklarasikan variabel sebagai "Objek".
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 variabelnya, 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 penjilidan terlambat adalah kita tidak bisa melihat daftar IntelliSense pada titik waktu tertentu. 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 "Objek".
Kode:
Sub CreateObject_Example2 () Redupkan ExcelSheet Sebagai Objek Akhir Sub
The moment we declare the variable as an object, it causes late binding, and we need to use the “Set” keyword to set the reference for the required object.
Since we are referencing to excel worksheet from the application excel, enter “Excel. Sheet” in double-quotes.
Code:
Sub CreateObject_Example2() Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet") End Sub
Once the reference for the excel sheet is set, we need to make it visible to use it. This is similar to how we made the PowerPoint application visible.
Code:
Sub CreateObject_Example2() Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet") ExcelSheet.Application.Visible = True End Sub
Now it will activate the excel worksheet.
Similarly, to initiate an excel workbook from other Microsoft products, we can use the below code.
Code:
Sub CreateObject_Example3 () Dim ExlWb Sebagai Objek Set ExlWb = CreateObject ("Excel.Application") ExlWb.Application.Visible = True End Sub
Hal yang Perlu Diingat Tentang CreateObject di VBA
- Di VBA, fungsi CreateObject digunakan untuk mereferensikan objek.
- Fungsi Buat Objek menyebabkan proses pengikatan terlambat.
- Menggunakan fungsi buat objek, kami tidak bisa mengakses daftar IntelliSense VBA.
