Impor data dari Excel ke Visual Basic

Berikut ini adalah cara dimana anda akan impor data dari excel ke Visual Basic. Sebelumnya saya pernah menjelaskan tentang bagaimana cara mengekspor dari Visual Basic ke Excel, dan kali ini saya akan berbagi tentang bagaiamana cara Impor data dari Excel ke Visual Basic. Berikut langkah-langkahnya. :




Langkah-langkah.
1. Buatlah 1 Form
2. Tambahkan Objek 1 DataGrid , 1 CommandButton, 1 CommonDialog
3. Properti 
DataGrid => Name = DataGrid1
CommandButton1 => Name = cmdCariFileExcel
                                  Caption = Open


CommonDialog => Name = CommonDialog1

Masukan Kode Berikut di Form1 :

'---koneksi utk access
Dim kolom As Long
Dim i As Long
Dim conn As New Connection

'---koneksi utk excel
Dim connXls As New Connection

'---recordset utk menampung data excel
Dim rsXls As New Recordset

'---recordset utk mengimport data excel
'---yg ditampung oleh recordset rsXls
Dim rsImport As New Recordset

'---recordset yg menerima/menyimpan data excel
Dim rsSaveToDatabase As New Recordset

Private Sub Command1_Click()

End Sub



Private Sub cmdCariFileExcel_Click()
     Dim FileExcel As String
 
     '---cari file excel dgn commondialog---'
     CommonDialog1.DialogTitle = "Excel File"
     CommonDialog1.Filter = "Excel (*.xls)|*.xls"
     CommonDialog1.InitDir = App.Path
     CommonDialog1.ShowOpen
     FileExcel = CommonDialog1.FileName
 
     '---kalo tombol cancel dipilih keluar prosedur
     If FileExcel = "" Then Exit Sub
 
     '---buka file excel kedalam recordset---'
        connXls.Open "Provider=Microsoft.jet.oledb.4.0;jet oledb:database password=123456;" & _
                            "Data Source=" & FileExcel & ";" & _
                            " Extended Properties=Excel 8.0;"
 
        rsXls.CursorLocation = adUseClient
        rsXls.Open "SELECT * FROM [Sheet1$]", connXls, adOpenStatic
 
        '---hitung jumlah semua field yg ada
        kolom = rsXls.Fields.Count - 1
 
        '---recordset buatan utk menampung data excel
        For i = 0 To kolom
           rsImport.Fields.Append rsXls.Fields(i).Name, adVarChar, 255
        Next
 
        rsImport.CursorLocation = adUseClient
        Set rsImport = rsXls.Clone
 
        '---tampilkan data excel ke datagrid melalui recordset buatan
        Set DataGrid1.DataSource = rsImport
End Sub

Catatan :
Sheet1 diatas yang diberi warna kuning ialah sheet mana yang akan anda impor pada file Excel tersebut, kita tau bahwa excel mempunyai "Sheet" yang tempatnya berada dibawah.