Imports word = Microsoft.Office.Interop.Word
'Miccrosoft.Office.Interpol.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("C:\Users\ASUS X550Z\Documents\KUMPULAN TUGAS\semester 5\From Laporan Kamar Hotel.docx")
dokumen.Bookmarks("BKamar").Select()
aplikasi.Selection.TypeText(TxtKamar.Text)
dokumen.Bookmarks("BJenis").Select()
aplikasi.Selection.TypeText(TxtJenis.Text)
dokumen.Bookmarks("BFasilitas").Select()
aplikasi.Selection.TypeText(TxtFasilitas.Text)
dokumen.Bookmarks("BLantai").Select()
aplikasi.Selection.TypeText(TxtLantai.Text)
dokumen.Bookmarks("BTarif").Select()
aplikasi.Selection.TypeText(TxtTarif.Text)
dokumen.SaveAs2("C:\Users\ASUS X550Z\Documents\KUMPULAN TUGAS\semester 5\From Laporan Kamar Hotel New.docx")
MsgBox("PleaseWait")
aplikasi.Visible = True
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim AplikasiExcel As New Microsoft.Office.Interop.Excel.Application
Dim FileExcel As Microsoft.Office.Interop.Excel.Workbook
FileExcel = AplikasiExcel.Workbooks.Open("C:\Users\ASUS X550Z\Documents\KUMPULAN TUGAS\semester 5\From Laporan Kamar Hotell.xlsx")
AplikasiExcel.Range("A5").Value = TxtKamar.Text
AplikasiExcel.Range("B5").Value = TxtJenis.Text
AplikasiExcel.Range("C5").Value = TxtFasilitas.Text
AplikasiExcel.Range("D5").Value = TxtLantai.Text
AplikasiExcel.Range("E5").Value = TxtTarif.Text
FileExcel.SaveAs("C:\Users\ASUS X550Z\Documents\KUMPULAN TUGAS\semester 5\From Laporan Kamar Hotell Newss.xlsx")
MsgBox("Sukses")
AplikasiExcel.Visible = True
End Sub
End Class
