border
VB 6
 
 
  #1 (permalink)  
Antiguo 19-03-2007, 14:50:10
Nuevo Amigo
 
Registrado: nov 2006
Posts: 29
Créditos: 1.552
Scorpion Valoración +2
Predeterminado como cambiar el nombre de una hoja de excel

Hola a todos...

como podria cambiar el nombre de una hoja excel ???

gracias por adelantado...

saludos...

Scorpion
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 19-03-2007, 17:22:42
Avatar de acalanto
Administrador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 6.236
Créditos: 53.392
acalanto ha deshabilitado la reputación
Predeterminado

Como a cualquier otro fichero

name "c:\mis hojas\nombre_antiguo.xls" As "c:\mis hojas\nombre_nuevo.xls"


o mejor utilizando cuadros de texto de un formulario para definir los nombres y la ruta completa de los ficheros.

name me.TextBoxAntigua As me.TextBoxNueva
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Leer detalladamente las normas del foro es una buena forma de comenzar a participar en él. Te llevará unos pocos minutos y el colectivo de usuarios te lo agradecerá. <si no las has leído sigue este enlace>
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 19-03-2007, 18:47:59
Nuevo Amigo
 
Registrado: nov 2006
Posts: 29
Créditos: 1.552
Scorpion Valoración +2
Predeterminado

Hola Acalanto, gracias por la respuesta...

pero me parece que tal vez fui un poco breve con mi duda. amplio un poco mas...

Tengo un libro excel que tiene varias hojas, necesito cambiarle el nombre de las hojas(por ejemplo a la hoja 11)... pongo un poco del codigo...

Set fs = CreateObject("Scripting.FileSystemObject")
Set Oapp = CreateObject("Excel.Application")
Oapp.Visible = True

With OappUEB
.Workbooks.Open FileName:= fichero_Excel
'con la linea siguiente tengo el nombre de la hoja 11, como puedo ponerle otro nombre
nombre_Viejo_Hoja = .Worksheets(11).Name

.
.
.

.ActiveWorkbook.SaveAs FileName:=Nombre_Nuevo, FileFormat:=xlNormal, ReadOnlyRecommended:=False, CreateBackup:=False
.ActiveWorkbook.Close
End With
Set Oapp = Nothing
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 19-03-2007, 21:08:59
Avatar de acalanto
Administrador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 6.236
Créditos: 53.392
acalanto ha deshabilitado la reputación
Predeterminado

Pues creo que

.Worksheets(11).Name = nombre_nuevo_hoja

y lógicamente guarda los cambios con Save
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Leer detalladamente las normas del foro es una buena forma de comenzar a participar en él. Te llevará unos pocos minutos y el colectivo de usuarios te lo agradecerá. <si no las has leído sigue este enlace>
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Problema para copiar un texto de una hoja excel a otra hoja Julio Luna VBA (Excel, Word, Outlook, Access) 2 15-11-2007 21:31:39
Obtener nombre de la hoja excel desde acces Ainhi Visual Basic 6.00 1 09-03-2007 19:08:28
Como cambiar el nombre de un control en todo el proyecto? Markos1970 Visual Basic 6.00 1 26-05-2006 23:35:51
Copiar una hoja de excel a otro documento excel a otra hoja Kaisser VBA (Excel, Word, Outlook, Access) 3 24-02-2006 07:45:00
Utilizar el TrueDBGrid como Hoja Excel charlytesis ComponentONE Suite 7 09-01-2006 17:30:01


La franja horaria es GMT. Ahora son las 04:04:11.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design