Berikut ScreenShot Aplikasi nya
Dan, berikut source code yang digunakan
Public Class Form1
Dim excelapp As New Microsoft.Office.Interop.Excel.Application
Dim excelbook As New Microsoft.Office.Interop.Excel.Workbook
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i As Double
excelbook = excelapp.Workbooks.Open("D:\UTS VB2\Daftar Mahasiswa Aktif VAUI.xlsx")
excelapp.Range("A" + CStr(i + 1)).Value = TextBox1.Text
excelapp.Range("B" + CStr(i + 1)).Value = TextBox2.Text
excelapp.Range("C" + CStr(i + 1)).Value = TextBox3.Text
excelapp.Range("D" + CStr(i + 1)).Value = TextBox4.Text
excelapp.Visible = True
End Sub
End Class
Sekian tutorial yang dapat saya buat.
Terima Kasih...
