Exportar a Excel

[abelcervantes]

Como puedo crear archivos en Excel y mandar información a dichos archivos. Necesito algún archivo o librería especial?

[hgarcia]

Abel:

Puedes usar la clase Texcel o Tfilexls que son aportaciones de colaboradoredes

Saludos

[acuellar]

Abel

Lo podes hacer desde un XBrowse con oBrw:ToExel() Pasará todo el Browse a Excel.

Tambien asi:

Code: Select all

   oExcel:=CreateObject( "excel.application" );oExcel:DisplayAlerts=.F.;oBook:=oExcel:Workbooks:Add();oSheet:=oExcel:ActiveSheet 
    oSheet:Range( "A1" ):Value ="NOMBRE DE LA EMPRESA S.A."
    oSheet:Range( "A1:C1" ):HorizontalAlignment := xlHAlignCenterAcrossSelection
    oSheet:Range( "A2" ):Value ="PLANILLA MENSUAL DETALLADA: "
    oSheet:Range( "A2:C2" ):HorizontalAlignment := xlHAlignCenterAcrossSelection
    oSheet:Range( "B4" ):Value ="COD.";oSheet:Columns(2):ColumnWidth:=6
    oSheet:Range( "C4" ):Value ="NOMBRE Y APELLIDOS";oSheet:Columns(3):ColumnWidth:=35

  Do While .Not. Eof()
     oSheet:Cells(xL,1):Value =DATOS->COD
      oSheet:Cells(xL,2):Value =DATOS->NOMBRE
     xL++
    DBSkip()
 Enddo
 

Espero te sirva

Saludos,

Adhemar

[abelcervantes]

Gracias, muchas gracias por su ayuda. Y.... dónde consigo esa herramienta para Excel?

[MarioG]

Abel;
busca aquí: http://forums.fivetechsupport.com/viewt ... =17&t=2519

[acuellar]

De la forma indicada, no necesita de ninguna herramienta

Saludos,

Adhemar

[abelcervantes]

Muchas gracias por toda las ayudas que me brindaron.