Skip to main content

[Dokumentasi] Contoh sederhana export excel dari Visual Basic 6.0

Dalam pemrograman basisdata, sebagai programmer, kita dituntut untuk dapat menghasilkan output berupa laporan. Cara menghasilkan laporan tersebut tentunya berbeda-beda. Salah satu cara menghasilkan output laporan adalah menampilkan laporan tersebut ke excel.
Berikut ini diuraikan langkah-langkah pembuatan output excel sederhana dengan menggunakan Visual Basic 6.0 :
  1. Buat satu project baru pada visual basic 6.0
  2. Tambahkan 1 CommandButton pada form dan beri nama Command1
  3. Buka code viewer pada form yang telah disediakan CommandButton tadi Deklarasikan object untuk menghasilkan file excel

    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
  4. Double Click pada CommandButton tadi untuk menambahkan code pada event click'- Set object yang telah dideklarasikan sebelumnya untuk membuat objek Excel
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Add
    Set oSheet = oBook.Worksheets(1)'- Lakukan pengaturan untuk masing-masing kolom
    oExcel.ActiveSheet.Cells(1, 1).ColumnWidth = 10
    oExcel.ActiveSheet.Cells(1, 2).ColumnWidth = 25
    oExcel.ActiveSheet.Cells(1, 3).ColumnWidth = 16
    '- Untuk membuat border pada cell, dapat dilihat pada listing code berikut
    'Borders Param -> 1 = left, 2 = right, 3 = top, 4 = bottom
    'LineStyle -> 1 = Continuos
    oExcel.Range(oExcel.ActiveSheet.Cells(1, 1), oExcel.ActiveSheet.Cells(6, 3)).Borders(1).LineStyle = 1
    oExcel.Range(oExcel.ActiveSheet.Cells(1, 1), oExcel.ActiveSheet.Cells(6, 3)).Borders(2).LineStyle = 1
    oExcel.Range(oExcel.ActiveSheet.Cells(1, 1), oExcel.ActiveSheet.Cells(6, 3)).Borders(3).LineStyle = 1
    oExcel.Range(oExcel.ActiveSheet.Cells(1, 1), oExcel.ActiveSheet.Cells(6, 3)).Borders(4).LineStyle = 1
    '- Lakukan pengaturan alignment pada cell
    'Set HorizontalAlignment per Cell
    oExcel.ActiveSheet.Cells(1, 1).HorizontalAlignment() = 3
    oExcel.ActiveSheet.Cells(1, 2).HorizontalAlignment() = 3
    oExcel.ActiveSheet.Cells(1, 3).HorizontalAlignment() = 3
    '- Pengaturan alignment juga dapat dilakukan sekaligus pada beberapa cell
    'Set HorizontalAlignment per Range
    oExcel.Range(oExcel.ActiveSheet.Cells(2, 1), oExcel.ActiveSheet.Cells(6, 1)).HorizontalAlignment() = 3
    '- Tampilkan data yang ingin dimuat dalam file excel tersebut, data dapat pula diambil dari database
    'Set Text into cells
    oExcel.ActiveSheet.Cells(1, 1).Value = "Nomor"
    oExcel.ActiveSheet.Cells(1, 2).Value = "Nama"
    oExcel.ActiveSheet.Cells(1, 3).Value = "Jumlah"
    oExcel.ActiveSheet.Cells(2, 1).Value = "1"
    oExcel.ActiveSheet.Cells(2, 2).Value = "Nama"
    oExcel.ActiveSheet.Cells(2, 3).Value = "Jumlah"
    oExcel.ActiveSheet.Cells(3, 1).Value = "2"
    oExcel.ActiveSheet.Cells(3, 2).Value = "Nama"
    oExcel.ActiveSheet.Cells(3, 3).Value = "Jumlah"
    oExcel.ActiveSheet.Cells(4, 1).Value = "3"
    oExcel.ActiveSheet.Cells(4, 2).Value = "Nama"
    oExcel.ActiveSheet.Cells(4, 3).Value = "Jumlah"
    oExcel.ActiveSheet.Cells(5, 1).Value = "4"
    oExcel.ActiveSheet.Cells(5, 2).Value = "Nama"
    oExcel.ActiveSheet.Cells(5, 3).Value = "Jumlah"
    oExcel.ActiveSheet.Cells(6, 1).Value = "5"
    oExcel.ActiveSheet.Cells(6, 2).Value = "Nama"
    oExcel.ActiveSheet.Cells(6, 3).Value = "Jumlah"
    '- Simpan file excel tersebut ke media penyimpanan
    'Save Excel File to Drive C
    oBook.SaveAs "C:\Book1.xlsx"
    '- Tampilkan file excel yang telah dibuat
    'Show Excel , and if you wanna hide it, set to false
    oExcel.Visible = True
    '- Setelah selesai proses pembuatan file, kita dapat keluar dari excel
    'Exit from Excel
    oExcel.Quit
  5. Lakukan modifikasi sesuai kebutuhan Anda...
