>>cMemovalue=mytable.memofield >>oExcel=CREATEOBJECT('Excel.Application') >>oExcel.workbooks.add >>WITH oExcel.workbooks[1].activesheet >> for nLoop=1 TO MEMLINES(cMemovalue) >> .range('A'+TRANSFORM(nLoop)).value=MLINE(cMemovalue,nLoop) >> endfor >>endwith >>oExcel.visible=.t. >>>