>Thanks a lot for your help, but I allready done it....
>
>This is the final code, I wonder if you say any comments about it....
No comments about the code, but you can make your code more readable by using the < PRE > tag at the beginning, and < /PRE > at the end (without the spaces). Otherwise, spaces and tabs disappear.
See the result below; or press "Reply" to see how it was done:
if !IsClassRegistered("Excel.Application")
messagebox("Excel is not installed")
else
a="C:\estaib\archivos\abril2006.xls"
b="C:\estaib\archivos\rankingabril2006.xls"
oExcel = createobject("Excel.application")
with oExcel
.Workbooks.Open(a)
.visible = .t.
.ActiveWorkBook.ActiveSheet.Range("E:E").Numberformat = "#,##0"
.ActiveWorkBook.ActiveSheet.Range("F:F").Numberformat = "#,##0.00"
.ActiveWorkBook.ActiveSheet.Range("A1:F1").Font.Bold=.t.
...
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)