Visual Basic dengan MS. Word & Ms. Excel

Selamat Datang

1. Penjelasan Program Aplikasi (Deskripsi dan Analisa Kebutuhan)

Aplikasi kali ini bertemanakan penjualan aksesorin komputer dan celluler

untuk mempermudah penyimpanan data kali ini saya buat data terhubung ke word dan excel
Disni saya akan memberikan tutorial mengenai cara menghubungkan Visual Basic dengan MS. Word & Excel

2. Screen Shoot

Desain Form

 Tampilan source kode di vb

 Proses Running Aplikasi

 Hasil save di word

 Hasil Save Ke excel

Proses Bookmark di word

3. Source Coding. 

Imports Word = Microsoft.Office.Interop.Word

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub BtnSaveWord_Click(sender As Object, e As EventArgs) Handles BtnSaveWord.Click

        Dim Appnya As New Word.Application

        Dim Dokumennya As Word.Document

        Dokumennya = Appnya.Documents.Open("D:\Reksabaru\word.docx")

        Dokumennya.Bookmarks("NamaPelanggan").Select()

        Appnya.Selection.TypeText(TxtNamaPelanggan.Text)

        Dokumennya.Bookmarks("NomorTelepon").Select()

        Appnya.Selection.TypeText(TxtNomorTelepon.Text)

        Dokumennya.Bookmarks("NamaAksesoris").Select()

        Appnya.Selection.TypeText(TxtNamaAksesoris.Text)

        Dokumennya.Bookmarks("HargaSatuan").Select()

        Appnya.Selection.TypeText(TxtHargaSatuan.Text)

        Dokumennya.Bookmarks("Jumlah").Select()

        Appnya.Selection.TypeText(TxtJumlah.Text)

        Dim total As String

        total = TxtJumlah.Text * TxtHargaSatuan.Text

        Dokumennya.Bookmarks("TotalHarga").Select()

        Appnya.Selection.TypeText(total)

        Dim filename As String

        filename = TxtNamaPelanggan.Text

        Dokumennya.SaveAs("D:\Reksabaru\word\" + filename + ".docx")

        Appnya.Visible = True

    End Sub

    Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click

        Application.Exit()

    End Sub

    Private Sub BtnSaveExcel_Click(sender As Object, e As EventArgs) Handles BtnSaveExcel.Click

        Dim AppExcelnya As New Excel.Application

        Dim ExcelWB As Excel.Workbook

        ExcelWB = AppExcelnya.Workbooks.Open("D:\Reksabaru\excel.xlsx")

        AppExcelnya.Range("D4").Value = TxtNamaPelanggan.Text

        AppExcelnya.Range("D5").Value = TxtNomorTelepon.Text

        AppExcelnya.Range("D6").Value = TxtNamaAksesoris.Text

        AppExcelnya.Range("D7").Value = TxtHargaSatuan.Text

        AppExcelnya.Range("D8").Value = TxtJumlah.Text

        Dim total As String

        total = TxtHargaSatuan.Text * TxtJumlah.Text

        AppExcelnya.Range("D9").Value = total

        Dim filename As String

        filename = TxtNamaPelanggan.Text

        ExcelWB.SaveAs("D:\Reksabaru\excel\" + filename + ".xlsx")

        AppExcelnya.Visible = True

    End Sub

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

        TxtNamaPelanggan.Text = ""

        TxtHargaSatuan.Text = ""

        TxtJumlah.Text = ""

        TxtNamaAksesoris.Text = ""

        TxtNomorTelepon.Text = ""

        TxtTotal.Text = ""

    End Sub

    Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click

    End Sub

    Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click

    End Sub

    Private Sub TxtJumlah_TextChanged(sender As Object, e As EventArgs) Handles TxtJumlah.TextChanged

    End Sub

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

        TxtTotal.Text = TxtJumlah.Text * TxtHargaSatuan.Text

    End Sub

End Class