>Hello
>This code has been working ok in Excel 2003, but fails where indicated in Excel 2007 with "OLE error code 0x80020005: Data type mismatch"
>

>...
>copy to (Thisform.Ascii) Xl5
>...
>oE = Createobject("Excel.Application")
>oE.Workbooks.Open(Thisform.Ascii)
>oHoja = oE.Workbooks(1).Sheets(1)
>oHoja.Range("A1") = "Legajo"
>oHoja.Range("B1") = "Apellido, nombre"
>....
>oHoja.Rows("1").RowHeight = 60
>oHoja.Columns("C:ZZ").ColumnWidth = 15 && ******this line  fails in excel 2007
>oHoja.Rows("1").VerticalAlignment = 3
>....
>

>
>Any ideas?
>TIA

I have no problems with this:

oE = Createobject("Excel.Application")
oE.Visible = .t.
oE.Workbooks.Add()
oe.Columns("C:ZZ").ColumnWidth = 15
oe.Columns("C:ZZ").ColumnWidth = 1

oe.ActiveSheet.Columns("C:ZZ").ColumnWidth = 15
oe.ActiveSheet.Columns("C:ZZ").ColumnWidth = 1
oe.ActiveSheet.Columns("C:ZZ").ColumnWidth = 15