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.
FiveTech Software tech support forums
www.FiveTechSoft.com
Mas de una hoja por fichero excel
5 posts • Page 1 of 1
Mas de una hoja por fichero excel
by JmGarcia » Sun Dec 09, 2007 10:19 pm
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
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 3:14 pm
- Location: Madrid - ESPAÑA
by 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
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 3:14 pm
- Location: Madrid - ESPAÑA
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
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
Fwh 10.8, xharbour1.2.1, bcc582, Brw45
- Alvaro Urdaneta
- Posts: 67
- Joined: Wed Mar 29, 2006 10:54 pm
- Location: Venezuela
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...
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
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 3:14 pm
- Location: Madrid - ESPAÑA
5 posts • Page 1 of 1
Return to FiveWin para Harbour/xHarbour
Who is online
Users browsing this forum: Google [Bot] and 32 guests