CREATE CURSOR T (nSumm N( 10 ),cNaim C( 20 ))
INSERT INTO T (nSumm, cNaim) VALUES ( 34 ,"РУССКИЙ-ENGLISH")
INSERT INTO T (nSumm, cNaim) VALUES ( 12345 ,"ENGLISH-РУССКИЙ")
GO TOP

LOCAL loExel , LoError
 
 LoError = ON("Error")
 ON ERROR loExel= .NULL.
 loExel= GETOBJECT( ,"EXCEL.application")
 ON ERROR &LoError
	if ISNULL(loExel) 
		loExel= CreateObject("EXCEL.application") 
	ENDIF
	 
WITH LoExel   
.Visible  = .T. 
.Workbooks.Add()

nRec = RECCOUNT("T")
_Vfp.DataToClip("T",nRec, 3 ) && Заносит данные курсора в буфер 
*Модификация буфера для корректной вставки в ячейки
ClipB = _CLIPTEXT            		  && заносит данные буфера в переменную
R = "	" + Chr( 13 )          		  && ТАВ + ENTER
N = AT(R,ClipB)                		  && Ищет первое вхождение ТАВ + ENTER
ClipB = SUBSTR(ClipB,N+ 2 )     		  && Удаляет строку с полями (возвращает строку после первого ТАВ + ENTER)
ClipB = STRTRAN(ClipB,'  ','')		  && заменяет два пробела на пустую строку
ClipB = STRTRAN(ClipB,R,' ' + Chr( 13 )) && заменяет ТАВ + ENTER на Пробел + ENTER 
_ClipText = ClipB && заносит данные в буфер 

.Range("A1").Select
.ActiveSheet.Paste 

.Range("B4").Select  
 .ActiveCell.FormulaR1C1 = "РУССКИЙ-ENGLISH" 
ENDWITH  

.ActiveSheet.PasteSpecial("Текст",.F.)