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.
Muchas gracias por tu video, la macro y compartirlo con los demas me sirvio muchisimo. Como observacion, este video hasta 2024 funciona, pero deberia fijar el comentario de la macro porque es dificil encontrarlo. Gracias
😲 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 😁
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 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
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.
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)
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
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 ☺️
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!
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
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.
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, 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.
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.
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
@@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
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
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
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...
Hola Yamil, 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
lo hice con un archivos pdf y funciona pero cuando voy a descomprimir un archivo en el cual dividi un pdf de 100 hojas en mi carpeta aparecen en orden pero cuando lo tomo desde excel me aparece (1),10,11,12,13,14,15,16,17,18,19,(2),20,21,22 y asi todos los numeros los primeros no me los coje en orden , porque sera?
Hola jesus.. Mira que realice los pasos y la macro no me ejecuto. Me podrias colaborar.. O enviarme el archivo y compararlo cual fue mi erro.. Se lo agradesco
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
@@oswaldogomez11 me da error 429, en la depuracion indica Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")••••ˇˇˇˇ.. sabes por que puede ser?
Jesús Hernández, por favor ayuda. Me sale un error " Se a producido el error '76' en tiempo de ejecución. No se a encontrado la ruta de acceso. ". Solo alcanza a cambiar algunas imágenes y sale el error.
Tengo todo eso ok, Igual que en el vídeo. Cuando me sale el error, pongo depurar y me lleva a esta linea en el código: Archivo.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True . La verdad me urge poder solucionar esto , me ahorraría mucho trabajo. De todos modos 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
En la quinta línea escribes Dim Ruta as string.... En la línea debajo del código filesystem, escribes Ruta ="LA RUTA DE TUS ARCHIVOS". Por último en la fila de Set Lista_Archivos....GetFolder(Ruta). Con eso me bastó. Saludos.
@@Macroexcelaton hola Jesús, gracias. Si tenía caracteres especiales, pero el inconveniente realmente era la ruta de ubicación de los archivos y el nombre que eran muy extensos y por eso generaba el error. Cambié la ubicación y aún cuando el nombre inicial tenía un guión medio (-) se ejecutó la macro y quedaron todos renombrados como necesitaba
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.
Muchas gracias por tu video, la macro y compartirlo con los demas me sirvio muchisimo. Como observacion, este video hasta 2024 funciona, pero deberia fijar el comentario de la macro porque es dificil encontrarlo. Gracias
😲 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 😁
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
Hola. Esto sirve para renombrar pdf?
Muchisimas gracias. Excelente tutorial!!! .
Me has ahorrado mucho trabajo y a mis compañeras también.
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
Agradezco mucho este video y su autor, me acaba de ahorrar un montón de tiempo.
Lo que hacia en hora y media solo me tomo 2 minutos, mil 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.
Buenos días cual es el código para renombrar archivos de manera masiva.
Muchísimas gracias por su generosidad al compartirnos esta conocimiento.
de donde saco el código?
el que indicas que copiemos y peguemos por favor
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
Me ahorraste una semana de trabajo, eres el mejor !
Esto me salvó dos días de trabajo! Muchas gracias.
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.
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
Hombre, funciona perfecto, esa parte del trabajo ya salio, seguire investigando, gracias.
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 video, me ayudo mucho. Sigue haciendo videos así, por favor. Muchas gracias!!!!!
Muchas gracias por compartir conocimiento. Me sirvió y va muy bien.
Un video estupendo, claro y de muchísima utilidad, 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.
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, 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
Muchas gracias! de mucha utilidad. Me ha ahorrado mucho tiempo.
Buenos dias, cuand9 ejecuto la macro cambia el nombre del primer archivo se queda pensando y no avanza
excelente aporte, siga así realizando excelentes aportes como este.
Excelente justo lo que queria, me suscribo y doy super like!!!!
Muchas gracias!!! me ahorraste días de trabajo!
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?
Muchas Gracias. Excelente macro me ha sido de mucha utilidad
Jesus gracias por la ayuda, no se imagina la cantidad de horas que me va a ayudar a ahorrar.
Gracias me haz ahorrado mucho trabajo
Y si tengo nombres iguales con (1) como le hago para renombrarlo asi?
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 ☺️
Claro, sencillo y efectivo. Mil gracias
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!
Excelente... Mis Felicitaciones Maestro... Con mi Like y mi suscripción... Muchas Gracias....
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
muy buena tarde.. ayuda no he podido hacer funcionar la macro... no se que estoy haciendo mal
porque no me funciona en el libro oculto de excel??? para tenerlo con mi listado de macros
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.
Funciona a la perfección , muchas gracias
Muy bueno me ayudó muchísimo muchas gracias.
De casualidad no hay una donde a parte de renombrar las acomode en sub-carpetas??
Hola, donde encuentro la macro, no la veo en comentarios
Buenos días por favor cual es el código para renombrar archivos masivamente.
Buen dia estaba utilizado correctamente esta macro y de un momento a otro dejo de funcionar que debo hacer para solucionarlo
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.
¿Cómo procedo, si en lugar de archivos, quiero cambiar el nombre a las carpetas?
En dnd esta la macro ? Digo los comandos ??
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
hermano una pregunta por que los nombres de archivos que estan entre parentesis parece no detectarlos? hay alguna solucion?
super!! Mil gracias sigue subiendo más contenido..
Buenas tardes, no me sale la macro, donde la puedo conseguir. Gracias
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.
SIRVE TAMBIEN PARA RENOMBRAR PDFS/XML??
Hola en caso que yo tenga archivos en una carpeta con subcarpetas como haria??
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?
mucho trabajo ahorrado, muchas gracias.
Muchas gracias por tremendo video!
Excelente aporte!!!! Es una nave esa macro 👍👌👍👏👏👏
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.
como pueden copiarse los nombres de los archivos originales al excel?
Eres el mejor!! gracias por tu aportación :)
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!!.....
Si la Columna A y la Columna B tienen el mismo nombre, se borran los archivos. ¡¿Cómo hago para evitar esto?!
Como le hago si quiero poner mis nombres en otras columnas que no sea columna A y B??
De gran utilidad. Gracias por el aporte
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
Excelente vídeo, muchas gracias! :)
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
Hola Jesús que gran aporte! Pregunta: En MAC hay que cambiar algo? que se debe hacer?
Donde peudeo tener la macro ?
Hola Jesús, ¿como hago para que los archivos originales aparezcan en el excel?
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?
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?
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...
no veo la macro en los comentarios., por favor ayuda
Muchas gracias por el aporte !!!
Por favor indicar donde puedo obtener la macro mencionada en el video. gracias
Hola Yamil, 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
¿Cómo puedo pasar el NOMBRE del archivo al TÍTULO de las propiedades de forma automática?
Quiero obtener la plantilla. A mi me da error 76
No encuentro la macro, donde esta?
Estimados. Donde ubico la formula del visual basic. Para copiar en el modulo 1 de macros
Funciona de maravilla; gracias por la macro
Muy buen video me ahorro el trabajo de tener que crear 700 archivos con nombre
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
lo hice con un archivos pdf y funciona pero cuando voy a descomprimir un archivo en el cual dividi un pdf de 100 hojas en mi carpeta aparecen en orden pero cuando lo tomo desde excel me aparece (1),10,11,12,13,14,15,16,17,18,19,(2),20,21,22 y asi todos los numeros los primeros no me los coje en orden , porque sera?
Hola David, revisa que no tengas nombres repetidos.
buenas noches, no veo el codigo me ayudas porfa.
No encuentro la Macro ?????????????????????????????????????
Hola jesus.. Mira que realice los pasos y la macro no me ejecuto. Me podrias colaborar.. O enviarme el archivo y compararlo cual fue mi erro.. Se lo agradesco
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
Jesús Hernández, por favor ayuda. Me sale un error " Se a producido el error '76' en tiempo de ejecución. No se a encontrado la ruta de acceso. ". Solo alcanza a cambiar algunas imágenes y sale el error.
Andrés, favor revisa que tengas activa la extensión de los archivos y que los estés listando con la extensión correcta.
Tengo todo eso ok, Igual que en el vídeo. Cuando me sale el error, pongo depurar y me lleva a esta linea en el código: Archivo.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True . La verdad me urge poder solucionar esto , me ahorraría mucho trabajo. De todos modos gracias.
Ya lo solucione, el problema era que en la lista de nombres nuevos habian caracteres como (/\*".etc), Lo dejo por si a alguien le pasa.
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
Hola, cual es formato que se debe guardar el archivo ??
@@creavideosyoutube2198 *.xlsm
Funciona super bien la macro ! Gracias !!
Estimado en que parte debo colocar los archivos que voy a renombrar para que la Macro los lea? Gracias
Hola Marlon, dentro de la misma carpeta donde tienes tu libro de excel
Debes colocar tu archivo de excel con la macro en la misma carpeta donde están los archivos
Hola, no me ha funcionado, corro la macro y me da Run-time error '429': ActiveX component can't create object ¿Me podrás orientar? Saludos!
Le doy en depurar y el error me lo da en la linea Set Objeto_Archivos = CreateObject("Scripting.FileSystemObject")
Hola Lopito, verifica que le estés colocando la extensión que corresponda a los archivos.
@@Macroexcelaton a mi me salió el mismo error, y puse bien la extensión. Por favor me ayudas?? :)
@@Macroexcelaton me salió el mismo error. Podrías ayudarnos por favor.
En la quinta línea escribes Dim Ruta as string.... En la línea debajo del código filesystem, escribes Ruta ="LA RUTA DE TUS ARCHIVOS". Por último en la fila de Set Lista_Archivos....GetFolder(Ruta). Con eso me bastó. Saludos.
Me genera un error '76' al momento de ejecutarla que podrá ser? Está guardada en la misma carpeta donde tengo los archivos a renombrar
Diana, favor revisa que los nuevos nombres no tengan caracteres especiales * /,
@@Macroexcelaton hola Jesús, gracias. Si tenía caracteres especiales, pero el inconveniente realmente era la ruta de ubicación de los archivos y el nombre que eran muy extensos y por eso generaba el error. Cambié la ubicación y aún cuando el nombre inicial tenía un guión medio (-) se ejecutó la macro y quedaron todos renombrados como necesitaba
@@dianagalvis8879 como cambio la ruta de ubicación de los archivos?
donde encuentro el codigo?