_vfp.DataToClip(ALIAS(),,3) lnLines = ALINES(laClipboard, _CLIPTEXT) _CLIPTEXT="" FOR i=2 TO lnLines _CLIPTEXT = _CLIPTEXT + laClipboard[i] + CHR(13) + CHR(10) ENDFOR &&* i=2 TO lnLines *-- copy data to Excel