xl = createobject("excel.application") xl.workbooks.open(filfrom) fd = substr(DT,7,2) + substr(DT,1,2) + substr(DT,4,2) + CAMT + ".XLS" filto = pth + fd xl.sheets(1).select xl.cells(1,6).value = "AMOUNT" xl.ActiveWorkbook.SaveAs(filto) xl.ActiveWorkbook.Saved = .T. xl.ActiveWorkBook.Close() xl.QuitI thought there was a way to be able to do this without having msExcel installed, that microsoft provided the objects for free as a special package.