---------------------->>> bersambung  pada sesi export excel selanjutnya
Labels:

Comments

Post a Comment

Popular posts from this blog

Tim Apple bergabung dengan Alipay untuk merajai China

Industri pembayaran mobile China menghasilkan lebih dari $ 9 triliun per tahun, dan Alipay adalah pemimpin pasar. Apple memenangkan medali perak China tahun lalu, dengan iPhone 7 Plus menjadi ponsel terlaris kedua di negara berpenduduk pada 2017. Pada 2018, raksasa elektronik tersebut mencari emas. Dalam sebuah langkah yang tidak biasa, Apple bermitra dengan Ant Financial, perusahaan afiliasi raksasa e-commerce Alibaba, untuk memungkinkan pelanggan membeli produk di toko dan online menggunakan Alipay, sistem pembayaran yang bersaing dengan Apple Pay. Sebagai gantinya, aplikasi Alipay akan memiliki bagian khusus untuk pembelian App Store. Meskipun layanan seperti PayPal dan Alipay dapat digunakan di App Store, iTunes dan Apple Music, Ant Financial menggembar-gemborkan ini sebagai pertama kalinya Apple mengizinkan metode pembayaran mobile pihak ketiga di toko fisiknya. China adalah pasar yang sangat besar untuk Apple, dengan penjualan $ 9,8 miliar pada kuartal keempat tahun 2017 saja....
Post a Comment
Read more

Manfaat Kumis Kucing bagi Kesehatan

Kumis kucing sudah tidak saing lagi di Indonesia. Tanaman yang mempunyai nama latin Orthosiphon aristatus ini sudah lama dikenal sebagai tanaman obat yang berkhasiat menyembuhkan berbagai macam penyakit. Tanaman ini bisa dijadikan bahan untuk membuat ramuan herbal dengan racikan dan takaran tertentu sehingga menjadi obat yang sangat ampuh. Manfaat dari tanaman ini yang paling terkenal adalah sebagai obat kencing batu. Tanaman ini akan meluruhkan kencing batu sehingga bisa melancarkan saluran kemih. Selain itu tanaman ini juga berkhasiat untuk mengobati rematik, asam urat, batuk, masuk angin, diabetes, dan hipertensi.
Post a Comment
Read more

Twitter memposting keuntungan pertama meski ada masalah bot

Jaringan sosial lambat berkembang karena berkaitan dengan kekhawatiran akan jutaan akun palsu yang melakukan tweet dan retweet di seluruh platform.   Ada jutaan akun palsu yang melakukan tweet , retweet dan like ke sebagian besar akun terkenal di Twitter. Jadi apa yang akan dilakukan perusahaan tentang hal itu?   Masalahnya telah menggelegak di bawah permukaan di Twitter selama bertahun-tahun. Tapi itu dibawa ke permukaan oleh The New York Times, yang menemukan perusahaan yang menghasilkan uang dengan menggunakan bots - program komputer otomatis yang terkadang berperan sebagai orang sungguhan - untuk memperbanyak pengikut selebriti, eksekutif bisnis, dan bahkan anggota dewan Twitter sendiri sebenarnya punya. Twitter mulai membersihkan jutaan akun palsu untuk menanggapi hal ini. Sulit untuk mengatakan berapa banyak akun palsu di luar sana. Sebuah studi yang dirilis tahun lalu menemukan bahwa sebanyak 15 persen akun Twitter aktif dikendalikan oleh bot. Twitter menga...
Post a Comment
Read more