* Создаем объект Excel
LOCAL comExcel
comExcel=CREATEOBJECT('Excel.Application')
comExcel.workbooks.Add
* Делаем Excel видимым
* Эту команду надо давать в самом конце формирования листа Excel
* здесь она приведена для наглядности
comExcel.Visible= .T.
* Сохраняем текущее значение буфера обмена
LOCAL lcClipText
lcClipText = _clipText
* вставляем текст в буфер обмена
* CHR( 9 ) - клавиша Tab - переход на следующую ячейку в текущей строке
* CHR( 13 ) - клавиша Enter - переход на следующую строку в первом столбце указанного диапазона
_cliptext='Ячейка 1:1'+CHR( 9 )+'Ячейка 1:2'+CHR( 9 )+'Ячейка 1:3'+CHR( 13 )+;
		'Ячейка 2:1'+CHR( 9 )+'Ячейка 2:2'+CHR( 9 )+'Ячейка 2:3'+CHR( 13 )+;
		'Ячейка 3:1'+CHR( 9 )+'Ячейка 3:2'+CHR( 9 )+'Ячейка 3:3'

* копируем буфер обмена в нужное место Excel
comExcel.Cells( 1 , 1 ).PasteSpecial( 1 )
* еще раз копируем в другое место
comExcel.Range("A5:C7").PasteSpecial( 1 )
* Выравнивание столбцов по ширине содержимого
comExcel.Columns("A:C").Autofit

* Данный способ предполагает передачу только ТЕКСТОВЫХ данных
* Это значит, что любые типы данных надо конвертировать в текстовые
SET DATE GERMAN 
SET CENTURY ON

_clipText = TRANSFORM( 123456 . 78 )+CHR( 9 )+TRANSFORM(DATE())
comExcel.Cells( 5 , 5 ).NumberFormat="0.00"
comExcel.Cells( 5 , 6 ).NumberFormat="m/d/yyyy"		&& такого формата может и не быть
comExcel.Cells( 5 , 5 ).PasteSpecial( 1 )
comExcel.Columns("E:F").Autofit

* Чтобы снять выделение по окончании всех вставок передаю фокус на первую ячейку
comExcel.Cells( 1 , 1 ).select
* восстанавливаем буфер обмена
_clipText = m.lcClipText