Belajar Membuat Macro MS Excel 2007: Autofill Form Web page dari Ms Excel

Pernahkah anda mengalami harus menginputkan data dari ms excel ke dalam form didalam web page, Tidak masalah kalau datanya sedikit akan tetapi jika kita dihadapkan dengan banyak data yang harus di upload satu-persatu tentu akan menjadi sedikit masalah, masalah waktu, masalah fisik dan masalah malas juga tentunya.
Dari situ timbul keinginan misalkan data dari Ms excel tersebut ter-copy secara otomatis dan menempatkan sendiri satu-persatu ke form di web page.
Baiklah langsung saja, berdasarkan kasus diatas saya mencoba memberikan sedikit solusi dengan Macro MS Excel menggunakan VBA.
disini saya akan mencontohkan untuk mengisi username dan password facebook, selebihnya bisa anda kembangkan sendiri

Berikut langka-langkahnya:

1. Siapkan Dokumen Excel.
2. Buat tabel dengan kolom "username" dan "password"
3. Selanjutnya tambahkan Common Button. dengan cara klik tab developer(lihat disini) ==> grup control==>insert==>Common button





4. Hasilnya...





5. Selanjutnya masuk ke area kerja VBA dengan menekan Alt+F11 ...





6. Sebelum menulis kode program anda perlu menambahkan reference terlebih dahulu Klik Tools ==> References



7. Tambahkan Microsoft internet Controls dan Microsoft HTML Object Library



8. Selanjutnya buat module dengan cara klik kanan pada VBAProject==>insert==>Module
9. Kemudian ketikan perintah di bawah ini:

Sub login()
 Dim IE As InternetExplorer
 Dim doc As HTMLDocument Dim
 username As String
 Dim password As String
 Dim form As HTMLFormElement
 Dim boxusername As HTMLInputTextElement
 Dim boxpassword As HTMLInputTextElement
 Dim tombolmasuk As HTMLInputButtonElement
 username = Range("A2").Value
 password = Range("B2").Value
 Set IE = New InternetExplorer
 IE.Visible = True
 IE.Navigate "www.facebook.com"
 Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
 Set doc = IE.document
 Set form = doc.forms(login_form)
 Set boxusername = form.elements("Email")
 boxusername.Value = username
 Set boxpassword = form.elements("pass")
 boxpassword.Value = password
 Set tombolmasuk = form.elements("u_0_l")
 tombolmasuk.Click Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy:DoEvents: Loop
 End Sub

Sampai disini project anda sudah bisa membuka facebook denga user dan password yang ada di cell "A2" dan "B2".

Bagaimana membuat command button anda berfungsi?

Aktifkan Workbook Pada tab Developer ==> grup controls, klik mode design sampai berwarna kuning.

Klik kanan pada tombol login ==> View Code Panggil procedure yang dibuat tadi, dari contoh yang saya buat di atas nama procedurenya adalah "login"

Private Sub CommandButton1_Click()
  login
End Sub

demikian semoga Artikel saya kali ini semoga dapat membantu...

Artikel Terkait