Page 1 of 1
Mas de una hoja por fichero excel
Posted: Sun Dec 09, 2007 10:19 pm
by JmGarcia
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.
Posted: Thu Dec 13, 2007 4:28 pm
by JmGarcia
Alguna idea... ¡¡¡ Socorro !!!
Posted: Thu Dec 13, 2007 5:46 pm
by Alvaro Urdaneta
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
Posted: Fri Dec 14, 2007 8:22 am
by pymsoft
JmGarcia,
prueba esto:
oExcel:Sheets(1):Select()
oExcel:Sheets:Add()
Saludos
Posted: Sun Dec 16, 2007 11:01 am
by JmGarcia
Urdaneta, pymsoft... gracias.
Probado y funcionando.
¿ Esto mismo se puede hacer con la clase TFileXLS ?
...me refiero a mas "hojas" por "libro", seria fenomenal...