membaca tulisan di ms excel dan di tampilkan di VB.NET

berjumpa kembali dengan ane gan....
kali ini ane mau membahas tentang cara membaca tulisan di ms excel dan di tampilkan di VB.NET.
caranya begini gan :

langkah ke1:
buat satu workbook dokumen ms excel dan simpan dengan nama Baca Excel
isikan pada kolom 1 dengan tulisan Selamat Datang di Ms Excel

langkah ke 2:
buka halaman kerja visual basic windows form app
untuk mengaktifkan object ms excel pada vb, maka kita harus menambahkan reference object tersebut.
pilih Microsoft.Office.Interop.Excel pada jendela Reference

langkah ke 3:
buat form design nya gan

langkah ke 4:
sekarang saatnya mengcoding gan....
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Public Function baca_excel(ByVal filename As String, ByVal sheetname As String, ByVal row As Integer, ByVal column As Integer)
        Dim excel_App As Excel.Application
        Dim excel_WorkBook As Excel.Workbook
        Dim excel_WorkSheet As Excel.Worksheet
        excel_App = New Excel.Application
        excel_WorkBook = excel_App.Workbooks.Open(filename)
        excel_WorkSheet = excel_WorkBook.Sheets(sheetname)
        Dim value As String
        value = excel_WorkSheet.Cells(row, column).value
        excel_WorkBook.Close()
        excel_App.Quit()
        Return value

    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(baca_excel("E:\latihan visual studio\Baca Excel.xlsx", "sheet1", 1, 1))
    End Sub
End Class

note: perlu di ingat bahwa yang dibaca oleh program dari ms excel adalah kolom 1 baris 1.

MsgBox(baca_excel("E:\latihan visual studio\Baca Excel.xlsx", "sheet1", 1, 1)

jika anda ingin membacaisi atau nilai pada kolom atau baris yang lain, sesuaikan angka - angka tersebut gan

langkah ke 5 :

jalankan aplikasinya gan

selamat mencoba gan....