Selamat Pagi, Siang, Sore and Malam 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 dengan langkah-langkahnya, sebelum menjelaskan langkah-langkahnya saya
akan menjelaskan kenapa saya membuat aplikasi ini.
karena Saya ingin membuat aplikasi ini, agar
saya lebih mudah ketika ingin membuat laporan sesuai dengan yang saya jalan kan dalam program yang saya buat
sebagai contohnya adalah saya membuat aplikasi untuk laporan pemesanan Bakso,
jadi ketika ada yangg memesan bakso di saya dapat langsung di print dengan word
dan sebagai laporannya saya dapat langsung eksport menjadi excel.
Dan berikut langkah-langkah dalam membuat
aplikasinya.
Langkah pertama saya memerlukan Aplikasi
Visual Studio yang bisa saya dapatkan dengan mendownloadnya di google.
Langkah awal untuk membuat Deignnya, berikutnya
saya mengunakan Lebel, TextBox dan Button dan berikut hasil yang sudah saya
Screenshoot designnya
Langkah selanjutnya saya Mengkoneksikan Visual
Studio dengan word dan juga excel dengan cara masuk ke Projek > Add
Reference > Lalu Pilih 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 saya menjalankan
program tersebut, Setelah di RAN program tersebut akan muncul tampilan seperti
di bawah.
Kita dapat mengisikan data sesuai dengan apa
yang dipesan lalu Klik tombol Save To Word lalu akan muncul Word Berikut
Setelah Muncul Kita dapat print word tersebut
sebagai Bukti Pemesanan Bakso. 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aplikasi As New word.Application
Dim dokumen As word.Document
dokumen = aplikasi.Documents.Open("D:\Files Ronal kampus\Laporan Pemesanan Bakso.docx")
dokumen.Bookmarks("JenisBakso").Select()
aplikasi.Selection.TypeText(TextBox1.Text)
dokumen.Bookmarks("Menu").Select()
aplikasi.Selection.TypeText(TextBox2.Text)
dokumen.Bookmarks("Minuman").Select()
aplikasi.Selection.TypeText(TextBox3.Text)
dokumen.Bookmarks("Jumlah").Select()
aplikasi.Selection.TypeText(TextBox4.Text)
dokumen.SaveAs2("D:\Files Ronal kampus\Laporan Pemesanan Bakso New.docx")
aplikasi.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim aplikasiExcel As New excel.Application
Dim FileExcel As excel.Workbook
FileExcel = aplikasiExcel.Workbooks.Open("D:\Files Ronal kampus\penjualan bakso.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
FileExcel.SaveAs("D:\Files Ronal kampus\penjualan bakso New.xlsx")
MsgBox("Automation ke Excel Berhasil")
aplikasiExcel.Visible = True
End Sub
End Class
Dan Sekian Penjelasan Pembuatan Aplikasi Pemesanan Bakso, Kurang
Lebihnya Mohon Maaf.
Wassalamualaikum. WR WB
Komentar
Posting Komentar