oExcel = CreateObject("Excel.Application") With oExcel .Workbooks.Open('e:\testfile') .WorkSheets(1).Activate .ActiveSheet.Rows("3:3").AutoFit .ActiveSheet.Cells(3,1).Value = 'Very long string from VFP 0123456789' .ActiveSheet.Cells(3,1).WrapText = .T. && It works for me .visible = .T. EndWithHTH,