Mengambil Nilai Sel Excel Dari VB

bagaimana caranya mengambil nilai suatu sel dari microsoft excel melalui source code visual basic?
Ada satu trik sederhana untuk melakukan hal ini:

Function getExcel(rowval As Integer, columnval As String, excelfile As String)
Dim excelSheet As Object 'Excel Sheet object
'Buat Object Excel

Set excelSheet = CreateObject(excelfile)
mycell$ = columnval & rowval
getExcel = excelSheet.ActiveSheet.Range(mycell$).Value

Set excelSheet = Nothing
End Function

untuk selanjut nya anda bisa copy paste function tersebut di program anda, dan dapat dipangil kapan saja saat diperlukan.

Contoh Penggunaan:

private sub cmdContoh_Click()
dim a
dim baris, klm as integer
dim kolom as string
dim NamaFile as string

NamaFile = App.Path & "\contoh.xls"

For baris =1 to 10
For klm = 1 to 10
Kolom = Chr(klm+ 65) ' ngerubah kolom jadi huruf, sesuai penamaan kolom di excel
IsiExcel = getExcel (baris, kolom, NamaFile) ' ambil isi cell nya
List1.AddItem IsiExcel
Next
Next

End Sub

Jangan Lupa tambahin Preferensi buat excel di program nya (Pilih Menu Project -> Preference ->Microsoft Excel Object Library), klo ngga percuma, ga jalan

Itu saja, semoga bermanfaat. ditunggu kritik dan sarannya