Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Cambiar nombre de hoja a multiples archivos

rlavisse

New member
Registrado
10 May 2021
Mensajes
3
Hola a todos! Soy nuevo en el foro, y estoy buscando ayuda.
Resulta que recibo por mes aproximadamente 50 archivos, y todos tienen nombres de hoja distinto. Estoy armando una ETL y necesito leer...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
Muchas gracias a quien pueda ayudarme !!!!
Usa el siguiente código en un modulo normal. Está preparada para que lea todos los ficheros que están en elmismo directorio que el libro que tenga la macro, y cambia "NOMBRE" por el nombre que quieras

Código:
Sub renombrar_hoja()
Dim fich As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

fich = Dir(ThisWorkbook.Path & "\*.xlsx", vbArchive)

Do While fich <> ""
    If fich = ThisWorkbook.Name Then GoTo seguir
    
    Workbooks.Open fich
    ActiveSheet.Name = "NOMBRE"
    ActiveWorkbook.Close True
seguir:
fich = Dir()
Loop

Application.DisplayAlerts = True

End Sub
Volver
Arriba