>HI BORISLAV,
>
>I would want to use something like that :
>
>o=CREATEOBJECT("Excel.application")
>.
>.
>
>THANKS

You can but COPY TO is fatser :-)

LOCAL oExcel AS Excel.Application

oExcel = CREATEOBJECT([Excel.Application])
oExcel.Visible = 1
oExcel.WorkBooks.Add()
USE Rab
lnFlds = AFIELDS(laFields)
FOR lnFor = 1 TO lnFlds
    oExcel.Cells(1,lnFor).Value = laFields[lnFor,1]
NEXT
lnRow = 2
SCAN
    FOR lnFor = 1 TO lnFlds
        oExcel.Cells(lnRow,lnFor).Value = TRANSFORM(EVALUATE(laFields[lnFor,1]))
    NEXT
   lnRow = lnRow + 1
ENDSCAN