topic-9146

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Mas de una hoja por fichero excel
Posted: Sun Dec 09, 2007 10:19 PM

Resulta que tengo que pasar mas de 65535 lineas de un fichero a una hoja excel.
Suelen ser ficheros de unos 200.000 registros... que bruto verdad.

Pues eso, como creo ficheros excel con mas de una hoja, para poder meter en un solofichero XLS todos esos registros.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Mas de una hoja por fichero excel
Posted: Thu Dec 13, 2007 04:28 PM

Alguna idea... ¡¡¡ Socorro !!!

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Alvaro Urdaneta

Posts: 69

Joined: Wed Mar 29, 2006 10:54 PM

Mas de una hoja por fichero excel
Posted: Thu Dec 13, 2007 05:46 PM

FUNCTION CrearHoja()
Local oExcel, oHoja

oExcel := TOleAuto():New( "Excel.Application" )
oExcel :WorkBooks:Open( "prueba.xls" )
oHoja  := oExcel:Get( "ActiveSheet" )

oExcel:Sheets( "Hoja1" ):Cells( 1, 1 ):Value := "PRUEBA HOJA 1"
oExcel:Sheets( "Hoja2" ):Cells( 1, 1 ):Value := "PRUEBA HOJA 2"

oExcel:Get( "ActiveWorkbook" ):Save()
oExcel:Quit()
oExcel:End()

RETURN NIL

Saludos

Alvaro Urdaneta

Fwh 25.09, xharbour1.3.1, bcc77, Brw45

pymsoft

Posts: 383

Joined: Tue Oct 11, 2005 01:01 PM

Mas de una hoja por fichero excel
Posted: Fri Dec 14, 2007 08:22 AM

JmGarcia,

prueba esto:

oExcel:Sheets(1):Select()
oExcel:Sheets:Add()

Saludos

Pedro Gonzalez

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Mas de una hoja por fichero excel
Posted: Sun Dec 16, 2007 11:01 AM

Urdaneta, pymsoft... gracias.

Probado y funcionando.

¿ Esto mismo se puede hacer con la clase TFileXLS ?

...me refiero a mas "hojas" por "libro", seria fenomenal...

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

FiveTech Support Forums

Continue the discussion