Macro excel para cambiar nombres de archivos de forma masiva
Вставка
- Опубліковано 16 вер 2024
- Macro que sirve para cambiar nombres de archivos de forma masiva, el archivo excel donde se coloque la macro debe estar en la misma carpeta donde se encuentran los archivos a ser cambiados.
Excelente video, breve y conciso. Acabo de probarlo y funciona perfecto. Mil gracias por compartir información útil y sin rodeos, pocos tutoriales hay de esta calidad. Un saludo maestro.
Muchas, muchas, muchas y muchas gracias..... me costó un poco poder ejecutarlo porque es la primer vez que manejo macros, pero ¡me ayudó muchísimo! MUY RECOMENDADO.
Muchisimas gracias. Excelente tutorial!!! .
Me has ahorrado mucho trabajo y a mis compañeras también.
😲 Súper!! Es lo que necesito hacer para poder subir unos archivos a una plataforma que me los acepta solo con ciertos parámetros. Lo pondré en práctica y les contaré como me va 😁
Muchísimas gracias por su generosidad al compartirnos esta conocimiento.
Agradezco mucho este video y su autor, me acaba de ahorrar un montón de tiempo.
Fabuloso. Pude cambiar los nombres de casi 900 fotografias en pocos segundos. Gracias por compartir esta herramienta. Saludos desde El Salvador
Hola Carlos, para cambiarlo necesitaste el nombre de la macro ( que se pega en visual basic) o solo copiaste lo que venía de Excel?
@@javiersantander3148 Sólo copié la macro y le hice unos ajustes, pues en mi versión hay que declarar las variables. Saludos
@@CarlosOrtiz-vp3fg me podrías enviar la info de la macro al correo por favor : javiersantander36@gmail.com....... La necesito para un trabajo urgente
Ya está, revisa tu correo
Muchas gracias fue de mucha ayuda, seguiré todos sus videos sobre Excel. Le sugiero que publique también una macro o manera de convertir los archivos de una carpeta a un listado en Excel, eso seria un gran complemento para esta macro. Mil gracias
Finalmente tuviste alguna información sobre como hacer eso?
Debes generar una txt de los archivos que tienes en carpeta
Esto me salvó dos días de trabajo! Muchas gracias.
Hombre, funciona perfecto, esa parte del trabajo ya salio, seguire investigando, gracias.
Hay Dios mío!
Muchísimas gracias me has ahorrado muchísimas horas de trabajo!!!!!!!
funciona SUPER!
Ya me suscribí a tu canal
Con mucho gusto. Agradezco me recomiendes suscriptor.
Un video estupendo, claro y de muchísima utilidad, Gracias
excelente aporte, siga así realizando excelentes aportes como este.
Excelente video, me ayudo mucho. Sigue haciendo videos así, por favor. Muchas gracias!!!!!
Me ahorraste una semana de trabajo, eres el mejor !
Muchas gracias, esta macro es de muchísima utilidad para mí, me ha evitado mucho trabajo, cuenta con mi like y mi suscripción!!
Me podrían enviar la macro a mi correo porfavor... Me servirá muchísimo en mi trabajo sepulvedadaniel182@gmail.com
Gracias amigo
Excelente justo lo que queria, me suscribo y doy super like!!!!
Lo que hacia en hora y media solo me tomo 2 minutos, mil gracias...
Jesús Hernández
Publicado el 28 abr. 2017
Macro que sirve para cambiar nombres de archivos de forma masiva, el archivo excel donde se coloque la macro debe estar en la misma carpeta donde se encuentran los archivos a ser cambiados.
Categoría
Formación
.....................................esta macro de tipo invisible funciona ''''DPM''''' tienen razón todos es una gran ayuda y una gran suerte que existan personas tan generosas
Muchas gracias por compartir conocimiento. Me sirvió y va muy bien.
Claro, sencillo y efectivo. Mil gracias
FANTASTICO me sirvio mucho para editar un video frame por frame edite el nombre de cada frame extraido de un video y lo re nombre con una funcion =aleatorio() y asi queda desordenado cada frame o jpg de cada segundo del video (muchas gracias use una extension aparte para excel para sacar los nombres originales de los jpg frame)
Me agrada que te haya servido mucho.
Muchas gracias! de mucha utilidad. Me ha ahorrado mucho tiempo.
Hola Jesús Hernández, te comento. Queriendo renombrar 200 archivos pdf, al terminar el proceso (dando todo OK en la 3er columna) me borró la mitad de los archivos.
Así que empecé a probar y encontré la falla. Esa macro funciona siempre y cuando se renombren el 100% de los archivos, si de una lista de mil archivos al cambiarle el nombre a 900 archivos ( es decir que 100 quedan exactamente igual ), te renombra los 900 archivos y los 100 restantes TE LOS ELIMINA!!!... tendrías que arreglar eso, a mas de uno le habrá dado algún que otro dolor de cabeza (incluso a mi, ya que tuve que volver a bajar como 100 pdf). saludos
Muchas Gracias. Excelente macro me ha sido de mucha utilidad
Hola. Al momento de ejecutar me sale un error '76' diciendo que no se ha encontrado la ruta de acceso. Al poner depurar - Set Lista_Archivos = Objeto_Archivos.GetFolder(ThisWorkbook.Path & "\") - esta linea se resalta en amarillo. No logro solucionar el error. Gracia por tu ayuda.
El error corresponde a la ruta, no debe ser muy extensa. Solución : guarde la carpeta en la unidad C y ejecute macro ya no debería tener problemas.
Excelente aporte!!!! Es una nave esa macro 👍👌👍👏👏👏
Muchas gracias!!! me ahorraste días de trabajo!
Hola Jesús, tengo un error Dice error 76 de tiempo de ejecución / No se ha encontrado la ruta de acceso. Podría ayudarme
Excelente... Mis Felicitaciones Maestro... Con mi Like y mi suscripción... Muchas Gracias....
excelente, tenia 1700 archivos para renombrar y lo hice en 5 minutos gracias!!!!!!!!!!!! exitos
tu me puedes ayudar, tengo q renombrar 2000 archivos pero hay archivos que es (1) o (2)
@@eliduhalde372 no entendí tu duda
Gracias me haz ahorrado mucho trabajo
Funciona a la perfección , muchas gracias
Funciona de maravilla; gracias por la macro
me salvaste! Tenia que renombrar mas de 10 mil articulos. De nombres genericos .png a su SKU.png
Excelente!
GRacias
Dónde veo la macro?
Jesus gracias por la ayuda, no se imagina la cantidad de horas que me va a ayudar a ahorrar.
Funciona super bien la macro ! Gracias !!
De gran utilidad. Gracias por el aporte
Muchas gracias por tremendo video!
Muchas gracias por el aporte !!!
super!! Mil gracias sigue subiendo más contenido..
mucho trabajo ahorrado, muchas gracias.
Muchas muchas gracias. Qué maravilla !!!!!!
Hermano es usted un genio, revisen bien que cuando copien el codigo no lleve al final "?". el ya lo ha reiterado en varia ocasiones.
Justo eso me pasó a mi jaja pero me alcancé a percatar y funcionó perfectamente.
Muy bueno me ayudó muchísimo muchas gracias.
De casualidad no hay una donde a parte de renombrar las acomode en sub-carpetas??
Eres el mejor!! gracias por tu aportación :)
Excelente vídeo, muchas gracias! :)
Hola muy útil ,mucha gracias. Una consulta, hay algún modo de además de renombrar el archivo, también se las coloque en una carpeta dependiendo de su nombre? Por ejemplo docgrupo1 , todos los grupos 1 en una carpeta y así. Gracias de antemano ☺️
Ya que el amigo no puso su código, por acá lo dejo. espero que les sirva.
Sub RENOMBRAR_ARCHIVOS()
Dim Objeto_Archivos As Object
Dim Lista_Archivos As Object
Dim Archivos As Object
Dim Archivo As Object
'********************************
Set Objeto_Archivos = CreateObject("Scripting.FileSystemObject")
Set Lista_Archivos = Objeto_Archivos.GetFolder(ThisWorkbook.Path & "\")
Set Archivos = Lista_Archivos.Files
'********************************
j = 1
While ActiveSheet.Cells(j, 1) ""
If ActiveSheet.Cells(j, 3) "OK" Then
For Each Archivo In Archivos
If UCase(Archivo) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(j, 1)) Then
Archivo.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(j, 2), True
Archivo.Delete
ActiveSheet.Cells(j, 3) = "OK"
Exit For
End If
Next
End If
j = j + 1
Wend
End Sub
Héroe sin capa!!
@@oswaldogomez11 me da error 429, en la depuracion indica Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")••••ˇˇˇˇ.. sabes por que puede ser?
usted tiene el cielo ganado
de donde saco el código?
el que indicas que copiemos y peguemos por favor
Hola Jesus, desde el inicio pones los nombres de los archivos que vas a renombrar, no se como colocarlos en la columna A, los nombres que colocaré despues si, pero no se como seleccionar los nombres de los archivos que quiero cambiar, puedes ayudarme por fa
Excelente, muchas gracias.
Muchas gracias funciono a la perfección
Muchas gracias por tus macros me han sido de mucha ayuda.
Consulta: has confeccionado una macro que permita unir dos archivos (.pdf) listados en una hoja excel, ejemplo:
A B C
1 archivo1.pdf archivo2.pdf archivo1+2.pdf
2 archivo3.pdf archivo4.pdf archivo3+4.pdf
Hola!
Darte las gracias por lo que haces. Me parece genial este pequeño tutorial. La verdad es que me ayudaría considerablemente para mi trabajo. Pero tengo un pequeño problema y es que cuando intento cargar el macron me da errores de sintaxis. Muchas gracias por todo y saludos!
favor asegúrate de que en el explorador se estén mostrando las extensiones de los archivos y que la hoja donde se coloquen los datos se llame "nombres". Si no lo logras me cuentas y te colaboro de alguna manera.
Hola Jesús. Muchas gracias por contestarme. He probado las dos cosas que me has dicho pero me sigue pasando lo mismo (error de sintaxis). Ya no se que más hacer : S
Hola, favor copiar desde la palabra Sub hasta End Sub, elimina el símbolo ? que te genera al final cuando copias algo de los comentarios de youtube.
Geniaaaal!!!Muchas graciass Jesús!!.....
Muchas gracias, funciono a la primera
Funciono muy bien. Hay que revisar que la macro sea la correcta. Muchas gracias.
Sub RENOMBRAR_ARCHIVOS()
Dim Objeto_Ficheros As Object
Dim Lista_Ficheros As Object
Dim Ficheros As Object
Dim Fichero As Object
'--------------------------------------------------------------
Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")
Set Lista_Ficheros = Objeto_Ficheros.GetFolder(ThisWorkbook.Path & "\")
Set Ficheros = Lista_Ficheros.Files
'--------------------------------------------------------------
x = 2
While ActiveSheet.Cells(x, 1) ""
If ActiveSheet.Cells(x, 3) "OK" Then
For Each Fichero In Ficheros
If UCase(Fichero) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 1)) Then
Fichero.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True
Fichero.Delete
ActiveSheet.Cells(x, 3) = "OK"
Exit For
End If
Next
End If
x = x + 1
Wend
End Sub
Mil gracias, ese el código correcto.
Dim Objeto_Ficheros As Object
Dim Lista_Ficheros As Object
Dim Ficheros As Object
Dim Fichero As Object
Sub RENOMBRAR_ARCHIVOS()
'--------------------------------------------------------------
Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")
Set Lista_Ficheros = Objeto_Ficheros.GetFolder(ThisWorkbook.Path & "\")
Set Ficheros = Lista_Ficheros.Files
'--------------------------------------------------------------
x = 1
While ActiveSheet.Cells(x, 1) ""
If ActiveSheet.Cells(x, 3) "OK" Then
For Each Fichero In Ficheros
If UCase(Fichero) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 1)) Then
Fichero.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True
Fichero.Delete
ActiveSheet.Cells(x, 3) = "OK"
Exit For
End If
Next
End If
x = x + 1
Wend
End Sub
Excelente, me sirve de mucho
Gracias, estoy muy agradecido....
Hola Jesús, antes que nada quiero agradecerte por este gran tutorial, ahora bien, quería saber como puedo modificar los nombres de los archivos, estando estos en otra ubicación diferente a la del archivo excel.
Sos el capo!
Hola Jesús que gran aporte! Pregunta: En MAC hay que cambiar algo? que se debe hacer?
Buenos dias, cuand9 ejecuto la macro cambia el nombre del primer archivo se queda pensando y no avanza
Lo intenté pero no puedo, hay muchas cosas que dices que no comprendo, como por ejemplo como debo nombrar el archivo excel, como ejecutarla, me sale errores así tal cual tu lo dices, sólo al intentar guardar y al intentar ejecutar ya es error.
Jesús muchas gracias, excelente macro, le cambié el nombre a 330 archivos en un santiamén
Hola amigo, por favor, me puede pasar la codificación. mi Correo: pato_zzzz@yahoo.com
En dnd esta la macro ? Digo los comandos ??
buena macro pero me podrias ayudar en la macro donde puedo adjutar el jpg ya que los nuevo nuemeros que quiero colocar no tiene la deficion de jpd como puedo hacer ????
Hola Edinson, aquí va
Dim Objeto_Ficheros As Object
Dim Lista_Ficheros As Object
Dim Ficheros As Object
Dim Fichero As Object
Sub RENOMBRAR_ARCHIVOS()
'--------------------------------------------------------------
Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")
Set Lista_Ficheros = Objeto_Ficheros.GetFolder(ThisWorkbook.Path & "\")
Set Ficheros = Lista_Ficheros.Files
'--------------------------------------------------------------
x = 1
While ActiveSheet.Cells(x, 1) ""
If ActiveSheet.Cells(x, 3) "OK" Then
For Each Fichero In Ficheros
If UCase(Fichero) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 1)) Then
Fichero.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True
Fichero.Delete
ActiveSheet.Cells(x, 3) = "OK"
Exit For
End If
Next
End If
x = x + 1
Wend
End Sub
Super bien!!! la macro esta en los comentarios iniciales:
Sub RENOMBRAR_ARCHIVOss()
Set Objeto_Archivos = CreateObject("Scripting.FileSystemObject")
Set Lista_Archivos = Objeto_Archivos.GetFolder(ThisWorkbook.Path & "\")
Set Archivos = Lista_Archivos.Files
x = 1
While ActiveSheet.Cells(x, 1) ""
If ActiveSheet.Cells(x, 3) "OK" Then
For Each Archivo In Archivos
If UCase(Archivo) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 1)) Then
Archivo.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True
Archivo.Delete
ActiveSheet.Cells(x, 3) = "OK"
Exit For
End If
Next
End If
x = x + 1
Wend
End Sub
Excelente herramienta
Muy buen video me ahorro el trabajo de tener que crear 700 archivos con nombre
Excelente! Graciassss
eres el mejor!!!
Hola Jesús, gracias por el aporte. ahora bien , si no quiero guardar el archivo de excel en la carpeta donde tengo los archivos que cambiare nombre, que debo ajustar en el codigo?
gracias!
Jesús buenas tardes, he utilizado la macro en varias ocasiones y me ha funcionado super bien, pero ahora no se que le ocurre y al finalizar de correr la macro me está borrando algunos archivos, por ejemplo de 4000 archivos sólo quedan en la carpeta 300; al verificar en la hoja de cálculo le pone el OK a todos los archivos. Agradezco su valiosa colaboración
Hola, me paso exactamente lo mismo, Encontraste solución?
Y si tengo nombres iguales con (1) como le hago para renombrarlo asi?
no se, creí que enseñarías como se hace por si alguien necesita cambiar las filas o algo así pero solo copiar y pegar no es "hacer"......
Buen dia estaba utilizado correctamente esta macro y de un momento a otro dejo de funcionar que debo hacer para solucionarlo
Muchas gracias, funciona a la perfección.
MUY BUENA HERRAMIENTA...!!! estimado Jesús, mil gracias, es algo que lo e querido intentar de varias maneras y no lo he logrado y ahora tampoco lo logro. Por favor me podrías ayuder explicándome como lo hago en el sistema Mac OS, por que lo intento y no me sale. Como lo hago...? por favor me podría ayudar, Gracias de antemano, si necesito reconocer no tengo problema porque tengo otras mas inquietudes. Nuevamente Gracias.
Me has ahorrado muchiiiiisimo tiempo
muchas gracias si funciona
Hola Jesús muchas gracias por tu aporte, quería saber si tienes un código que me permita correr masivamente muchas plantillas de excel
Buenas tardes, no me sale la macro, donde la puedo conseguir. Gracias
Buenas tardes. Muy clara y práctica tu explicación. Por favor no encuentro el código que mencionas, gracias.
Dim Objeto_Ficheros As Object
Dim Lista_Ficheros As Object
Dim Ficheros As Object
Dim Fichero As Object
Sub RENOMBRAR_ARCHIVOS()
'--------------------------------------------------------------
Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")
Set Lista_Ficheros = Objeto_Ficheros.GetFolder(ThisWorkbook.Path & "\")
Set Ficheros = Lista_Ficheros.Files
'--------------------------------------------------------------
x = 1
While ActiveSheet.Cells(x, 1) ""
If ActiveSheet.Cells(x, 3) "OK" Then
For Each Fichero In Ficheros
If UCase(Fichero) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 1)) Then
Fichero.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True
Fichero.Delete
ActiveSheet.Cells(x, 3) = "OK"
Exit For
End If
Next
End If
x = x + 1
Wend
End Sub
@@Macroexcelaton Excelente, muchas gracias!!!
@@Macroexcelaton muchisimas gracias!
hola Jesus, hace tiempo use esta macro y es una maravilla, ahora cambie de compu una huawei DM16 y me sale error 76, sabes porque?
Maestro !!
un código de los útiles... mil gracias
Buenas tardes Jesús, me sale un mensaje que dice, tenga cuidado: es posible que algunas partes de su documento incluyan información personal que el inspector de documento no puede quitar
que debo hacer? me podrías colaborar con el código por correo, muchas gracias.
esta macro se ve genial y la necesito, muchas gracias por tu colaboración!!!!
porque no me funciona en el libro oculto de excel??? para tenerlo con mi listado de macros
Excelente macro amigo
Hola. Muy buen vídeo. Esta macro sirve para cambiar nombres a carpetas?
No me funciona..me dice que "No se ha encontrado la ruta de acceso" y el archivo excel está en la misma carpeta que los archivos a cambiar de nombre. La hoja con los datos esta con el nombre de NOMBRE...
Si la Columna A y la Columna B tienen el mismo nombre, se borran los archivos. ¡¿Cómo hago para evitar esto?!
Hola, cuando corro la macro en la tercer columna me coloca los respectivos "OK", pero cuando voy a la carpeta donde están contenidos todos los archivos en lugar de RE-NOMBRARLOS me los ELIMINA. Si alguien sabe como solucionar este problema se lo agradecería.
muy buena tarde.. ayuda no he podido hacer funcionar la macro... no se que estoy haciendo mal
Hola, la utilizo normalmente y hoy he intentado utilizarla y me da un error en la línea delete y no me cambia nada. He probado en varios ordenadores y con varios ficheros y me sale el mismo error, puede ser por alguna actualización de office????? Gracias.
hermano una pregunta por que los nombres de archivos que estan entre parentesis parece no detectarlos? hay alguna solucion?
Jesús Hernandez no me deja ejecutar la macro, me sale el siguiente error Set Lista_Ficheros = Objeto_Ficheros.GetFolder(ThisWorkbook.Path & "\") ese texto lo resalta en amarillo
Lo pudiste solucionar?
Acabo de renombrar una lista de archivos y la verdad que funcionó perfectamente, esperen hasta que se complete la columna de con los ok, no le presten atención al sistema que dice que no funciona, funciona y muy bien, los archivos los renombre usando caracteres japoneses y anduvo de 10 !
pastebin.com/HDD6435P
Dejo un paste con el código, estas cosas no se tienen que perder ya que son muy valiosas !
Gracias Jesus por el EXCELente aporte !
Hola, me puedes pasar por favor el código de la macro, no la encontré en los comentarios
Y la macro? :(
Le dieron la macro? Yo tampoco la encuentro
@@yaddyaguilar7394 Sub RENOMBRAR_ARCHIVOss()
Set Objeto_Archivos = CreateObject("Scripting.FileSystemObject")
Set Lista_Archivos = Objeto_Archivos.GetFolder(ThisWorkbook.Path & "\")
Set Archivos = Lista_Archivos.Files
x = 1
While ActiveSheet.Cells(x, 1) ""
If ActiveSheet.Cells(x, 3) "OK" Then
For Each Archivo In Archivos
If UCase(Archivo) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 1)) Then
Archivo.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True
Archivo.Delete
ActiveSheet.Cells(x, 3) = "OK"
Exit For
End If
Next
End If
x = x + 1
Wend
End Sub