Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Membaca File Excel Dan Menampilkan Datanya

| Comments

Ceritanya 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 :

Atau klo mau dikasir warna dan border juga boleh :D

Nah berhubung postingan kali ini di “TAG” visual basic 6, otomatis sample programnya juga menggunakan bahasa ini.

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

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

Selamat mencoba :)

Comments