#DEFINE xlLeft 1 #DEFINE xlCenter -4108 #DEFINE xlRight -4152 oXls=CREATEOBJECT("excel.application") oWorkBook = oXLS.Application.Workbooks.add() oXls.visible=.t. oXls.activesheet.range("A1").value = "Short text" oXls.activesheet.range("A2").value = "Some loooooooooooooong text" oXls.columns().autofit() oXls.activesheet.range("A1").alignement = xlRight && cell only oXls.activesheet.columns(1).alignement = xlRight && entire column *-- etc...HTH
Use customer >>Copy to customerxls type xls >> >>#include xlconstants.h >>oExcel=createobject('Excel.Application') >>With oExcel >> .Workbooks.Open(sys(5)+curdir()+'customerxls.xls') >> With .ActiveWorkBook.ActiveSheet >> .Range("A1").AutoFormat(xlRangeAutoFormatColor2) >>*!* *Format headers >>*!* .Cells(1,1).VALUE = "Customer Id" >>*!* * Format the data >>*!* .RANGE("1:1").FONT.Bold=.T. >>*!* .RANGE("L:L").NumberFormat = [_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)] >>*!* With .Range('A:A').Font >>*!* .Bold = .t. >>*!* .Size = 12 >>*!* .Color = rgb(255,0,0) >>*!* Endwith >>*!* With .Range('B:B').Font >>*!* .Bold = .t. >>*!* .Italic=.t. >>*!* .Size = 12 >>*!* .Color = rgb(0,0,255) >>*!* Endwith >>*!* With .Range('E:E').Font >>*!* .Bold = .t. >>*!* .Italic=.t. >>*!* .Size = 12 >>*!* Endwith >>*!* .Columns.Autofit >> .Range("A1").select >> Endwith >> .visible = .t. >>Endwith >>Comment autoformat line and uncomment the commented to see custom formatting.