Connecting VB.net to microsoft word and excel

Kita akan membuat automation vb.net to microsoft office 2007, caranya seperti ini :

• Pertama-tama kita mengetik di microsoft seperti di bawah ini dan masukkan bookmark dengan sesuai format yang diketik tadi.

• Buat form di VB sesuai dengan yang di ketik pada microsoft word :

• Selanjutnya kita menginsert add reference pada form berikut ini :

• Langkah berikutnya kita akan membuat koding seperti ini :

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim myexcelApp As New excel.Application

        Dim myExcelbook As excel.Workbook

        TextBox5.Text = (Convert.ToInt32(TextBox2.Text) + Convert.ToInt32(TextBox3.Text) + Convert.ToInt32(TextBox4.Text))

        myExcelbook = myexcelApp.Workbooks.Open("C:\book1.xlsx")

        myexcelApp.Range("A2").Value = TextBox1.Text

        myexcelApp.Range("B2").Value = TextBox2.Text

        myexcelApp.Range("C2").Value = TextBox3.Text

        myexcelApp.Range("D2").Value = TextBox4.Text

        myexcelApp.Range("E2").Value = TextBox5.Text

        myexcelApp.Visible = True

        myexcelApp.Quit()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim myWordApp As New word.Application

        Dim myWordDoc As New word.Document

        TextBox5.Text = (Convert.ToInt32(TextBox2.Text) + Convert.ToInt32(TextBox3.Text) + Convert.ToInt32(TextBox4.Text))

        myWordDoc = myWordApp.Documents.Open("C:\kepada1.docx")

        myWordDoc.SaveAs("C:\kepada1.docx")

        myWordDoc.Bookmarks("cus").Select()

        myWordApp.Selection.TypeText(TextBox1.Text)

        myWordDoc.Bookmarks("gajipegawai").Select()

        myWordApp.Selection.TypeText(TextBox2.Text)

        myWordDoc.Bookmarks("tunjangananak").Select()

        myWordApp.Selection.TypeText(TextBox3.Text)

        myWordDoc.Bookmarks("tunjanganistri").Select()

        myWordApp.Selection.TypeText(TextBox4.Text)

        myWordDoc.Bookmarks("total").Select()

        myWordApp.Selection.TypeText(TextBox5.Text)

        myWordDoc.SaveAs("c:\kepada1.docx")

        myWordApp.Visible = True

        myWordApp.Quit()

    End Sub

End Class

• Lalu di Run dan isi lah form dengan nilai seperti yang anda tentukan :

• Lalu klik lah button ms word dan excel seperti gambar di atas, dan hasilnya pada microsoft word adalah sebagai berikut :

• Dan pada microsoft excel hasilnya adalah sebagai berikut :

Kita telah berhasil menyelesaikan tugas ini.