Crear XLS

colthop · Post by **colthop** » Tue Dec 04, 2007 3: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

alex_cyr · Post by **alex_cyr** » Thu Dec 06, 2007 8: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 · Post by **JmGarcia** » Sun Dec 16, 2007 11:25 am

alex_cyr wrote:

Code: Select all

   oxls:=TOleAuto():New( "Excel.Application" )
   oxls:WorkBooks:add()

¿ Y donde especificamos el nombre del fichero XLS ?

colthop · Post by **colthop** » 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