loSheet.Range("a1:a12").NumberFormat = "###,###,###.00"
loSheet.Columns(1).AutoFit()

>
>To export data to Excel, I use following command
>

>select master1
>Copy to C:\gin_exp.xls type xls FIELDS LIKE C*,D* EXCEPT CREDIT,DR_CR
>
>loExcel = createobject("Excel.Application")
>loWorkbook = loExcel.workbooks.open('C:\gin_exp.xls')
>loSheet = loWorkbook.sheets(1) && or pass the name of your sheet as a string!
>loExcel.Visible = .T. && display Excel
>thisform.refresh
>

>
>It works fine and there is no problem.
>But how to apply following formats in above excel sheet,
>comma format
>Column autofit
>
>Please help