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.