lcTempFile = sys(2015)+'.tmp' copy fields ColumnToUpdateInExcel to (lcTempFile) type SDF _clipText = FileToStr(lcTempFile) erase (lcTempFile) lcXLS = 'c:\myPath\Existing.xls' oExcel = createobject('Excel.Application') with oExcel .Workbooks.Open(lcXLS) * Assuming would update D column starting at row 2 .ActiveWorkbook.ActiveSheet.Range('D2').PasteSpecial() .Visible = .t. endwithCetin