Saat ini saya akan menjelaskan cara membuat otomasi Word dan Excel menggunakan VB.Net, sebagai contoh saya akan membuat data entry untuk sebuah Minimarket. Didalam data ini, terdapat bagian Input dan Output. Input adalah ketika pihak Minimarket melakukan pembelian inventory untuk memenuhi persediaan gudangnya dan bagian Output adalah ketika terjadi transaksi penjualan yang terjadi pada Minimarket tersebut.
Sebelumnyabuat Form VBnya terlebih dahulu
 |
| Form Minimarket |
Setelah design form telah selesai, masukan coding berikut ini agar programnya dapat berjalan dengan sempurna:
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub new1_Click(sender As Object, e As EventArgs) Handles new1.Click
ComboBox1.Text = ""
merk.Text = ""
ComboBox2.Text = ""
tgltrans.Text = ""
distributor.Text = ""
ComboBox4.Text = ""
End Sub
Private Sub hitung_Click(sender As Object, e As EventArgs) Handles hitung.Click
jmlharga.Text = jmlhbrg.Text * harga.Text
End Sub
Private Sub new2_Click(sender As Object, e As EventArgs) Handles new2.Click
ComboBox3.Text = ""
merk2.Text = ""
jmlhbrg.Text = ""
harga.Text = ""
jmlharga.Text = ""
End Sub
Private Sub save1_Click(sender As Object, e As EventArgs) Handles save1.Click
Dim wapp As New Word.Application
Dim wdoc As New Word.Document
wdoc = wapp.Documents.Open("D:\MATERI KULIAH\SMT 3\PB 2\OMEGA MINIMARKET.docx")
wdoc.Bookmarks("bkmtanggal").Select()
wapp.Selection.TypeText(tgltrans.Text)
wdoc.Bookmarks("bkmjenis").Select()
wapp.Selection.TypeText(ComboBox1.Text)
wdoc.Bookmarks("bkmmerk").Select()
wapp.Selection.TypeText(merk.Text)
wdoc.Bookmarks("bkmjumlah").Select()
wapp.Selection.TypeText(ComboBox2.Text)
wdoc.Bookmarks("bkmdistributor").Select()
wapp.Selection.TypeText(distributor.Text)
wdoc.Bookmarks("bkmstatus").Select()
wapp.Selection.TypeText(ComboBox4.Text)
wapp.Visible = True
End Sub
Private Sub save2_Click(sender As Object, e As EventArgs) Handles save2.Click
Dim app As New Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Worksheet
Dim row As Long
book = app.Workbooks.Open("D:\MATERI KULIAH\SMT 3\PB 2\Book1.xlsx")
sheet = book.Sheets("Sheet1")
row = sheet.Range("A" & sheet.Rows.Count).End(Excel.XlDirection.xlUp).Row
app.Range("A1").Value = "No."
app.Range("B1").Value = "Jenis Barang"
app.Range("C1").Value = "Merk Barang"
app.Range("D1").Value = "Jumlah"
app.Range("E1").Value = "Harga"
app.Range("F1").Value = "Jumlah Harga"
app.Range("A" & row + 1).Value = CStr(row)
app.Range("B" & row + 1).Value = ComboBox3.Text
app.Range("C" & row + 1).Value = merk2
app.Range("D" & row + 1).Value = jmlhbrg
app.Range("E" & row + 1).Value = harga
app.Range("F" & row + 1).Value = jmlharga
book.Save()
End Sub
End Class
Untuk dapat melakukan Otomasi Word dan Excel, terlebih dahulu kita harus membuat dokumen seperti berikut ini:
 |
| untuk Word, tambahkan Bookmarks di tempat yang diinginkan |
 |
| tampilan Excel |
Setelah itu, kita masukan sampel data. Tujuannya adalah untuk melihat apakah program berjalan dengan lancar atau tidak
 |
| Entry untuk Excel |
 |
| Hasil Otomasi Excel |
 |
| Entry untuk Word |
 |
| Hasil Otomasi Word |
