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
- .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”
x
vExcel.Columns(“A”).ColumnWidth = 30
Menulis informasi ke dalam worksheet
With vExcel.ActiveSheet
Tidak ada komentar:
Posting Komentar