topic-9069

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Crear XLS
Posted: Tue Dec 04, 2007 03:23 PM

Hola a todos:

Alguien me podria decir como se puede crear un archivo XLS (Excell) con una hoja que se llame HOJA 1.

Un saludo a todos

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

alex_cyr

Posts: 77

Joined: Wed Jun 28, 2006 06:38 PM

Crear XLS
Posted: Thu Dec 06, 2007 08:10 PM

que tal, esto funciona perfectamente...

static function hojaxls()

oxls:=TOleAuto():New( "Excel.Application" )
oxls:WorkBooks:add()
oHoja := oxls:sheets:item(1)
oHoja:name := 'MI HOJA 1'
oHoja:activate()
oXLS:visible := .t.

return .t.

saludos
Alex.

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Crear XLS
Posted: Sun Dec 16, 2007 11:25 AM

alex_cyr wrote:
Code: Select all Collapse
   oxls:=TOleAuto():New( "Excel.Application" )
   oxls:WorkBooks:add()

¿ Y donde especificamos el nombre del fichero XLS ?

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

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Crear XLS
Posted: Sun Dec 16, 2007 12:04 PM

Hola JmGarcia:

El post es el comienzo para crear la hoja y cuando termino yo pongo

oHoja:End()
oWorkBook:SaveAs(fichsali)
oExcel:Quit()
oExcel:End()
oExcel:=NIL
OleUnInitialize()

en donde fichsali es el nombre del fichero excel que quiero.

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

FiveTech Support Forums

Continue the discussion