WITH .ActiveWorkbook
  .XmlMaps.ADD(FORCEEXT(m.tcXMl,"xsd"),"VFPData").NAME=m.lcXMLMapName
  .XmlImport(m.tcXMl,.XmlMaps(m.lcXMLMapName),,.ActiveSheet.Cells(m.lnRow,1))
 ENDWITH

aFieldPrint - список полей для выгрузки в виде aFieldPrint[i,1] - имя поля таблицы, aFieldPrint[i,2] - имя поля в выгрузке
Пример aFieldPrint[1,1] = "Saldo", aFieldPrint[1,2] = "Остаток_в_ИРК 20-1"

 .ActiveWorkbook.XmlMaps.ADD(FORCEEXT(m.tcXml,"xsd"),"VFPData").NAME=m.lcXMLMapName
 m.loXMLMap=.ActiveWorkbook.XmlMaps(m.lcXMLMapName)

 FOR m.i=1 TO m.lnCountField
  .RANGE(.Cells(m.i+m.lnRow,2),.Cells(m.i+m.lnRow,2)).XPath.SetValue(m.loXMLMap,"/VFPData/"+m.tcCursor+'/'+THISFORM.aFieldPrint[m.i,2])
  .Cells(m.i+m.lnRow,1).VALUE=THISFORM.aFieldPrint[m.i,2]
 NEXT
 .ActiveWorkbook.XmlImport(m.tcXml,m.loXMLMap)

