>#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.