Page 1 of 1
Exportar a Excel
Posted: Thu Aug 26, 2010 4:05 pm
by abelcervantes
Como puedo crear archivos en Excel y mandar información a dichos archivos. Necesito algún archivo o librería especial?
Re: Exportar a Excel
Posted: Fri Aug 27, 2010 1:55 am
by hgarcia
Abel:
Puedes usar la clase Texcel o Tfilexls que son aportaciones de colaboradoredes
Saludos
Re: Exportar a Excel
Posted: Fri Aug 27, 2010 12:08 pm
by 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
Re: Exportar a Excel
Posted: Tue Aug 31, 2010 1:10 pm
by abelcervantes
Gracias, muchas gracias por su ayuda. Y.... dónde consigo esa herramienta para Excel?
Re: Exportar a Excel
Posted: Mon Sep 06, 2010 12:17 pm
by MarioG
Re: Exportar a Excel
Posted: Mon Sep 06, 2010 1:04 pm
by acuellar
De la forma indicada, no necesita de ninguna herramienta
Saludos,
Adhemar
Re: Exportar a Excel
Posted: Tue Sep 21, 2010 1:11 pm
by abelcervantes
Muchas gracias por toda las ayudas que me brindaron.