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:
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"
demikian semoga Artikel saya kali ini semoga dapat membantu...
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:
- Siapkan Dokumen Excel.
- Buat tabel dengan kolom "username" dan "password"
- Selanjutnya tambahkan Common Button. dengan cara klik tab developer(lihat disini) ==> grup control==>insert==>Common button
- Hasilnya...
- Selanjutnya masuk ke area kerja VBA dengan menekan Alt+F11 ...
- Sebelum menulis kode program anda perlu menambahkan reference terlebih dahulu Klik Tools ==> References
- Tambahkan Microsoft internet Controls dan Microsoft HTML Object Library
- Selanjutnya buat module dengan cara klik kanan pada VBAProject==>insert==>Module
- 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
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
login
End Sub
demikian semoga Artikel saya kali ini semoga dapat membantu...
