Salam sejahtera untuk semuanya kembali lagi di Blog Ini, Kali ini saya akan menjelaskan cara membuat Aplikasi di Visual Studio yang bisa terkonekis dengan Excel dan Word dan berikut langkah-langkahnya sebelum menjelaskan langkah-langkahnya saya akan menjelaskan kenapa saya membuat aplikasi ini.
Alasan Saya yang pertama dalam membuat aplikasi ini adalah agar kita mudah ketika ingin membuat laporan sesuai dengan apa yang kita jalan kan dalam program yang kita buat sebagai contohnya adalah saya membuat aplikasi untuk laporan pemesanan sepatu futsal, jadi ketika ada yg memesan sepatu futsal kita dapat langsung print dengan word dan sebagai laporannya kita dapat langsung eksport menjadi excel.
Dan berikut langkah-langkah dalam membuat aplikasinya.
Langkah pertama kita memerlukan Aplikasi Visual Studio yang bisa kita dapatkan dengan mendownloadnya.
Langkah berikutnya kita memerluka Lebel, TextBox dan Button dan berikut hasil Screenshoot designnya.
Langkah selanjutnya kita Mengkoneksikan Visual Studio dengan word dan juga excel dengan cara masuk ke Projek > Add Reference > Lalu Pilih yang COM > search Word dan Excel
Langkah selanjutnya adalah Membuat Word dan Dikoneksikan Sesuai dengan Codingan yang berada di Visual Studio dengan cara pilih Insert > Bookmark > Lalu tambahkan satu persatu.
Berikut Tampilan di word nya.
Setelah membuat file wordnya langkah berikutnya mebuat file excel seperti berikut.
Jika File Word dan Excel telah dibuat kita bisa lanjut ke langkah selajutnya yaitu membuat codingannya seperti berikut.
Setelah Jadi Codingannya kita bisa menjalankan program tersebut, Setelah dijalankan program tersebut akan muncul jendela berikut.
Kita dapat mengisikan data sesuai dengan apa yang dipesan Lali Klik tombol Save To Word lalu akan muncul Word Berikut
Setelah Muncul Kita dapat print word tersebut sebagai Bukti Pemesanan Sepatu Futsal. Dan jika Mengklik Tombol Save To Excel akan muncul sebagai berikut.
Setelah Muncul data Excelnya dapat kita simpan dan Jadikan data tersebut sebagai data laporan.
Berikut Codingannya.
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1
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("D:\Yonatan\Semester 5\Laporan Pemesanan Sepatu Futsal.xlsx")
aplikasiExcel.Range("A4").Value = TextBox1.Text
aplikasiExcel.Range("B4").Value = TextBox2.Text
aplikasiExcel.Range("C4").Value = TextBox3.Text
aplikasiExcel.Range("D4").Value = TextBox4.Text
aplikasiExcel.Range("E4").Value = TextBox5.Text
FileExcel.SaveAs("D:\Yonatan\Semester 5\Laporan Pemesanan Sepatu Futsal New.xlsx")
MsgBox("Automation ke Excel Berhasil")
aplikasiExcel.Visible = True
End Sub
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:\Yonatan\Semester 5\Laporan Pemesanan Sepatu Futsal.docx")
dokumen.Bookmarks("Nama").Select()
aplikasi.Selection.TypeText(TextBox1.Text)
dokumen.Bookmarks("Tujuan").Select()
aplikasi.Selection.TypeText(TextBox2.Text)
dokumen.Bookmarks("Harga").Select()
aplikasi.Selection.TypeText(TextBox3.Text)
dokumen.Bookmarks("Jumlah").Select()
aplikasi.Selection.TypeText(TextBox4.Text)
dokumen.Bookmarks("Total").Select()
aplikasi.Selection.TypeText(TextBox5.Text)
dokumen.SaveAs2("D:\Yonatan\Semester 5\Laporan Pemesanan Sepatu Futsal New.docx")
aplikasi.Visible = True
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim total, Tujuan, Jumlah As Integer
Tujuan = TextBox3.Text
Jumlah = TextBox4.Text
total = Tujuan * Jumlah
TextBox5.Text = total
End Sub
End Class
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1
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("D:\Yonatan\Semester 5\Laporan Pemesanan Sepatu Futsal.xlsx")
aplikasiExcel.Range("A4").Value = TextBox1.Text
aplikasiExcel.Range("B4").Value = TextBox2.Text
aplikasiExcel.Range("C4").Value = TextBox3.Text
aplikasiExcel.Range("D4").Value = TextBox4.Text
aplikasiExcel.Range("E4").Value = TextBox5.Text
FileExcel.SaveAs("D:\Yonatan\Semester 5\Laporan Pemesanan Sepatu Futsal New.xlsx")
MsgBox("Automation ke Excel Berhasil")
aplikasiExcel.Visible = True
End Sub
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:\Yonatan\Semester 5\Laporan Pemesanan Sepatu Futsal.docx")
dokumen.Bookmarks("Nama").Select()
aplikasi.Selection.TypeText(TextBox1.Text)
dokumen.Bookmarks("Tujuan").Select()
aplikasi.Selection.TypeText(TextBox2.Text)
dokumen.Bookmarks("Harga").Select()
aplikasi.Selection.TypeText(TextBox3.Text)
dokumen.Bookmarks("Jumlah").Select()
aplikasi.Selection.TypeText(TextBox4.Text)
dokumen.Bookmarks("Total").Select()
aplikasi.Selection.TypeText(TextBox5.Text)
dokumen.SaveAs2("D:\Yonatan\Semester 5\Laporan Pemesanan Sepatu Futsal New.docx")
aplikasi.Visible = True
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim total, Tujuan, Jumlah As Integer
Tujuan = TextBox3.Text
Jumlah = TextBox4.Text
total = Tujuan * Jumlah
TextBox5.Text = total
End Sub
End Class
Dan Sekian Penjelasan Pembuatan Aplikasi Pemesanan Sepatu Futsal, Kurang Lebihnya Mohon Maaf.
Terimakasih. Salam Sejahtera
