MENGEXPORT DATABASE VB 6.0 KE MICROSOFT EXCEL

Sebuah aplikasi akan semakin lengkap jika ditambahkan fasilitas untuk melakukan export data ke dalam aplikasi Microsoft Excel. Fasilitas ini nantinya dapat mempermudah pengolahan data, apalagi bagi pengguna komputer yang terbiasa dengan aplikasi Ms Excel.
Dibawah ini adalah form sederhana yang digunakan untuk mengexport database Visual Basic (menggunakan database Ms Access) ke dalam aplikasi Ms Excel.
Langkah – langkah yang harus dilalui adalah:

1. Buat sebuah Project
2. Buat/persiapkan sebuah database yang akan digunakan (latihan dibawah ini struktur tabelnya NIS, NAMA, NILAI, KRITERIA)
   
3. Design form dengan tampilan seperti gambar berikut (2 Commandbutton, 1 MsFlexgrid, 1 Data)
4. Tambahkan Referensi program dengan menggunakan peritah Project –> Reference…. Kemudian pilih Microsoft Excel 12.00 Object Library (sesuai dengan versi aplikasi Ms Excel di computer anda)
5. Lengkapi form anda dengan scrip berikut: (sesuaikan nama masing object sesuai dengan nama yang ada pada form anda)

Dim MsExcel As Excel.Application

Private Sub Command1_Click()

MsExcel.Workbooks.Add

MsExcel.Range("A1").Value = "NIS"

MsExcel.Range("B1").Value = "NAMA"

MsExcel.Range("C1").Value = "NILAI"

MsExcel.Range("D1").Value = "KRITERIA"

i = 1

Do While Not Data1.Recordset.EOF

MsExcel.Range("A" & i + 1).Value = Val(Data1.Recordset!NIS)

MsExcel.Range("B" & i + 1).Value = Data1.Recordset!NAMA

MsExcel.Range("C" & i + 1).Value = Data1.Recordset!NILAI

MsExcel.Range("D" & i + 1).Value = Val(Data1.Recordset!KRITERIA)

i = i + 1

Data1.Recordset.MoveNext

Loop

MsExcel.Visible = True

End Sub

Private Sub Command2_Click()

end

End Sub

Private Sub Form_Load()

Set MsExcel = CreateObject("Excel.Application")

End Sub

Private Sub Form_Unload(Cancel As Integer)

MsExcel.Quit

End Sub

Selamat Mencoba dan semoga bermanfaat........