VB Write to Excel

"Mas, atasan saya minta laporan dalam bentuk excel". Anda pernah mendapat permintaan seperti itu, semoga ini bisa membantu.

'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 & "\cc.xls")

vExcel.Workbooks.Add

'Menyembunyikan Worksheet excel agar tidak teinterupsi

vExcel.Visible = False

'Menentukan windows excel ditampilkan maksimum
vExcel.WindowState = 3

'Mengatur lebar Column misalnya column A akan di set menjadi 5
vExcel.Columns("A").ColumnWidth = 5
vExcel.Columns("B").ColumnWidth = 40
vExcel.Columns("C").ColumnWidth = 10


'Menulis informasi ke dalam worksheet (baris,kolom)
vExcel.ActiveSheet.Cells(1, 1).Value = "Laporan"
vExcel.ActiveSheet.Cells(1, 1).Value = "Tanggal : " & Format(date, "dd mmmm yyyy")

With vExcel.ActiveSheet
        .Cells(2, 1).Value = "No"
        .Cells(2, 1).Interior.Color = RGB(200, 160, 35)
        .Cells(2, 2).Value = "Keterangan"
        .Cells(2, 2).Interior.Color = RGB(200, 160, 35)
        .Cells(2, 3).Value = "jumlah"
        .Cells(2, 3).Interior.Color = RGB(200, 160, 35)

        .Cells(3, 1).Value = "1"
        .Cells(3, 2).Value = "Pendapatan"
        .Cells(3, 3).Value = 12000
End With
'Menampilkan windows excel
vExcel.Visible = True