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

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

Verizon mempertahankan peringkat jaringan nirkabel teratas

Untuk kesembilan kalinya berturut-turut, Verizon telah muncul di posisi teratas dalam uji coba seminua RootMetrics dari operator nirkabel utama di AS. Untuk kesembilan kalinya berturut-turut, jaringan nirkabel terbesar di negara tersebut telah menempati posisi teratas dalam keseluruhan kinerja jaringan, menurut firma pengujian independen RootMetrics. Dalam uji coba terakhirnya terhadap empat operator nirkabel utama, RootMetrics memberi peringkat Verizon keenam kategori untuk paruh kedua tahun 2017. Ketika sampai pada kinerja keseluruhan dalam kehandalan, kecepatan, koneksi data dan panggilan, Verizon berada di peringkat 1. AT & T berada di peringkat kedua secara keseluruhan, sementara Sprint menempati posisi ketiga dan T-Mobile berada di peringkat keempat. Verizon menyapu penghargaan tidak hanya di tingkat nasional, tapi juga di tingkat negara bagian dan metro. Di 125 kota terbesar di AS, dibutuhkan waktu hampir dua kali jumlah penghargaan pertama sebagai AT & T, ...
Post a Comment
Read more
Pengertian Bootstrap, fungsi dan juga kelebihannya - Bootstrap adalah sebuah library framework CSS yang dibuat khusus untuk bagian pengembangan front-end website. Bootstrap juga merupakan salah satu framework HTML, CSS dan javascript yang paling populer di kalangan web developer yang digunakan untuk mengembangkan sebuah website yang responsive. Sehingga halaman website nantinya dapat menyesuaikan sesuai dengan ukuran monitor device (desktop, tablet, ponsel ) yang digunakan pengguna disaat mengakses website website dari browser. Pada mulanya bootstrap bernama "Twitter Blueprint" yang dikembankan oleh Mark Otto dan Jacob Thornton di Twitter sebagai kerangka kerja untuk mendorong konsistensi di alat internal. Dengan menggunakan Bootstrap seorang developer dapat dengan mudah dan cepat dalam membuat front-end sebuah website. Anda hanya perlu memanggil class-class yang diperlukan, misalnya membuat tombol, grid, tabel, navigasi dan lainnya. Bootsrap telah menyediakan kumpulan...
Post a Comment
Read more