Export File Excel dari Visual Basic 6.0

Banyak data laporan atau hasil penjualan yang di olah di excel, terkadang untuk membuat suatu chart atau menganalisa data masih banyak orang yang menggunakan program ini, maka dari itu saya buat tutorial ini karena berguna untuk saya, siapa tau pembaca juga butuh source code nya.

Berikut ini adalah contoh program untuk mengolah data dan di simpan dalam bentuk excel dengan menggunakan program Visual Basic 6.0. Di sini saya akan tunjukan cara akses excel dan membuat file excel dengan menggunakan program sederhana Visual Basik 6.0.

Ikuti langkah - langkah berikut.

• Buka program Microsoft Visual Basic 6.0.
• Add Reference Excel Project => References akan muncul tampilan seperti berikut.

• Click Browse lalu cari program excelnya contoh program excel saya ada di C:\Program Files (x86)\Microsoft Office\Office12\Excel.exe lalu click Open maka otomatis Microsoft Excel Lib akan masuk ke list reference.
• Pastikan Library excel nya tercentang, click Ok.
• Click kanan di Tool box pilih Components atau Ctrl+T.
• Maka akan muncul tampilan Components, di tab Control cari Microsoft Windows Common Controls 6.0(sp6). karena kita akan menggunakan komponen ListView.
• Tambahkan object berikut, Label = 5, TextBox = 5, CommandButton = 2 dan terkhir ListView = 1.
• Susun tampilannya seperti gambar berikut.

• Edit nama objek menjadi seperti berikut,

1. TxtNama
2. TxtAlamat
3. TxtGolDarah
4. TxtTinggi
5. TxtBerat
6. CmdAdd
7. LV
8. CmdExport

• Untuk LV setting terlebih dahulu propertiesnya, caranya Click kanan pada object LV lalu pilih properties, maka akan muncul tampilan seperti di bawah.

• Berikut yang harus di setting di Tab General :

1. View : 3 - lvwReport
2. LabelEdit : 1 - lvwManual
3. Gridlines : Checked
4. FullRowSelect : Checked

• Lalu tambahkan Column di tab Column Headers click insert column untuk menambahkan dan remove column untuk menghapus.
• Ganti setiap text column seperti berikut, untuk index :

1. No
2. Nama
3. Alamat
4. Gol Darah
5. Tinggi
6. Berat

• Jika sudah selesai tinggal memasukan Syntax Seperti berikut :

Option Explicit

'Konstanta untuk identifikasi kolum LV agar lebih mudah di kenali.

Private Const vNo = 0

Private Const vNama = 1

Private Const vAlamat = 2

Private Const vGolDarah = 3

Private Const vTinggi = 4

Private Const vBerat = 5

'====================================

Private Sub CmdAdd_Click()

    Dim oListItems

    

    Set oListItems = LV.ListItems.Add(, , LV.ListItems.Count + 1)

    oListItems.ListSubItems.Add , , TxtNama.Text

    oListItems.ListSubItems.Add , , TxtAlamat.Text

    oListItems.ListSubItems.Add , , TxtGolDarah.Text

    oListItems.ListSubItems.Add , , TxtTinggi.Text

    oListItems.ListSubItems.Add , , TxtBerat.Text

End Sub

Private Sub CmdExport_Click()

    ExportExcel

End Sub

Private Sub Form_Load()

    DefaultForm

    DesignLV

End Sub

Private Sub DesignLV()

    LV.ColumnHeaders(vNo + 1).Width = 500

    LV.ColumnHeaders(vNama + 1).Width = 2000

    LV.ColumnHeaders(vAlamat + 1).Width = 2000

    LV.ColumnHeaders(vGolDarah + 1).Width = 1300

    LV.ColumnHeaders(vTinggi + 1).Width = 1300

    LV.ColumnHeaders(vBerat + 1).Width = 1300

End Sub

Private Sub DefaultForm()

    TxtNama.Text = ""

    TxtAlamat.Text = ""

    TxtGolDarah.Text = ""

    TxtTinggi.Text = ""

    TxtBerat.Text = ""

End Sub

Private Sub ExportExcel()

    Dim Fieldx As Integer                             'Untuk Index

    Dim Idx As Integer

    

    Dim ApExcel As Object                             'Untuk Membuka Aplikasi Excel

    Dim oExcel As Object

    Dim oBook As Object

    Dim oSheet As Object

        

    Set oExcel = CreateObject("Excel.Application")

    Set oBook = oExcel.Workbooks.Add

    

'Header

    'Untuk memasukan text di excel

    oExcel.Cells(1, 1).Formula = "DAFTAR DATA GOLONGAN DARAH PESERTA"

    'Untuk Merge cell

    oExcel.Range(oExcel.Cells(1, 1), oExcel.Cells(1, vBerat + 1)).Merge

    'Formating cell

    oExcel.Cells(1, 1).Font.Size = 15

    

    oExcel.Cells(2, vNo + 1).Formula = "No."

    oExcel.Cells(2, vNama + 1).Formula = "Nama"

    oExcel.Cells(2, vAlamat + 1).Formula = "Alamat"

    oExcel.Cells(2, vGolDarah + 1).Formula = "Gol Darah"

    oExcel.Cells(2, vTinggi + 1).Formula = "Tinggi"

    oExcel.Cells(2, vBerat + 1).Formula = "Berat"

    

    'Mengatur Lebar Column, Warna cell dan warna font

    oExcel.Columns(vNo + 1).ColumnWidth = 5

    oExcel.Columns(vNama + 1).ColumnWidth = 30

    oExcel.Columns(vAlamat + 1).ColumnWidth = 30

    oExcel.Columns(vGolDarah + 1).ColumnWidth = 15

    oExcel.Columns(vTinggi + 1).ColumnWidth = 15

    oExcel.Columns(vBerat + 1).ColumnWidth = 15

    

    For Fieldx = 1 To vBerat + 1

        oExcel.Cells(2, Fieldx).Interior.ColorIndex = 1

        oExcel.Cells(2, Fieldx).Font.ColorIndex = 2

    Next Fieldx

    

    For Idx = 1 To LV.ListItems.Count

        oExcel.Cells(Idx + 2, 1).Formula = LV.ListItems(Idx).Text

        For Fieldx = 1 To vBerat

            oExcel.Cells(Idx + 2, Fieldx + 1).Formula = LV.ListItems(Idx).ListSubItems(Fieldx).Text

            DoEvents

        Next Fieldx

        DoEvents

    Next Idx

    

    'Untuk Menampilkan Data Excel

    oExcel.Visible = True

End Sub

• Sampai di sini proses pembuatan program untuk Export ke Excel sudah selesai.

Contoh programnya bisa kalian download di sini :

Download

Password : kumprog.blogspot.com