Mas de una hoja por fichero excel

Mas de una hoja por fichero excel

Postby JmGarcia » 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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Postby JmGarcia » Thu Dec 13, 2007 4: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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Postby Alvaro Urdaneta » Thu Dec 13, 2007 5: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 10.8, xharbour1.2.1, bcc582, Brw45
Alvaro Urdaneta
 
Posts: 67
Joined: Wed Mar 29, 2006 10:54 pm
Location: Venezuela

Postby pymsoft » Fri Dec 14, 2007 8:22 am

JmGarcia,

prueba esto:


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



Saludos
Pedro Gonzalez
User avatar
pymsoft
 
Posts: 383
Joined: Tue Oct 11, 2005 1:01 pm
Location: Savona - Italia

Postby JmGarcia » 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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 31 guests