Aplikasi Produk terhubung Word dan Excel

Assalamu'alaikum Wr.Wb

Kembali lagi di blogg saya yang selanjutnya, kali ini saya masih ngebahas tentang Aplikasi Produk

untuk cara membuat terhubung ke excel dan ke word.

Berikut Langkah - langkahnya :

1. Mendownload Visual Studio terlebih dahulu

2. yang kita perlukan ialah : Label, TextBox dan Button

seperti di bawah ini

Selanjutnya Koneksikan Visual Studio dengan word dengan cara klik > Project > add Reference kemudian pilih word lalu Ok

Kemudian Buka word kita akan membuat word terkoneksi dengan condingan Visual studio dengan cara klik > Insert > bookmark

Lalu tambahan satu persatu seperti contoh di bawah ini

Kembali ke Visual Studio, kita akan menjalan memasukan coding visual studio agar dapat terkoneksi ke word, Berikut codingannya

Setelah kita selesei membuat word, selanjutnya kita membuat koneksi Visual studi ke Excel

1. Buka Excel

2. Isi colum tabel seperti di word

Kemudian buat codingan Excel di Visual Studio

Setelah codingan Word dan Excel telah kita buat, Selanjutnya jalan aplikasi dengan klik START

dan akan muncul di word secara otomatis jika di klik >> Save To Word

Klik >> Save To Excel

Berikut Codingannya :

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1

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

        Dim aplikasi As New word.Application

        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("D:\Laporan Produk.docx")

        dokumen.Bookmarks("idProduk").Select()

        aplikasi.Selection.TypeText(TextBox1.Text)

        dokumen.Bookmarks("NamaProduk").Select()

        aplikasi.Selection.TypeText(TextBox2.Text)

        dokumen.Bookmarks("Jumlah").Select()

        aplikasi.Selection.TypeText(TextBox3.Text)

        dokumen.Bookmarks("HargaJual").Select()

        aplikasi.Selection.TypeText(TextBox4.Text)

        dokumen.Bookmarks("Total").Select()

        aplikasi.Selection.TypeText(TextBox4.Text)

        dokumen.SaveAs2("D:\Laporan Produk.docx")

        aplikasi.Visible = True

    End Sub

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

        Dim aplikasiExcel As New excel.Application

        Dim FileExcel As excel.Workbook

        FileExcel = aplikasiExcel.Workbooks.Open("C:\Laporan Produk.xlsx")

        aplikasiExcel.Range("A3").Value = TextBox1.Text

        aplikasiExcel.Range("B3").Value = TextBox2.Text

        aplikasiExcel.Range("C3").Value = TextBox3.Text

        aplikasiExcel.Range("D3").Value = TextBox4.Text

        aplikasiExcel.Range("E3").Value = TextBox4.Text

        FileExcel.SaveAs("C:\Laporan Data Produk.xlsx")

        MsgBox("Automation ke Excel Berhasil")

        aplikasiExcel.Visible = True

    End Sub

End Class

Sekian dari saya, semoga bermanfaat:)