Assalamu'alaikum warohmatullahi wabarokatuh. Nah, dalam posting kali ini aku akan membahas wacana bagaimana cara menghubungkan Microsoft Excel dan Microsoft Word dengan memakai Developer VBA dimana kita membutuhkan sedikit dukungan dari Visual Basic. Hal ini mempunyai kegunaan untuk teman yang contohnya ingin dengan praktis mengubah data tabel pada Microsoft Word melalui Microsoft Excel.
Pertama-tama yang perlu teman sediakan yakni File Microsoft Word dan File Microsoft Excel yang akan dihubungkan. Setelah itu buka file Microsoft Word tersebut. Misalnya kita mempunyai data Excel sebagai berikut.
Selanjutnya buatlah sebuah dokumen Word, kemudian klik hidangan FILE.
Setelah itu klik bab Options.
Lalu pada bab Customize Ribbon centang Developer yang terdapat pada kotak sebelah kanan kemudian klik OK.
Selanjutnya pada tab DEVELOPER klik dropdown Legacy Forms kemudian buatlah sebuah Label.
Kemudian buka jendela Properties untuk Label1 kemudian atur AutoSize menjadi True.
Setelah itu klik 2x pada Label1 kemudian pada hidangan Tools pilih References....
Lalu centang Microsoft Excel 15.0 Object Library kemudian klik OK.
Setelah itu tambahkan arahan berikut pada sub perintah
Label1_Click().Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook Set exWb = objExcel.Workbooks.Open("F:\.xlsx") ThisDocument.Label1.Caption = exWb.Sheets("Sheet1").Cells(2, 2) exWb.Close Set exWb = Nothing
Perhatikan pada bab yang di tandai, ubah sesuai dengan kebutuhan sobat. Sebagai pola kita sanggup menciptakan 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:\.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, biar sanggup bermanfaat, bila ada yang ingin teman tanyakan silakan sampaikan pada kotak komentar yang ada dibawah atau sanggup juga melalui halaman contact blog ini. Terima kasih, assalamu'alaikum warohmatullahi wabarokatuh.
Sumber : http://www.makeuseof.com/tag/integrate-excel-data-word-document/
Sumber http://www.maringngerrang.com/
