Pertama, buat design formnya seperti ini :
Kemudian, buat file dari MSExcel yang berhubungan dengan data yang ada di form, seperti ini :
Save file tersebut. Jangan lupa untuk mengingat di mana kita menyimpan folder tersebut, close MSExcel yang sudah di save.
Berikutnya kita masuk dalam peng-kodingan, berikut koding untuk form tersebut :
Public Class Form1
Dim myExcelApp As New Microsoft.Office.Interop.Excel.Application
Dim myExcelBook As Microsoft.Office.Interop.Excel.Workbook
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
myExcelApp.Visible = True
myExcelBook = myExcelApp.Workbooks.Open("D:\datamahasiswa.xlsx")
myExcelApp.Range("A2").Value = Me.TextBox1.Text
myExcelApp.Range("B2").Value = Me.TextBox2.Text
If RadioButton1.Checked Then
myExcelApp.Range("C2").Value = ("Pria")
End If
If RadioButton2.Checked Then
myExcelApp.Range("C2").Value = ("Wanita")
End If
myExcelApp.Range("D2").Value = Me.ComboBox1.Text
myExcelApp.Range("E2").Value = Me.ComboBox2.Text
myExcelBook.SaveAs("D:\datamahasiswa.xlsx")
myExcelApp.Quit()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Bila semua koding sudah dimasukan cobalah untuk menjalankan program tersebut. Bila program tersebut jalan maka hasilnya akan seperti ini :
Bila menurut anda form tersebut terlalu sederhana, anda bisa menambahkan sendiri data-data yang ingin ditambahkan.
Sekian penjelasan kali ini. Semoga bermanfaat^^
