FiveTech Software tech support forums

Posted: **Wed May 18, 2016 7:40 pm**

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

Posted: **Wed May 18, 2016 8:11 pm**

viewtopic.php?t=3557

Posted: **Wed May 18, 2016 8:18 pm**

Jbrita

Intenta asi

Code: Select all | Expand


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

Saludos,

Adhemar

Posted: **Thu May 19, 2016 12:33 pm**

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

Posted: **Thu May 19, 2016 12:54 pm**

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

FiveTech Software tech support forums

Poner nombre a la Hoja en Excel

Poner nombre a la Hoja en Excel

Re: Poner nombre a la Hoja en Excel

Re: Poner nombre a la Hoja en Excel

Re: Poner nombre a la Hoja en Excel

Re: Poner nombre a la Hoja en Excel