Pembayaran Kamar Hotel

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