Poner nombre a la Hoja en Excel

[jbrita]

Hola amigo necesito una ayudita, creo un archivo excel y quiero ponerle a cada hoja el dia, tengo este ejemplo pero no me funciona

local oExcel := CreateObject( "excel.application" )
local oBook := oExcel:Workbooks:Add()
local oSheet := oBook:Worksheets( 1 )
Local nHojas := oExcel:Sheets:Count()
Local ndias :=31
Local nD:=1
For Nd=4 To nDias
oExcel:Sheets:ADD()
oSheet := oBook:Worksheets( nd )
oSheet:name:= "Mayo-"+Str(nd,2)
Next


FErase( "c:\systema\ivarojas\iva.xls" )
oBook:SaveAs( "c:\systema\ivarojas\iva.xls" )

oExcel:Visible = .T.
MsgInfo( "Finalizar Hoja Excel" )

oExcel:Quit()

SALUDOS

[karinha]

viewtopic.php?t=3557

[acuellar]

Jbrita

Intenta asi

Code: Select all  Expand view  RUN

  oExcel:sheets:Add()
  oExcel:Sheets("Hoja"+Alltrim(Str(nd,2))):Select()
  oSheet:= oExcel:ActiveSheet
  oSheet:name:="Mayo-"+StrZero(nd,2)
 

Saludos,

Adhemar

[armando.lagunas]

karinha:

citado en el enlace sugerido:

post:
Si a alguien le interesa puede bajar la clase TExcels modificada con estos metodos, mas la la hoja excel para que funcione el ejemplo arriba indicado desde esta direccion:
http://tecnisistemas.com/fideck/modulos ... PIVOTT.ZIP

Espero les pueda servir.

el enlace ya no esta disponible, es posible de que tengas esas modificaciones realizadas por el autor?

desde ya gracias

[karinha]

Armando:

Mira - look:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=28106

http://fivetechsupport.com/forums/viewtopic.php?f=6&t=1200

https://app.box.com/shared/lck9effuyn