Koneksi Visual Basic dengan Excel

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

Membuat koneksi

      Dim vExcel As Excel.Application

Dim No, tbatal, tlunas, Tajt

No = 0

tbatal = 0

tlunas = 0

tajt = 0 

Dim startRow

Membuka aplikasi Excel dengan mengalokasikan memori untuk aplikasi excel.

      Set vExcel = CreateObject(“Excel.Application”)  

Membuka file tamplate yang telah disediakan.   

      vExcel.Workbooks.Add (App.Path & “\namafile.xlt”)

Mengaktifkan Worksheet excel

     vExcel.Visible = True

Menentukan windows excel ditampilkan maksimum

      vExcel.WindowState = xlMaximized   

Mengatur lebar Column misalnya column A akan di set menjadi 30

   vExcel.Columns(“A”).ColumnWidth = 30

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”

dan seterusnya …..

Dari cuplikan coding di atas 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

dan seterusnya anda tinggal membuat bagian penutup dari laporan ….