Koneksi Visual Basic dengan Excel

Diposkan oleh dragon on Rabu, 19 Oktober 2011

Visual basic dapat membaca dan menulis informasi dari dan keworksheet excel bahkan dapat melaksanakan perintah excel sepertimerobah lebar column, memilih jenis huruf, mengatur border dll.
Untuk membuat koneksi Visual basic dengan excel dapat dilakukandengan sangat mudah sehingga anda dengan mudah dapat menampilkanlaporan keuangan dari aplikasi database visual basic ke dalamworksheet excel mulai dari form, laporan periodik, rugilaba, neracabahkan grafik dll. Sebaliknya anda dapat mengimport data dari workseetexcel ke database.
Berikut ini adalah cara membuat koneksi visual basic ke excel untukmembuka file tamplate yang telah disediakan dan selanjutnya anda dapatmenuliskan 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 laporanpengeluaran kas yang selanjutnya anda tinggal mengisikan detail daridatabase 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 ….

{ 0 komentar... read them below or add one }

Poskan Komentar