Membaca file Excel dan Menampilkan datanya
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
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
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
Selamat mencoba
Comments