Padatampilan awal desain akan terlihat seperti ini
codingan yang di pakai seperti ini
tampilan data tersimpan di word seperti ini
tampilan data ke excel akan seperti ini
berikut cara mengcoding agar lebih mudah dipahami:
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 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("C:\Users\WIN 8.1 Core\Documents\so ngampus\smesteer 5\pa agus\UTS.docx")
dokumen.Bookmarks("DBNIM").Select()
aplikasi.Selection.TypeText(TxtNim.Text)
dokumen.Bookmarks("DBNAMA").Select()
aplikasi.Selection.TypeText(TxtNama.Text)
dokumen.Bookmarks("DBJENISKELAMIN").Select()
aplikasi.Selection.TypeText(TxtJnsKlmn.Text)
dokumen.Bookmarks("DBALAMAT").Select()
aplikasi.Selection.TypeText(TxtAlamat.Text)
dokumen.Bookmarks("DBNOTELP").Select()
aplikasi.Selection.TypeText(TxtNotlp.Text)
dokumen.Bookmarks("DBJUDULBUKU").Select()
aplikasi.Selection.TypeText(TxtJdlBku.Text)
dokumen.SaveAs2("C:\Users\WIN 8.1 Core\Documents\so ngampus\smesteer 5\pa agus\ " + TxtNim.Text + TxtNama.Text + ".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:\Users\WIN 8.1 Core\Documents\so ngampus\smesteer 5\pa agus\UTS EXCEL.xlsx")
AplikasiExcel.Range("A4").Value = TxtNim.Text
AplikasiExcel.Range("B4").Value = TxtNama.Text
AplikasiExcel.Range("C4").Value = TxtJnsKlmn.Text
AplikasiExcel.Range("D4").Value = TxtAlamat.Text
AplikasiExcel.Range("E4").Value = TxtNotlp.Text
AplikasiExcel.Range("F4").Value = TxtJdlBku.Text
FileExcel.SaveAs("C:\Users\WIN 8.1 Core\Documents\so ngampus\smesteer 5\pa agus\ " + TxtNim.Text + TxtNama.Text + " .xlsx")
MsgBox("sukses")
AplikasiExcel.Visible = True
End Sub
End Class
