oExcel := CreateObject( "Excel.Application" )
* FEOL No eliminar ésta línea, si'l vous plait...
* oExcel:visible := .T.
oExcel:SheetsInNewWorkbook := 1
oHoja := oExcel:Workbooks:Add
oSheet := oHoja:ActiveSheet
oSheet:Cells( 1, 1 ):value := 'CODIGO'
oSheet:Cells( 1, 2 ):value := 'PRECIO'
oSheet:Cells( 1, 3 ):value := 'MONEDA'
cStmt := "SELECT ACODPRO, APREACT AS PRECIO, ATIPMON AS MONEDA FROM FALISPR WHERE ANUMLIS=?"
oCurArti := ADODataSet():create( cStmt, gConn )
oCurArti:Execute( oLis:value )
DO WHILE !oCurArti:EOF()
oSheet:Cells( iRen, 1 ):value := oCurArti:ACODPRO
oSheet:Cells( iRen, 2 ):value := oCurArti:PRECIO
oSheet:Cells( iRen, 3 ):value := oCurArti:MONEDA
oCurArti:skip()
iRen++
ENDDO
oHoja:SaveAs( cNomArc )
oExcel:ActiveWorkbook:Close()
oExcel:Quit()