oExcel = CreateObject('Excel.Application') oExcel.Workbooks.Add() oExcel.Visible = .t. oExcel.ActiveWorkbook.ActiveSheet.Range('A1').Value = "This was on row 1" oExcel.ActiveWorkbook.ActiveSheet.Range('1:1').EntireRow.Insert