UTS VB2 Vokasi Akuntasi TSI 2013 Universitas Indonesia

Tutorial membuat aplikasi "DAFTAR MAHASISWA AKTIF VOKASI AKUNTANSI UNIVERSITAS INDONESIA"

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...