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