excel

Membaca Excel Serta Menampilkan Datanya di VB6

Membaca Excel Serta Menampilkan Datanya di VB6. Kali ini kita akan membuka file excel dan menampilkan datanya, dimana pengembangan artikel ini bisa digunakan untuk membuat program impor atau konversi data sederhana, yang mana hal ini sering kita lakukan pada saat implementasi sistem.

Karena biasanya permintaan dari klien data-data manual mereka yang biasa menggunakan format excel dikonversi ke sistem baru yang kita buat.

Nah untuk memudahkan pembacaan file excel, biasanya formatnya kita buat sesederhana mungkin.
Contoh :

excel

Pertama kita buat dulu fungsi untuk membuka file ini (excel-red) dan jangan lupa tambahkan referensi Microsoft ActiveX Data Objects 2.xx library

Dim conXls As ADODB.Connection
 
Private Function openExcelFile(ByVal excelFile As String) As Boolean
    On Error GoTo errHandle
 
    Set conXls = New ADODB.Connection
    conXls.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Replace(excelFile, Chr$(0), "") & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
    conXls.Open
 
    openExcelFile = True
 
    Exit Function
errHandle:
    openExcelFile = False
End Function

Fungsi diatas adalah fungsi standar yang biasa kita gunakan untuk melakukan koneksi ke database seperti Ms Access, SQL Server, MySQL, Firebird de el el, hanya string koneksinya aja yang berbeda.




Berikut contoh penggunaan fungsi diatas.

Private Sub cmdTest_Click()
    Dim rsExcel     As ADODB.Recordset
    Dim strSql      As String
 
    List1.Clear
 
    ' misal kita membuka file data_siswa.xls yg ada di drive c
    If openExcelFile("c:\data_siswa.xls") Then
 
        ' selanjutnya data yg diambil ada di sheet1
        ' sheet disini sama seperti tabel yang ada di database
        strSql = "SELECT * FROM [Sheet1$]" ' penting !!!, jangan lupa menambahkan karakter $
        Set rsExcel = New ADODB.Recordset
        rsExcel.Open strSql, conXls, adOpenForwardOnly, adLockReadOnly
        If Not rsExcel.EOF Then
            Do While Not rsExcel.EOF
 
                ' tampilkan data yg ada sheet1 ke ListBox
                List1.AddItem rsExcel(1).Value & ", " & rsExcel(2).Value
 
                rsExcel.MoveNext
            Loop
        End If
        rsExcel.Close
        Set rsExcel = Nothing
    End If
End Sub

dan hasilnya adalah :

excel2

Selamat mencoba 🙂

Sharing is caring!

Tinggalkan Balasan