Page 1 of 1
Crear XLS
Posted: Tue Dec 04, 2007 3:23 pm
by colthop
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
Posted: Thu Dec 06, 2007 8:10 pm
by alex_cyr
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.
Posted: Sun Dec 16, 2007 11:25 am
by JmGarcia
alex_cyr wrote:
Code: Select all
oxls:=TOleAuto():New( "Excel.Application" )
oxls:WorkBooks:add()
¿ Y donde especificamos el nombre del fichero XLS ?
Posted: Sun Dec 16, 2007 12:04 pm
by colthop
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