SERENITEA: Otomasi Word dan Excel Menggunakan VB.Net

Halo!

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: