Cara Membuat Laporan Excel Dengan VB 6.0

Pada pembelajaran VB 6.0 kali ini akan dibahas mengenai cara membuat Laporan VB 6.0 ke Office Excel, atau Cara mengexport database ke excel dengan VB 6.0.

Bagi anda yang sering berkunjung ke Blog ini mungkin banyak disuguhkan dari kami membuat laporan dengan crystal report. nah kali ini agak sedikit berbeda karena kami menggunakan MS Office Excel.

Langsung saja :
Saya mempunya database dengan nama : DBAplikasi.mdb
Kemudian kami juga membuat Tabel : KamarHotel yang isi dari tabel Kamar Hotel adalah sebagai berikut :

Pastikan anda membuat sebuah Folder dan folder tersebut terdapat Project VB 6.0, form, dan database diatas (Project dan Database didalam 1 folder)

Buatlah Form dengan design seperti gambar dibawah :

Klik Project - Reference

Checklist Microsoft Excel seperti gambar diatas
Masukan koding dibawah kedalam form tersebut :

Dim Koneksi As New ADODB.Connection
Dim RSKamarHotel As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSKamarHotel = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBAplikasi.mdb"
End Sub
Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "KamarHotel"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command1_Click()
Call BukaDB
RSKamarHotel.Open "Select * From KamarHotel", Koneksi
Dim EXCELAPPKU As Excel.Application
Dim excelbookku As Excel.Workbook
Dim excelsheetku As Excel.Worksheet
Dim baris, datake As Integer
Label1.Caption = "Status : Prosesing Data...."
Set EXCELAPPKU = New Excel.Application
Set excelbookku = EXCELAPPKU.Workbooks.Add
With EXCELAPPKU
.StandardFontSize = "10"
End With
EXCELAPPKU.Visible = True
Set excelsheetku = excelbookku.Worksheets(1)
excelsheetku.Select
With excelsheetku
.Cells(2, 1).Value = "Kode Kamar"
.Cells(2, 2).Value = "Nama Kamar"
.Cells(2, 3).Value = "Harga Permalam"
.Cells(2, 4).Value = "Status Kamar"
.Cells(2, 5).Value = "Keterangan"
Label1.Caption = "Status : Prosesing Data..."
baris = 3
datake = 0
If Not RSKamarHotel.BOF Then
RSKamarHotel.MoveFirst
While Not RSKamarHotel.EOF
Label1.Caption = "Status : Exporting Data ke " & datake
Label1.Refresh
datake = datake + 1
.Cells(1, 5).Value = "Fetching data ke " & datake
.Cells(baris, 1) = RSKamarHotel![KodeKamar]
.Cells(baris, 2) = RSKamarHotel![NamaKamar]
.Cells(baris, 3) = RSKamarHotel![HargaPermalam]
.Cells(baris, 4) = RSKamarHotel![StatusKamar]
.Cells(baris, 5) = RSKamarHotel![Keterangan]
RSKamarHotel.MoveNext
Wend
End If
.Cells(1, 5).ClearContents
.Columns("A:A").EntireColumn.AutoFit
.Columns("B:B").EntireColumn.AutoFit
.Columns("C:C").EntireColumn.AutoFit
.Columns("D:D").EntireColumn.AutoFit
End With
RSKamarHotel.Close
Label1.Caption = "Status : Selesai."
On Error GoTo 0
Set excelsheetku = Nothing
Set excelbookku = Nothing
MsgBox "Export data selesai", vbInformation, "Informasi"
End Sub

Jalankan Project anda, dan semoga bermanfaat untuk belajar Visual Basic 6.0