Crear XLS

Crear XLS

Postby 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
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Postby 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.
alex_cyr
 
Posts: 77
Joined: Wed Jun 28, 2006 6:38 pm
Location: Chihuahua

Postby JmGarcia » Sun Dec 16, 2007 11:25 am

alex_cyr wrote:
Code: Select all  Expand view  RUN
   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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Postby 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
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 34 guests