Blog Eza: BLOG Akagami D.Eza

Hai bertemu lagi di blog saya .dengan nama ,yahh sebut sajah akagami hehehhe
kali ini saya akan membahas membuat aplikasi sederhana perpustakaan dengan menghubungkan Vb.net dengan Microsoft excel ..

berikut tutorialnya:

1.Pertama - tama buat desaign nya dulu di Msexcel:

2.Kemudian buka vb.net lalu pilih new project.

3.Pilih windows project application, pilih OK.

4.Setelah itu akan muncul tampilan seperti gambar di bawah ini, Kemudian buat desaign sesuai dengan kebutuhan anda.

5.Setelah selesai buat desaign nya lanjut ke coding.

6.Sebelum masuk ke coding jangan lupa untuk mengubah variable name nya terlebih dahulu (bebas tergantung anda). Lalu klik dua kali pada button save.

7.kemudian pilih project , add Refference lalu cari Microsoft excel dan klik OK seperti gambar di bawah ini:

8.Kemudian masukan coding nya seperti gambar dibawah ini:

Imports excel = Microsoft.Office.Interop.Excel
Public Class DataBuku

Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
Dim aplikasiExcel As New excel.Application
Dim FileExcel As excel.Workbook
FileExcel = aplikasiExcel.Workbooks.Open("G:\DataBuku.xlsx")

Dim baris = 4
While aplikasiExcel.Range("A" & baris).Value <> ""
baris += 1
End While
aplikasiExcel.Range("A" & baris).Value = KodeBuku.Text
aplikasiExcel.Range("B" & baris).Value = JudulBuku.Text
aplikasiExcel.Range("C" & baris).Value = Pengarang.Text
aplikasiExcel.Range("D" & baris).Value = Penerbit.Text
aplikasiExcel.Range("E" & baris).Value = TahunTerbit.Text
aplikasiExcel.Range("F" & baris).Value = Jumlah.Text

FileExcel.SaveAs("G:\DataBuku.xlsx")
FileExcel.Close()
MsgBox("Berhasil Menyimpan Ke Excel")

End Sub
End Class

9.Setelah coding nya selesai klik panah hijau atau F5 untuk Run Aplikasi, setelah aplikasi nya berjalan masukan data lalu klik save dan akan ada notife jika berhasil tersimpan.