Cambiar nombre de Hoja en excel

[Pato]

Buenas tardes, no soy de hacer este tipo de preguntas ya que me gusta buscarla por mi cuenta, pero no tengo tiempo para la busqueda, ademas creo que alguguien lo debe haber hecho.

Requiero ayuda para la siguiente.

 

Yo exporto a excel con EXPORT TO un archivo de nombre ddjj45605.xls (formato de archivo de excel 5.0/95). En el nombre de la hoja del archivo me pone el mismo nombre ddjj45605, yo necesito cambiarla a Hoja1.

 

Tengo office 2010, el archivo tiene que tener formato office 2003, si hay algo para hacer esto ya seria demasiado.

 

Si alguien tiene la respuesta o una pagina que la tenga les agradezco la ayuda.

 

Un abrazo y Muy Feliz Año Nuevo !!!

[Jose Oscar Vogel]

local oExcel
oexcel = Createobject("Excel.Application")
oexcel.workbooks.open(NombreArchivo)
oexcel.activesheet.NAME = lcNombre
oexcel.activeworkbook.SAVEAS(lcFile)


prueba con ese codigo, cambiale el nombre de la hoja y el nombre del archivo por lo que tienes tu

saludos oscar

--
Prof. Jose Oscar Vogel
Garuhapé - Misiones
CP 3334
Cel: 03743-15667526
Twitter: @ovogel23
Facebook: oscarvogel

[Yvan GMAIL]

oExcel = CREATEOBJECT(“Excel.Application”)

oExcel.WorkBooks.Open(“MiArchivo.XLS”)

oExcel.Sheets(1).Name = “Hoja1”

oExcel.DisplayAlerts = .F.

oExcel.Saveas(“MiArchivo.Xls”)

[Pato]

Problema resuelto !!!

 

Muchas Gracias Yvan y Jorge.

 

Utilice lo que me enviaron los dos para la siguiente solución.

 

oExcel = CREATEOBJECT("Excel.Application")

oExcel.WorkBooks.Open(LcExcelFile)

oExcel.Sheets(1).Name = "Hoja1"
oExcel.DisplayAlerts = .F.

oExcel.activeworkbook.Saveas(LcExcelFile)
oExcel.Workbooks.Close()

 

RELEASE oExcel

 

Saludos.