[TiammatMX]

Y al final quedó así:

Código Delphi [-]
    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()

OK, no es Delphi, pero creo que quedó entendible. Hace lo que debe, sin problemas o errores..., gracias a todos por su colaboración.