Binding dalam VBA Excel

Binding adalah suatu proses bagaimana dan kapan suatu method atau property dari suatu objek dikompilasi dan dicek.

Dalam VBA Excel binding terjadi pada saat anda mencoba untuk mengakses sesuatu yang bukan merupakan bagian dari pustaka objek default Excel.

Misalnya: Jika anda mencoba mengakses Outlook, Word, Internet Explorer, dll menggunakan Excel VBA, maka anda perlu menautkan pustaka objek tersebut di Excel agar dapat mengakses semua fungsi, metode, properti, dll. Dari Objek itu tersebut.

Ada dua macam binding dalam VBA Excel diantaranya adalah :

Early Binding
Late Binding

1. Early Binding

Early Binding adalah suatu Binding yang akan bekerja jika referensi yang akan anda akses ditambahkan di awal pada pustaka VBA Excel. Misalkan jika anda ingin mengakses Ms. Outlook, maka anda harus menambahkan referensi aplikasi Ms. Outlook ke dalam pustaka VBA Excel.

Contoh :

Cara mengakses aplikasi lain menggunakan cara early binding :

Pilih referensi aplikasi yang akan diakses dengan cara sebagai berikut :

Pilih menu Tools → References..

Setelah jendela References - VBA Project muncul → misalkan kita pilih aplikasi outlook seperti gambar berikut ini :

Kemudian masukan kode di bawah ini pada suatu module :

Sub percobaan_akses_outlook()
Dim e As Outlook.Application
Set e = New Outlook.Application

Dim email As Outlook.MailItem
Set email = e.CreateItem(olMailItem)

With email
.To = "fajarmoehamad@gmail.com"
.Display
End With
End Sub

Dan kemudian jalankan module di atas, maka akan muncul jendela Ms.Outlook.

2. Late Binding

Late Binding adalah suatu proses binding yang akan bekerja pada saat script VBA dijalankan. Jadi jika anda ingin melakukan akses ke aplikasi lain menggunakan VBA, anda tidak perlu melakukan referensi pustaka di awal, akan tetapi anda langsung menuliskan code script VBA untuk mengakses aplikasi tersebut.

Contoh :

Cara mengakses aplikasi lain menggunakan cara Late Binding. Pada contoh kali ini kita akan mengakses aplikas Ms. Outlook menggunakan cara Late Binding, caranya adalah hanya dengan memasukan kode di bawah ini ke dalam suatu module dan kemudian menjalankan kode terseubut. Berikut ini adalah kodenya :

Sub percobaan_akses_outlook()
Dim e As Object
Set e = CreateObject("Outlook.Application")

Dim email As Object
Set email = e.CreateItem(0)

With email
.To = "fajarmoehamad@gmail.com"
.Display
End With
End Sub