J3r!t@n si R14

Berikut beberapa perintah automatisasi EXCEL dalam VFP ;

loExcel = CREATEOBJECT("Excel.Application")

loExcel.WorkBooks.Add

WITH loExcel

.Sheets(1).PageSetup.RightHeader = "&P of &N" && mengisi no.hal & jumlah hal
.Sheets(1).Cells(1,1).Value = 'Daftar Karyawan' && mengisi cell dengan nilai
.Sheets(1).Range("A1:A2").Font.Size = 14 && set font size pada area tertentu
.Sheets(1).Rows(3).RowHeight = 5 && set tinggi row pada row tertentu
.Sheets(1).Range("A4:F4").Borders.Color = RGB(255, 255,255) && memberikan warna border pada area tertentu
.Sheets(1).Range("A4:F4").Font.Bold = 'True' && set font bold pada area tertentu
.Sheets(1).Range("A4:F4").Font.Color = RGB(255, 255,255) && set font color pada area tertentu
.Sheets(1).Range("A4:F4").Interior.Color = RGB(0, 0,255) && set background pada area tertentu
.Sheets(1).PageSetup.PrintTitleRows = loExcel.Sheets(1).Rows("1:5").Address && rows to repeat on top
.Sheets(1).Cells(i,5).Formula = "=SUM(E1:E20)" && formula
.Sheets(1).Rows(i+1).PageBreak = 1 && PageBreak ( 0 ---> Delete PageBreak

ENDWITH