SELECT &clEndStr from &kkk INTO CURSOR zzz
  oleApp = CREATEOBJECT("Excel.Application")
  OleApp.Workbooks.Add
  FOR i=1 TO RECCOUNT()
     GO i
      FOR z=1 TO FCOUNT()
        fld=FIELD(z)
         DO CASE 
            CASE TYPE('&fld')='D'
               vl=DTOC(&fld)
           CASE TYPE('&fld')='N'
               vl=STR(&fld)
          CASE TYPE('&fld')='L'
               vl=IIF(&fld=.F.,'0','1')
          OTHERWISE 
              vl=&fld
          ENDCASE 
        OleApp.Cells(i,z).Value=vl
     ENDFOR
   ENDFOR
  ThisForm.Text1.Value=""
  ThisForm.Container5.Visible= .f.
  OleApp.Visible=.T.
  OleApp.quit()

* Создаем объект Excel
LOCAL comExcel
comExcel=CREATEOBJECT('Excel.Application')
comExcel.workbooks.Add
* Делаем Excel видимым
* Эту команду надо давать в самом конце формирования листа Excel
* здесь она приведена для наглядности
comExcel.Visible= .T.
* Формируем текстовую строку для последующего вывода в Excel
LOCAL lcString
* CHR(9) - клавиша Tab - переход на следующую ячейку в текущей строке
* CHR(13) - клавиша Enter - переход на следующую строку в первом столбце указанного диапазона
lcString='Ячейка 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'
* Сохраняем текущее значение буфера обмена
LOCAL lcClipText
lcClipText = _clipText
* вставляем текст в буфер обмена
_cliptext = m.lcString
* копируем буфер обмена в нужное место 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

select MyTab
COPY TO MyTab866 TYPE FOX2X AS 866
* Создаем объект Excel
LOCAL comExcel
comExcel=CREATEOBJECT('Excel.Application')
comExcel.workbooks.Open(fullpath('MyTab866.dbf'))
comExcel.Visible= .T.