Satu lagi cara membuat report dengan Ms Excell

Kemarin pada waktu aku berkunjung ke www.vb-bego.net aku menemukan source code gimana cara membuat report atau laporan dengan MS. Excell. langsung aja ya aku kasih sourcenya..
terima kasih kepada RidenX yang merupakan member dari www.vb-bego.net
untuk lihat sourcenya lanjutkan aja ya
saya tunggu komentarnya

Dim ApExcel As Object ' persiapkan untuk object Excel
Private Sub Command1_Click()
Dim i As Integer
Dim nama(5) As String
Dim alm(5) As String
Dim gaji(5) As String
'-------ambil data-------------------
Open App.Path & "\data.txt" For Input As #1
i = 1
Do
Input #1, nama(i), alm(i), gaji(i)
If nama(i) = "" Then Exit Do
i = i + 1
Loop Until EOF(1)


Set ApExcel = CreateObject("Excel.application") 'bikin object
ApExcel.Visible = True ' excel muncul
ApExcel.workbooks.Add 'nambahin workbook.
ApExcel.sheets("sheet1").Name = "SATU" ' me Rename Sheet satu
ApExcel.sheets("sheet2").Name = "DUA" ' me Rename Sheet dua
ApExcel.sheets("sheet3").Name = "TIGA" ' me Rename Sheet tiga
ApExcel.sheets("SATU").Activate 'Aktifkan Sheet satu



With ApExcel

.CELLS(1, 1).Value = "PT. INDONESIA TENTREM ADEM"
.CELLS(2, 1).Value = "REKAP GAJI BULAN " & UCase(Format(Month(Now), "MMMM")) & " TAHUN " & Year(Now)


.CELLS(1, 1).Font.COLORINDEX = 17 ' beri warna
.CELLS(2, 1).Font.COLORINDEX = 17



.CELLS(3, 1).Value = "No." 'Menulis di kolom 1 baris 1
.CELLS(3, 2).Value = "NAMA" 'Menulis di Kolom 2 baris 1
.CELLS(3, 3).Value = "ALAMAT" ' Menulis di kolom 3 baris 1
.CELLS(3, 4).Value = "GAJI"


.Columns(1).columnwidth = 6 ' set kolom 1 lebarnya 6
.Columns(2).columnwidth = 20 'set kolom 2 lebarnya 20
.Columns(3).columnwidth = 20 'set kolom 3 lebarnya 20
.Columns(4).columnwidth = 20 'set kolom 4 lebarnya 20
.sheets("SATU").RANGE("A1:d3").Font.Bold = True ' Bikin cetak tebel dari kolom A sampe C di sheet satu
.CELLS(3, 1).horizontalalignment = 3 '
.CELLS(3, 2).horizontalalignment = 3 'Bikin ketengah semua
.CELLS(3, 3).horizontalalignment = 3 '
.CELLS(3, 4).horizontalalignment = 3 '
For i = 1 To 5
.CELLS(3 + i, 1).Value = i 'tulis no urut
.CELLS(3 + i, 2).Value = nama(i) ' tulis nama
.CELLS(3 + i, 3).Value = alm(i) ' tulis alamat
.CELLS(3 + i, 4).Value = Format(gaji(i), "#,###,###") ' tulis gaji
Next i

.CELLS(4 + i, 4).formula = Format("=sum(D3:D" & 3 + i & ")", "#,###,###") ' sum data gajinya
.CELLS(4 + i, 2).Value = "TOTAL"
.CELLS(4 + i, 2).horizontalalignment = 3
.sheets("SATU").RANGE("b" & 4 + i & ":d" & 4 + i).Font.Bold = True 'cetak tebal bawahnya
.RANGE("a3:d" & 4 + i).borders.linestyle = 1 ' buat kotak
End With

Close (1) ' tutup file text

End Sub

databasenya menggunakan file txt jadi anda anda harus mempunyai file txt
silahkan anda buka notepad kemudian copas ni data

Unyil,Tangerang, 5000000
usro,Jakarta,1000000
Jontor,Bekasi,500000
Bapuk,Bogor,789000
JAenab,Jakarta,2000000

kemudian simpan dengan nama "data.txt"
semoga aja bermanfaat

chung chin