WITH THISFORM.oExcel
 .WorkBooks.ADD
 .DisplayAlerts=False
 .VISIBLE= .F.
 .WINDOWSTATE = xlMinimized
 FOR m.lnCounter=.Sheets.COUNT TO 2 STEP -1
  .Sheets(m.lnCounter).DELETE
 NEXT
 WITH .Sheets(1)
  .SELECT
 ENDWITH
 .ActiveWindow.DisplayGridLines=False

 FOR m.i=1 TO m.lnCountField
  m.lnRow=3
  .RANGE(.Cells(m.lnRow,m.i),.Cells(m.lnRow,m.i)).COLUMNS.EntireColumn.AUTOFIT
  m.lnCounter=ASCAN(THISFORM.faName,laFieldList[m.i,1])
  IF m.lnCounter#0
   m.lcField=THISFORM.faHeader[m.lnCounter]
  ELSE
   m.lcField=ALLTRIM(STRTRAN(laFieldList(m.i,1),'_',' '))
  ENDIF
  m.lnCounter=41
  .Cells(m.lnRow,m.i).VALUE=m.lcField
  m.lnColWidth=LEN(m.lcField)+1

  DO CASE
   CASE laFieldList[m.i,2]=='C'
    m.lnColWidth=MIN(41,LEN(ALLTRIM(laFieldList[m.i,1])))
   CASE laFieldList[m.i,2]=='M'
    m.lnALen=MEMLINES(m.lcField)
    FOR m.y=1 TO m.lnALen
     m.lnCounter=MAX(m.lnCounter,LEN(ALLTRIM(MLINE(m.lcField,m.y))))
    NEXT
    m.lnColWidth=MIN(41,m.lnCounter)
   CASE INLIST(laFieldList[m.i,2],'N','I','F','O','Y')
    m.lnColWidth=MAX(m.lnColWidth,laFieldList[m.i,3]+laFieldList[m.i,4]+2)
  ENDCASE
  WITH .RANGE(.Cells(m.lnRow,m.i),.Cells(m.lnRow,m.i))
   .HorizontalAlignment = xlGeneral
   .VerticalAlignment = xlCenter
   .WrapText = .T.
   WITH .BORDERS(xlEdgeBottom)
    .Weight=xlMedium
    .LineStyle=xlContinuous
   ENDWITH
   WITH .BORDERS(xlEdgeTop)
    .Weight=xlMedium
    .LineStyle=xlContinuous
   ENDWITH
   WITH .BORDERS(xlEdgeRight)
    .Weight=xlMedium
    .LineStyle=xlContinuous
   ENDWITH
   WITH .BORDERS(xlEdgeLeft)
    .Weight=xlMedium
    .LineStyle=xlContinuous
   ENDWITH
  ENDWITH
  m.lcField=GetExcelCol(i)
  WITH .RANGE(m.lcField+":"+m.lcField)
   .SELECT
   .COLUMNWIDTH = m.lnColWidth*1.2
  ENDWITH
 NEXT

 m.lnCounter=RECCOUNT()
 SCAN
  m.lnRow=m.lnRow+1
  loPB.UPDATE(INT(m.lnRow*100/m.lnCounter),"Âûãðóçêà â Excel")
  FOR m.i=1 TO m.lnCountField
   IF ASCAN(THISFORM.faName,laFieldList[m.i,1])#0
    m.lcField=laFieldList[m.i,1]
   ELSE
    m.lcField=ALLTRIM(STRTRAN(laFieldList(m.i,1),'_',' '))
   ENDIF
   m.lcField=_VFP.EVAL(laFieldList[m.i,1])

   DO CASE
    CASE laFieldList[m.i,2]=='C'
     WITH .Cells(m.lnRow,m.i)
      .NumberFormat='@'
      .VALUE=THISFORM.createSbor(ALLTRIM(m.lcField),@laFields)
     ENDWITH
    CASE laFieldList[m.i,2]=='M'
     WITH .Cells(m.lnRow,m.i)
      .NumberFormat='@'
      .VALUE=ALLTRIM(m.lcField)
     ENDWITH
    CASE INLIST(laFieldList[m.i,2],'N','I','F','O','Y')
     WITH .Cells(m.lnRow,m.i)
      m.lcStr=IIF(laFieldList[m.i,3]#0,'.'+REPLICATE('0',laFieldList[m.i,4]),'')
      .NumberFormat="0"+m.lcStr+";[Red]-0"+m.lcStr
      .VALUE=NTrim(m.lcField,laFieldList[m.i,3],laFieldList[m.i,4])
     ENDWITH
    CASE INLIST(laFieldList(m.i,2),'D','T')
     WITH .Cells(m.lnRow,m.i)
      .NumberFormat="dd.mm.yyyy"
      .VALUE=NTrim(m.lcField)
     ENDWITH
    CASE laFieldList(m.i,2)=='L'
     WITH .Cells(m.lnRow,m.i)
      .NumberFormat='@'
      .VALUE=IIF(m.lcField,"Äà","Íåò")
     ENDWITH
    OTHERWISE
     WITH .Cells(m.lnRow,m.i)
      .VALUE=ALLTRIM(m.lcField)
     ENDWITH
   ENDCASE
   .RANGE(.Cells(m.lnRow,m.i),.Cells(m.lnRow,m.i)).COLUMNS.EntireColumn.AUTOFIT
   WITH .RANGE(.Cells(m.lnRow,m.i),.Cells(m.lnRow,m.i))
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlTop
    .WrapText = .T.
    WITH .BORDERS(xlEdgeBottom)
     .Weight=xlThin
     .LineStyle=xlContinuous
    ENDWITH
    WITH .BORDERS(xlEdgeTop)
     .Weight=xlThin
     .LineStyle=xlContinuous
    ENDWITH
    WITH .BORDERS(xlEdgeRight)
     .Weight=xlThin
     .LineStyle=xlContinuous
    ENDWITH
    WITH .BORDERS(xlEdgeLeft)
     .Weight=xlThin
     .LineStyle=xlContinuous
    ENDWITH
   ENDWITH
  NEXT
 ENDSCAN

 SourceArray = loSourceWS.RANGE(loSourceWS.Cells(m.lnRow + 1, 1), loSourceWS.Cells(m.lnRow + m.lnReccount + 1, m.lnCountField)).VALUE
 loTargetWS.ACTIVATE
 loTargetWS.RANGE(loTargetWS.Cells(m.lnRow + 1, 1), loTargetWS.Cells(m.lnRow + m.lnCountField, m.lnReccount + 1)).VALUE = WorksheetFunction.Transpose(SourceArray)

loExcel=CREATEOBJECT("EXCEL.APPLICATION")
loSheet = loExcel.Workbooks(lcWbName).Sheets(1)

SELECT * FROM (lcAlias) INTO ARRAY laData
lcRowsData=ALEN(laData,1)    
lcColumnsData=ALEN(laData,2)      

loSheet.Cells(2,1).Resize(lcRowsData, lcColumnsData).Value = FpassArray('laData')

...

*******************************
FUNCTION FpassArray
LPARAMETERS tcArrayName
* Трюк для передачи массива данных обратно в диапазон ячеек Excel.  
RETURN @&tcArrayName  

CLEAR

DIMENSION array1[3]
array1 = 1

array2 = arrayref('array1') && создание массива с копированием элементов другого массива
array2[2] = 222             && чтобы убедиться, что array2 - не просто новая ссылка на массив array1

DISPLAY MEMORY LIKE array*

FUNCTION arrayref
PARAMETERS arrayname

RETURN @&arrayname

loExcel=CREATEOBJECT("EXCEL.APPLICATION")
loSheet = loExcel.Workbooks(lcWbName).Sheets(1)
loSheet2 = loExcel.Workbooks(lcWbName).Sheets(2)
и т.д. ...

#DEFINE xlPasteAll   -4104
#DEFINE xlNone   -4142

with loSheet
    .Range(.Cells(1,1), .Cells(lcRowsData, lcColumnsData)).Copy
endwith

with loSheet2
    .Cells(1,1).PasteSpecial(xlPasteAll, xlNone, .F., .T.)
endwith

 .EnableEvents= .F.
 .ScreenUpdating = .F.
 .DisplayAlerts = .F.
 m.loVBComponent=.ActiveWorkBook.VBProject.VBComponents.IMPORT(m.lcFile)
 .APPLICATION.RUN("'"+.ActiveWorkBook.NAME+"'!CreateXMLList")
 .ActiveWorkBook.VBProject.VBComponents.REMOVE(m.loVBComponent)