Koneksi Antara Visual Basic dan Microsoft Excel

Assalamulaikum wr.wb

Pada kali ini saya akan membahas apa hubungan atau koneksi antar bahasa pemrograman VB dengan Ms Excel. Pertama-tama kita harus tahu apa itu visual basic. Visual Basic ialah Bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).

Lalu selanjutnya ialah Visual basic dapat membaca dan menulis informasi dari dan ke worksheet excel bahkan dapat melaksanakan perintah excel seperti merobah lebar column, memilih jenis huruf, mengatur border dll.

Untuk membuat koneksi Visual basic dengan excel dapat dilakukan dengan sangat mudah sehingga anda dengan mudah dapat menampilkan laporan keuangan dari aplikasi database visual basic ke dalam worksheet excel mulai dari form, laporan periodik, rugilaba, neraca bahkan grafik dll. Sebaliknya anda dapat mengimport data dari workseet excel ke database.
Berikut ini adalah cara membuat koneksi visual basic ke excel untuk membuka file tamplate yang telah disediakan dan selanjutnya anda dapat menuliskan informasi pada worksheet tersebut

1. Membuat koneksi

Dim vExcel As Excel.Application
Dim No, tbatal, tlunas, Tajt
No = 0
tbatal = 0
tlunas = 0
tajt = 0
Dim startRow

2. Membuka aplikasi Excel dengan mengalokasikan memori untuk aplikasi excel.

Set vExcel = CreateObject(“Excel.Application”) 
Digunakan untuk membuka file tamplate yang telah disediakan. 

vExcel.Workbooks.Add (App.Path & “\namafile.xlt”)
Digunakan untuk mengaktifkan Worksheet excel

vExcel.Visible = True
Digunakan untuk menentukan windows excel ditampilkan maksimum

vExcel.WindowState = xlMaximized
Digunakan untuk mengatur lebar Column misalnya column A akan di set menjadi 30

vExcel.Columns(“A”).ColumnWidth = 30
Digunakan untuk menulis informasi ke dalam worksheet

With vExcel.ActiveSheet
.Cells(1, 1).Value = MyCom
.Cells(2, 1).Value = MyAddr
.Cells(3, 1).Value = “LAPORAN PENGELUARAN KAS”
.Cells(4, 1).Value = “PERIODE : ” & Format(DrTgl, “dd-MMM”) & ” s/d ” & Format(SdTgl, “dd-MMM-YYYY”)

.Cells(6, 1).Value = “No”
.Cells(6, 2).Value = “Voucher”
.Cells(7, 2).Value = “Nomor”
.Cells(7, 3).Value = “Tanggal”
.Cells(6, 4).Value = “Chk/Giro”
.Cells(7, 4).Value = “Nomor”
.Cells(7, 5).Value = “Efektif”
.Cells(6, 6).Value = “Rek”
.Cells(6, 7).Value = “KodeSpl”
.Cells(6, 8).Value = “Jumlah”
.Cells(6, 9).Value = “Keterangan”

Dari codingan diatas anda telah mendapatkan header laporan pengeluaran kas yang selanjutnya anda tinggal mengisikan detail dari database yang telah tekoneksi melalui kodesi Ado dengan recordsed rs sbb

N = 1

startRow

Do While Not rs.EOF

‘Cells(Baris,Kolom)

.Cells(startRow + N, 1).Value = N

.Cells(startRow + N, 2).Value = rs!Voucher

.Cells(startRow + N, 3).Value = rs!tanggal

.Cells(startRow + N, 4).Value = rs!chkNo

.Cells(startRow + N, 5).Value = rs!efektif

.Cells(startRow + N, 6).Value = Left(rs!account, 6)

.Cells(startRow + N, 7).Value = rs!kodespl

.Cells(startRow + N, 8).Value = rs!Jumlah

.Cells(startRow + N, 9).Value = rs!Ket
‘ mendapatkan data yang telah jatuh tempo dan yang belum jatuh tempo

if rs!batal then

tbatal = tbatal + 1

else

If rs!efektif <= Date Then
tlunas = tlunas + rs!Jumlah
Else
Tajt = Tajt + rs!Jumlah
End If

End If
rs.MoveNext
N = N + 1
Loop

Langkah selanjutnya ialah anda cukup untuk membuat bagian penutupan pada laporan anda.

Sekian artikel yang saya sampaikan , mohon maaf bila ada kekurangan dalam penyampaian informasi.

Wassalamualaikum wr.wb

Source : https://zulidamel.wordpress.com/2007/11/10/koneksi-visual-basic-dengan-excel/