tag:blogger.com,1999:blog-4623278671508370136.post7864461263495074374..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Cambiar nombres de ficheros con la instrucción NAME.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger36125tag:blogger.com,1999:blog-4623278671508370136.post-92184694628313142432018-11-09T11:28:46.156+01:002018-11-09T11:28:46.156+01:00Hola
el código estará bien, pero el error 53 te in...Hola<br />el código estará bien, pero el error 53 te indica que no encuentra el archivo, asi que revisa la ruta y el nombre de los ficheros...<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-83512360898541861272018-11-08T18:23:00.956+01:002018-11-08T18:23:00.956+01:00Copio el codigo tal cual y me da error en la linea...Copio el codigo tal cual y me da error en la linea de Name NombreViejo As NombreNuevo, por error 53 ¿?Anonymoushttps://www.blogger.com/profile/12655059962649570191noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-90375938408949830182018-10-03T10:06:21.442+02:002018-10-03T10:06:21.442+02:00Hay ciertos caracteres que no están admitidos en l...Hay ciertos caracteres que no están admitidos en los nombres de los ficheros y/o rutas, por ejemplo, uno típico es la barra /<br />otro son los dos puntos :<br /><br />Saludos!Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-18531850585908648022018-10-01T17:57:54.071+02:002018-10-01T17:57:54.071+02:00Hola buen dia, cambie la dirección a un directorio...Hola buen dia, cambie la dirección a un directorio mas directo como es C:\Temp para que sea mas coro y modifique lo que quiero como nombre, pero lo que me da el error es usar datos de hora al cambiar el nombre del archivo (IF(H2="","",H2&"-Rep-"&TEXT(TODAY(),"dd-mmm")&"-"&TEXT(NOW(),"HH:MM")), esa variable no la acepta, ya revise y realice pruebas, funciona siempre y cuando no use dentro de la formula que arroja el nombre la formula de TEXT(NOW(),"HH:MM"), no se por que si al final todo se covierte a texto y se guarda como un string, pero bueno ya modifique la formula y funciono, tambien arroja ese mismo error si el nombre del archivo no es valido algo asi como C:\Temp\MyArchivo.jpgxl<br /><br />Gracias por tu ayuda, Saludos !Anonymoushttps://www.blogger.com/profile/18165714036859551839noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-91215006964699720312018-09-30T10:46:30.409+02:002018-09-30T10:46:30.409+02:00¿qué nombres son los que aparecen en las celdas?
¿...¿qué nombres son los que aparecen en las celdas?<br />¿quizá tengan algún caracter no válido??<br />¿has probado con una ruta diferente que no esté en el escritorio?Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-19544557420315171372018-09-28T18:31:32.683+02:002018-09-28T18:31:32.683+02:00Sub CambiarN()
Dim NombreViejo As String
D...Sub CambiarN()<br /> Dim NombreViejo As String<br /> Dim NombreNuevo As String<br /><br /> For Each Fichero In Range("H2:H7")<br /><br /> NombreViejo = "C:\Users\VazquezA\Documents\My Documents\Analisis Realizados\Ciclos\" & Fichero.Value & ".jpg"<br /> NombreNuevo = "C:\Users\VazquezA\Documents\My Documents\Analisis Realizados\Ciclos\" & Fichero.Offset(0, 1).Value & ".jpg"<br /><br /> Name NombreViejo As NombreNuevo<br /> Next Fichero<br />End SubAnonymoushttps://www.blogger.com/profile/18165714036859551839noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-32013167793088862912018-09-28T18:29:42.550+02:002018-09-28T18:29:42.550+02:00Use el comando ActiveWorkbook.Path para que la dir...Use el comando ActiveWorkbook.Path para que la dirección de donde están los archivos fuera mas corto y a partir de ahi trono todo, lo regrese al formato de dirección larga "C:\Micarpeta\Archivos etc . . ." pero ni asi se quita el error :-(Anonymoushttps://www.blogger.com/profile/18165714036859551839noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-64944827058066419632018-09-28T18:22:21.883+02:002018-09-28T18:22:21.883+02:00Hola buen dia, ahora es otro :-( al principio no e...Hola buen dia, ahora es otro :-( al principio no encontraba el archivo, eso lo resolvi, funciono cuando puse el codigo, lo guarde y despues de eso realice un cambio de la hoja de calculo de carpeta para ya dejarla donde deveria estar y al correr la macro me mando este error: Run-time error '5': Invalid procedure call or argument, ya me busque y no logro encontrar la solucion para que este error ya no aparesca, tengo muchas macros y solo con este codigo sale ese error :-( help !!Anonymoushttps://www.blogger.com/profile/18165714036859551839noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-41693005714263488752018-09-28T11:12:38.027+02:002018-09-28T11:12:38.027+02:00;-)
¿cuál fue el problema?;-)<br />¿cuál fue el problema?Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-20315596536214970642018-09-27T20:17:19.874+02:002018-09-27T20:17:19.874+02:00Ya di con el error :-), Gracias !Ya di con el error :-), Gracias !Anonymoushttps://www.blogger.com/profile/18165714036859551839noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-49564862856573373132018-09-27T00:38:09.326+02:002018-09-27T00:38:09.326+02:00De echo si ingreso la direccion completa "C:\...De echo si ingreso la direccion completa "C:\Users\My..\archivo.jpg" que es igual a la que arroja la formula si funciona :-(, no se por que no toma la formula como un texto simple para tomarlo como direccion a buscar y cambiarAnonymoushttps://www.blogger.com/profile/18165714036859551839noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-54793143416511080942018-09-26T19:41:19.501+02:002018-09-26T19:41:19.501+02:00Hola buen dia, ya tengo varios dias con este probl...Hola buen dia, ya tengo varios dias con este problema jeje he revisado varios foros y segun yo el codigo esta bien pero nadamas no logro sulucionar el problema :-(, Necesito renombrar archivos JPG de una carpeta en especifico pero al correr la macro siempre me manda el error FILE NOT FOUND ya revise y la ruta es correcta, el archivo esta ahi no se que pueda ser<br />este es el codigo:<br /><br />Sub CambiarNombres()<br /><br /> Dim NombreViejo As String<br /> Dim NombreNuevo As String<br /> Dim Fe As Date<br /> Dim Ho As String<br /> <br /> For Each Fichero In Range("A2:A6")<br /><br /> Direccion = Range("H2").Value<br /> Fe = Date<br /> Ho = Format(Now, "HH:MM")<br /> <br /> NombreViejo = "C:\Users\My Documents\Analisis\Ciclos\" & Fichero.Value & ".Jpg"<br /> NombreNuevo = "C:\Users\My Documents\Analisis\Ciclos\" & Fichero.Value & "_" & Fe & "_" & Ho & ".Jpg"<br /><br /> 'Aqui coloca la direccion completa para ver como quedaria cada archivo pero no logra encontrarlo :-(<br /> Range("H15") = NombreViejo<br /> Range("H16") = NombreNuevo<br /><br /> Name NombreViejo As NombreNuevo<br /><br /> Next Fichero<br />End SubAnonymoushttps://www.blogger.com/profile/18165714036859551839noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-76654824659807432112018-08-28T09:13:26.943+02:002018-08-28T09:13:26.943+02:00Hola, cómo estás?
un placer poder colaborar contig...Hola, cómo estás?<br />un placer poder colaborar contigo<br /><br />Revisa el código y las rutas (especialmente si has dispuesto correctamente los separadores \) y que los ficheros existen...<br /><br />el código sigue funcionando correctamente<br /><br />Un cordial saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-6452668114002913802018-08-27T18:56:49.519+02:002018-08-27T18:56:49.519+02:00Siguiendo el codigo que hiciste, la macro se queda...Siguiendo el codigo que hiciste, la macro se queda en el codigo Name NombreViejo As NombreNuevo; los ficheros estan bien, la srutas igual; etsoy usando excel 2010.Anonymoushttps://www.blogger.com/profile/17572969494814845629noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-14736373040345691182017-10-05T08:41:28.267+02:002017-10-05T08:41:28.267+02:00Hola Rafael,
deberías crear una variable tipo Stri...Hola Rafael,<br />deberías crear una variable tipo String para componer el nombre del archivo; mejor que contenga la ruta completa:<br />nombre="E:\Excelforo\" & range("A11").value & ".xlsx"<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-10276056903569087462017-10-04T21:10:24.640+02:002017-10-04T21:10:24.640+02:00hola companero,
hice un poco de codigo en vba exce...hola companero,<br />hice un poco de codigo en vba excel y los datos que recabo por medio de un formulario los voy poniendo en una plantilla/cuando mando a impresion a archivo quiero que el nombre de ese archivo sea lo contenido en una celda de esa plantilla pero no he podido, se agradece la ayuda que puedas prestarme<br />Anonymoushttps://www.blogger.com/profile/09119014353863894059noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-44940412211003465852017-03-09T09:30:52.357+01:002017-03-09T09:30:52.357+01:00Hola,
el problema es que el SO y por tanto algunos...Hola,<br />el problema es que el SO y por tanto algunos aspectos de la programación en VBA son distintas en MAC...<br />Deberías preguntar a algún experto en MAC, lo siento pero yo solo me muevo en entorno Windows.<br />Un saludo y suerteExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-80510196857292456172017-03-06T13:27:35.831+01:002017-03-06T13:27:35.831+01:00Gracias Ismael, pero yo lo uso en MAC y me da erro...Gracias Ismael, pero yo lo uso en MAC y me da error de carga de Modulos...y nose solucionarlo...<br />Anonymoushttps://www.blogger.com/profile/15504981739050176605noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-42145076163008577802017-03-05T09:50:09.148+01:002017-03-05T09:50:09.148+01:00Hola,
deberías incluir el condicional .File.Exists...Hola,<br />deberías incluir el condicional .File.Exists dentro del bucle For each, para evaluar si existe o no el fichero NombreViejo<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-23653426387263305482017-03-05T00:01:42.417+01:002017-03-05T00:01:42.417+01:00buenas tardes alguien me puede ayudar con lo sigui...buenas tardes alguien me puede ayudar con lo siguiente, y es que el cambio de ficheros funciona perfecto, pero si el archivo existe si no existe me genera un mensaje donde dice que archivo no existe, lo que trato de hacer es que si el archivo existe lo cambie si no no haga nada.<br />Sub CambiarNombres()<br />Dim NombreViejo As String<br />Dim NombreViejo1 As String<br />Dim NombreNuevo As String<br />Dim NombreNuevo1 As String<br />Dim NombreRuta As String<br />ruta = "C:\Aloha\pedidos\"<br />nombre = Format(Now, "ddmmyyyy")<br />extencion = ".pdf"<br />NombreRuta = ruta & nombre & extencion<br />If My.Computer.FileSystem.File.Exists(NombreRuta) Then<br />For Each fichero In Range("A2:A2")<br /> NombreViejo = "C:\Aloha\pedidos\" & fichero.Value & ".xlsx"<br /> NombreViejo1 = "C:\Aloha\pedidos\" & fichero.Value & ".pdf"<br /> NombreNuevo = "C:\Aloha\pedidos\" & fichero.Offset(0, 1).Value & ".xlsx"<br /> NombreNuevo1 = "C:\Aloha\pedidos\" & fichero.Offset(0, 1).Value & ".pdf"<br /> Name NombreViejo As NombreNuevo<br /> Name NombreViejo1 As NombreNuevo1<br />Next fichero<br />Else<br />End If<br />End SubAnonymoushttps://www.blogger.com/profile/04149429060737995479noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-10707697181198016642017-02-27T20:17:35.645+01:002017-02-27T20:17:35.645+01:00Hola, que tal estás?.
El procedimiento funciona (p...Hola, que tal estás?.<br />El procedimiento funciona (probado) con Excel 2016..<br />No he probado con 2013, pero creo recordar que se publicó con Excel 2010...<br /><br />Revisa que los nombres de los ficheros sean iguales a como se llaman en realidad.<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-68843743206822276102017-02-27T13:02:12.408+01:002017-02-27T13:02:12.408+01:00Lo teneis actualizado para version Excel 2013 o su...Lo teneis actualizado para version Excel 2013 o superior?. Solo me funciona en versiones de 2007 o inferior. GraciasAnonymoushttps://www.blogger.com/profile/15504981739050176605noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-77792169724361730742017-02-09T21:56:40.020+01:002017-02-09T21:56:40.020+01:00Hola David,
no tengo ninguna relación con esa pági...Hola David,<br />no tengo ninguna relación con esa página...<br />Sigue las indicaciones del post más arriba, está probado y garantizado.<br />Un saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-19153368963821957982017-02-09T16:32:28.196+01:002017-02-09T16:32:28.196+01:00me pone un error dice: se ah producido el error 75...me pone un error dice: se ah producido el error 75¨ en tiempo de ejecución necesito ayuda esqe no se si lo este asiendo mal lo estoi asiendo en 4 columnas a,b,c y d tal como esta pagina dice pero no me deja me podrias ayudar <br />http://blogs.itpro.es/exceleinfo/2012/10/03/cambiar-nombre-de-archivos-desde-excel-con-macros/Anonymoushttps://www.blogger.com/profile/11409699749799461175noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-45511892561019424572017-01-18T08:53:01.456+01:002017-01-18T08:53:01.456+01:00Hola,
asegúrate que la ruta termina en \, por ejem...Hola,<br />asegúrate que la ruta termina en \, por ejemplo:<br />A:\excelforo\<br />y luego la celda con el nombre del fichero<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.com