Mas de una hoja por fichero excel

JmGarcia · Post by **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.

JmGarcia · Post by **JmGarcia** » Thu Dec 13, 2007 4:28 pm

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

Alvaro Urdaneta · Post by **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

pymsoft · Post by **pymsoft** » Fri Dec 14, 2007 8:22 am

JmGarcia,

prueba esto:

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

Saludos

JmGarcia · Post by **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...