meng Export Recordset ke Excel di Visual Basic 6.0

Berikut ini adalah contoh code di Visual Basic 6 untuk mengexport data yang ada dalam sebuah recordset ke document excel. Langsung ikuti langkah"nya aja yach …!

Buat project exe baru, kemudian tambahkan reference di menu Project > References, kemudian berikan tanda centang di Microsoft Excel 9.0 Object Library kemudian klik OK
Tambahkan satu Class Module ke dalam project dan beri nama sesuai keinginan anda misal ExportExcel
Kemudian Ketikkan Code berikut ke dalam class module yang baru saja anda buat tadi
------------------------------------------

       Dim rs As ADODB.Recordset

      Public Property Let RecordSource(m_rs As Recordset)

      Set rs = m_rs

      End Property

      Public Sub ExportToExcel()

      Dim App As Application

      Dim Wb As Workbook

      Dim Wk As Worksheet

      Dim Baris As Long, Kolom As Integer

      Set App = Excel.Application

      Set Wb = App.Workbooks.Add

      Set Wk = Wb.Worksheets(1)

      With rs

      Baris = 1

      Kolom = 0

      'mencetak header / nama kolom

      For Kolom = 1 To rs.Fields.Count

      Wk.Cells(1, Kolom) = rs.Fields(Kolom - 1).Name

      Next Kolom

      'mencetak data dimulai dari record pertama

      'dan diulang sampai record habis / eof

      .MoveFirst

      While Not .EOF

      Baris = Baris + 1

      For Kolom = 1 To rs.Fields.Count

      Wk.Cells(Baris, Kolom) = rs.Fields(Kolom - 1)

      Next Kolom

      .MoveNext

      Wend

      End With

      'memunculkan aplikasi excel

      App.Visible = True

      'memutus sambungan dengan excel

      Set Wk = Nothing

      Set Wb = Nothing

      Set App = Nothing

      End Sub

Setelah itu di form buat koneksi dengan database menggunakan object ADODB, setelah itu buat variabel baru sebagai nama class yang baru saja di buat, dilanjutkan dengan mengeset property RecordSource dari class tadi dan berikutnya jalankan method ExportToExcel.