select table1
HEADER_SIZE = 3 && Задаем размер шапки отчета.
lnCurrentRow = HEADER_SIZE + 1 && Счетчик строк.
scan
   lcCurrentTNOM = table1.tnom
   select * from vr_k where tnom = lcCurrentTNOM into cursor firstPart
       lnSize1 =  _tally
       if !empty(lnSize1)
           * вставляем данные в нужные строки.
           seelct firstPart
           i = 0
           scan
                 i = i + 1;
                 lnTnom = firstPart.tnom
                 lnSmK   = firstPart.sm_k
                 ....
                  m.XLSheet.Cells(lnCurrentRow + i, 1).Value = lnTnom 
                  m.XLSheet.Cells(lnCurrentRow + i, 2).Value = lnSmK
                  ....
           endscan
       endif 
   select * from vr_d where tnom = lcCurrentTNOM into cursor secondPart
       lnSize2 =  _tally
       if !empty(lnSize2)
           * вставляем данные в нужные строки.
           seelct secondPart
           i = 0
           scan
                 i = i + 1;
                 lnTnom = secondPart.tnom
                 lnSmD  = secondPart.sm_D
                 ....
                  m.XLSheet.Cells(lnCurrentRow + i, 1).Value = lnTnom 
                  m.XLSheet.Cells(lnCurrentRow + i, 2).Value = lnSmD
                  ...
           endscan
       endif 
       if lnSize1>lnSize2
          lnCurrentRow = lnCurrentRow + lnSize1
      else 
          lnCurrentRow = lnCurrentRow + lnSize2      
      endif 
endscan 

OEXCEL = CREATEOBJECT("Excel.Application")  && Создается объект Excel.

OEXCEL.VISIBLE = .T.                                                   && Делаем Excel видимым.
OEXCEL.WORKBOOKS.ADD                                            && Добавляем новую книгу. 
OEXCEL.DISPLAYALERTS = .F.                                       && Отключаем предупреждения.  

OEXCEL.SHEETS(1).SELECT                                            && Выбираем первый лист.

OEXCEL.CELLS(1,1).Value = "Hello"                                 && В ячейку 1:1 (Строка 1- колонка 1) выводим текст "Hello"
OEXCEL.CELLS(1,2).Value = "Hello"
OEXCEL.CELLS(1,3).Value = "Hello"
OEXCEL.CELLS(1,4).Value = 1
OEXCEL.CELLS(1,5).Value = 2
OEXCEL.CELLS(1,6).Value = 3