Alguien sabe como se puede exportar un reporte a excel, desde la 
libreria de clayton?
Gilberto

Si tu archivo en excel, no se requiere, font's, colores, formulas, ancho 
predefinido, etc,etc.
Puedes mandar tu reporte a un archivo .csv  o con la extension .xls y 
excel lo va abrir facilmente. ( Claro que cuando lo abras con excel te 
va a decir que no es el formato adecuado, pero de que lo abre lo abre )

Saludos
Osvaldo

Hola Gilberto,

Tambin tienes la chance de usar ActiveX.

  #pragma library( "ascom10.lib" )

   PROCEDURE Main
      LOCAL oApp

      oApp := CreateObject(  "Excel.Application" )

      IF NIL == oApp
         Excel.Application could not be created.
        ? "Error: ", ComLastError()
        ? "Description:"
        ? ComLastMessage()
        RETURN
      ENDIF

       Access a property of the Excel application
      ? oApp:visible
       Assign a property
      oApp:visible := ! oApp:visible
       Call a method
      oApp:quit()
       destroy the reference
      oApp:destroy()
   RETURN

O si no te das idea de cmo hacerlo con Excel...

PROCEDURE Main

   LOCAL cFile := "ExcelTest.xls"
   oExcel := CreateObject("Excel.Application")
   oExcel := oExcel:dynamicCast( ActiveXObject() )
   oExcel:DisplayAlerts := .F.
   oExcel:visible       := .T.

   oBook := oExcel:workbooks:Add()
   cBook := oBook:FullName
   oSheet := oBook:ActiveSheet
   oSheet:PageSetup:Orientation := xlLandscape
   FOR nPos := 1 TO 10
      FOR nCol := 1 TO 10
         nVal := nPos + nCol
         oSheet:Cells( nPos, nCol ):Value := nVal
         oSheet:Cells( nPos, nCol ):interior:colorindex := 6
      NEXT
   NEXT
    Congelar las primeras tres lneas
   oExcel:Rows("3:3"):Select()
   oExcel:ActiveWindow:Freezepanes :=.T.

   oExcel:WorkBooks(1):SaveAs(cFile )
   oExcel:quit()
   oExcel:destroy()
   oExcel := NIL
RETURN

Espero haber sido de ayuda

Jos Luis Otermin
Alaska Software
Soporte Tcnico
--------------------------------------------------------------------
Foros de Usuarios: news://news.alaska-software.com
Pgina Web: http://www.alaska-software.com
Base de Conocimientos en la Web: http://www.alaska-software.com/kbase.shtm
Oficina en Europa: Fax: +49 (0) 61 96 - 77 99 99 23
Oficina en EEUU: Fax: +1 (646) 218 1281
--------------------------------------------------------------------



"Gilberto" <glesme@msn.com> escribi en el mensaje
news:mn.5bd87daaff1a94f5.113835@msn.com...
> Alguien sabe como se puede exportar un reporte a excel, desde la libreria
> de clayton?
> Gilberto
>
>
>

hi,

>   FOR nPos := 1 TO 10
>      FOR nCol := 1 TO 10
>         nVal := nPos + nCol
>         oSheet:Cells( nPos, nCol ):Value := nVal
>         oSheet:Cells( nPos, nCol ):interior:colorindex := 6
>      NEXT
>   NEXT

to fill oSheet:Cells this Way (one by one) is very slow.
Use oSheet:RANGE() and 2-Dim Array

 Speed things up by creating an object containing the cells
oSheet := oExcel:Worksheets( 1 ):cells
...
nLen := LEN(aExcel)
cEnde := ZAHL2CHR(nLFcount)
oSheet:range( "A1:"+cEnde+LTRIM( STR(nLen ) ) ):value  := aExcel

greetings nby OHR
Jimmy

****************************************
FUNCTION ZAHL2CHR(nLFcount)
LOCAL nMal
LOCAL cEnde
   IF nLFcount > 26
      nMal  := INT(nLFcount/26)
      cEnde := CHR(nMal+64)+CHR((nLFcount-(nMal*26))+64)
   ELSE
      cEnde := CHR(nLFcount+64)
   ENDIF
RETURN cEnde

Jose Luis Otermin a émis l'idée suivante :
> Hola Gilberto,
>
> También tienes la chance de usar ActiveX.
>
>   #pragma library( "ascom10.lib" )
>
>    PROCEDURE Main
>       LOCAL oApp
>
>       oApp := CreateObject(  "Excel.Application" )
>
>       IF NIL == oApp
>          Excel.Application could not be created.
>         ? "Error: ", ComLastError()
>         ? "Description:"
>         ? ComLastMessage()
>         RETURN
>       ENDIF
>
>        Access a property of the Excel application
>       ? oApp:visible
>        Assign a property
>       oApp:visible := ! oApp:visible
>        Call a method
>       oApp:quit()
>        destroy the reference
>       oApp:destroy()
>    RETURN
>
> O si no te das idea de cómo hacerlo con Excel...
>
> PROCEDURE Main
>
>    LOCAL cFile := "ExcelTest.xls"
>    oExcel := CreateObject("Excel.Application")
>    oExcel := oExcel:dynamicCast( ActiveXObject() )
>    oExcel:DisplayAlerts := .F.
>    oExcel:visible       := .T.
>
>    oBook := oExcel:workbooks:Add()
>    cBook := oBook:FullName
>    oSheet := oBook:ActiveSheet
>    oSheet:PageSetup:Orientation := xlLandscape
>    FOR nPos := 1 TO 10
>       FOR nCol := 1 TO 10
>          nVal := nPos + nCol
>          oSheet:Cells( nPos, nCol ):Value := nVal
>          oSheet:Cells( nPos, nCol ):interior:colorindex := 6
>       NEXT
>    NEXT
>     Congelar las primeras tres líneas
>    oExcel:Rows("3:3"):Select()
>    oExcel:ActiveWindow:Freezepanes :=.T.
>
>    oExcel:WorkBooks(1):SaveAs(cFile )
>    oExcel:quit()
>    oExcel:destroy()
>    oExcel := NIL
> RETURN
>
> Espero haber sido de ayuda
>
> --
> José Luis Otermin
> Alaska Software
> Soporte Técnico
> --------------------------------------------------------------------
> Foros de Usuarios: news://news.alaska-software.com
> Página Web: http://www.alaska-software.com
> Base de Conocimientos en la Web: http://www.alaska-software.com/kbase.shtm
> Oficina en Europa: Fax: +49 (0) 61 96 - 77 99 99 23
> Oficina en EEUU: Fax: +1 (646) 218 1281
> --------------------------------------------------------------------
>Gracias
>
>
> "Gilberto" <glesme@msn.com> escribió en el mensaje
> news:mn.5bd87daaff1a94f5.113835@msn.com...
>> Alguien sabe como se puede exportar un reporte a excel, desde la libreria
>> de clayton?
>> Gilberto
>>
>>
>>
>
>
>
>