topic-32452

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Poner nombre a la Hoja en Excel
Posted: Wed May 18, 2016 07: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( &quot;Finalizar Hoja Excel&quot; )

oExcel:Quit()

SALUDOS

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Poner nombre a la Hoja en Excel
Posted: Wed May 18, 2016 08:11 PM

viewtopic.php?t=3557

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Poner nombre a la Hoja en Excel
Posted: Wed May 18, 2016 08:18 PM

Jbrita

Intenta asi

Code (fw): Select all Collapse

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

Saludos,

Adhemar

Saludos,

Adhemar C.

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Poner nombre a la Hoja en Excel
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

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Poner nombre a la Hoja en Excel
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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion