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

[Dokumentasi] Memulai Penggunaan yii framework

Yii adalah framework (kerangka kerja) PHP berbasis-komponen, berkinerja tinggi untuk pengembangan aplikasi Web berskala-besar. Yii menyediakan reusability maksimum dalam pemrograman Web dan mampu meningkatkan kecepatan pengembangan secara signifikan. Nama Yii (dieja sebagai /i:/ ) singkatan dari "Yes It Is!". Untuk membuat web dengan menggunakan framework yii, kita bisa membuat main project nya dengan menggunakan tool yiic (command line tool). Berikut langkah-langkah membuat aplikasi web yii dengan tool yiic. Download framework yii dari website yiiframework : http://www.yiiframework.com/download/ Extract folder isi file archive yiiframework yang telah di download ke direktori htdocs. Rename folder yii tersebut menjadi “yii” Buka command prompt, dan masuk ke direktori htdocs/yii/framework jalankan perintah berikut :yiic webapp ../../namafolderaplikasi Jika proses berhasil, maka akan otomatis melakukan generate folder-folder dan file-file aplikasi dengan framework
Post a Comment
Read more

[Dokumentasi] Konfigurasi PHP agar mendukung DB PostgreSQL

Pada saat kita menginstall PHP baik dengan menginstal paket PHP yang terpisah dengan Apache ataupun yang satu paket dengan Apachenya (ex : XAMPP), terkadang PHP tersebut belum mendukung penggunaan database PostgreSQL, untuk menjadikan PHP dapat mendukung penggunaan database PostgreSQL, berikut ini langkah-langkah yang perlu dilakukan : a. Windows Edit php.ini dan php-pear.ini  Hilangkan tanda comment (;) pada extension=php_pdo_pgsql.dll extension=php_pgsql.dll Tambahkan path lokasi folder bin Postgre pada Environment Variable -> path ex : C:\Program Files\PostgreSQL\8.3\bin Restart Windows b. Debian Install paket php, postgresql, dan paket php postgre nya -> apt-get install php5-pgsql -> apt-get install libpq-dev apt-get install postgresql-8.4 php5-pgsql tambahkan baris berikut ke php.ini extension=pgsql.so extension=pdo_pgsql.so Restart service apachenya
Post a Comment
Read more

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