topic-19680

abelcervantes

Posts: 38

Joined: Tue Aug 10, 2010 02:05 PM

Exportar a Excel
Posted: Thu Aug 26, 2010 04:05 PM

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

hgarcia

Posts: 33

Joined: Thu Aug 10, 2006 12:23 PM

Re: Exportar a Excel
Posted: Fri Aug 27, 2010 01:55 AM

Abel:

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

Saludos

Héctor García

México, D.F.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Exportar a Excel
Posted: Fri Aug 27, 2010 12:08 PM

Abel

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

Tambien asi:

Code (fw): Select all Collapse

   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

Saludos,

Adhemar C.

abelcervantes

Posts: 38

Joined: Tue Aug 10, 2010 02:05 PM

Re: Exportar a Excel
Posted: Tue Aug 31, 2010 01:10 PM

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

MarioG

Posts: 1380