Thursday, August 18, 2016

Cara Menghubungkan Excel dan Word dengan VBA

Cara Menghubungkan Excel dan Word dengan VBA

Assalamu'alaikum warohmatullahi wabarokatuh. Nah, dalam posting kali ini saya akan membahas tentang bagaimana cara menghubungkan Microsoft Excel dan Microsoft Word dengan menggunakan Developer VBA dimana kita membutuhkan sedikit bantuan dari Visual Basic. Hal ini berguna untuk sobat yang misalnya ingin dengan gampang mengubah data tabel pada Microsoft Word melalui Microsoft Excel.

Pertama-tama yang perlu sobat sediakan adalah File Microsoft Word dan File Microsoft Excel yang akan dihubungkan. Setelah itu buka file Microsoft Word tersebut. Misalnya kita memiliki data Excel sebagai berikut.


Selanjutnya buatlah sebuah dokumen Word, lalu klik menu FILE.


Setelah itu klik bagian Options.


Lalu pada bagian Customize Ribbon centang Developer yang terdapat pada kotak sebelah kanan lalu klik OK.


Selanjutnya pada tab DEVELOPER klik dropdown Legacy Forms lalu buatlah sebuah Label.


Kemudian buka jendela Properties untuk Label1 lalu atur AutoSize menjadi True.


Setelah itu klik 2x pada Label1 lalu pada menu Tools pilih References....


Lalu centang Microsoft Excel 15.0 Object Library lalu klik OK.


Setelah itu tambahkan kode berikut pada sub perintah Label1_Click().

Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Set exWb = objExcel.Workbooks.Open("F:\Maringngerrang.xlsx")
ThisDocument.Label1.Caption = exWb.Sheets("Sheet1").Cells(2, 2)
exWb.Close
Set exWb = Nothing


Perhatikan pada bagian yang di tandai, ubah sesuai dengan kebutuhan sobat. Sebagai contoh kita bisa membuat banyak label yang berubah serta menambahkan Command Button sebagai pemicu untuk mengupdate data.


Private Sub CommandButton1_Click()
Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Set exWb = objExcel.Workbooks.Open("F:\Maringngerrang.xlsx")
ThisDocument.Label1.Caption = "Nama " & exWb.Sheets("Sheet1").Cells(2, 2) & " dengan nilai " & exWb.Sheets("Sheet1").Cells(2, 3) & "."
ThisDocument.Label2.Caption = "Nama " & exWb.Sheets("Sheet1").Cells(3, 2) & " dengan nilai " & exWb.Sheets("Sheet1").Cells(3, 3) & "."
ThisDocument.Label3.Caption = "Nama " & exWb.Sheets("Sheet1").Cells(4, 2) & " dengan nilai " & exWb.Sheets("Sheet1").Cells(4, 3) & "."
ThisDocument.Label4.Caption = "Nama " & exWb.Sheets("Sheet1").Cells(5, 2) & " dengan nilai " & exWb.Sheets("Sheet1").Cells(5, 3) & "."
exWb.Close
Set exWb = Nothing
End Sub

Mungkin cukup sekian dari saya, semoga bisa bermanfaat, kalau ada yang ingin sobat tanyakan silakan sampaikan pada kotak komentar yang ada dibawah atau bisa juga melalui halaman contact blog ini. Terima kasih, assalamu'alaikum warohmatullahi wabarokatuh.

Sumber : http://www.makeuseof.com/tag/integrate-excel-data-word-document/
Disqus Comment
Parse Tool