** excel garis
PUBLIC oExcel, oBook, oSheet

#DEFINE xlInsidevertical 11
#DEFINE xlInsideHorizontal 12
#DEFINE xlEdgeBottom 9
#DEFINE xlEdgeRight 10
#DEFINE xlContinuous 1
 
oExcel = CREATEOBJECT("Excel.Application")
oExcel.Visible = .T.
oBook = oExcel.Workbooks.Add()
oSheet = oBook.Sheets[1]

oSheet.Range("A1").Value = "Superman aja tdk merokok"
oSheet.Range("A2").Value = "Tapi kan saya bukan superman"

oSheet.Range("A3:E3").Borders(xlEdgeBottom).LineStyle = xlContinuous
oSheet.Range("E1:E3").Borders(xlEdgeRight).LineStyle = xlContinuous
oSheet.Range("A1:E3").Borders(xlInsidevertical).LineStyle = xlContinuous
oSheet.Range("A1:E3").Borders(xlInsideHorizontal).LineStyle = xlContinuous