Saltar al contenido principal

¿Cómo cambiar varias rutas de hipervínculo a la vez en Excel?

Autor: Xiaoyang Última modificación: 2020-09-04

Para algún propósito, puede crear múltiples hipervínculos para sus datos en la hoja de trabajo, y todos los hipervínculos están vinculados a la misma ruta de archivo o dirección, pero ahora, debe reemplazar esta ruta de hipervínculo con otra dirección a la vez. Cambiar la ruta de los hipervínculos individualmente puede perder mucho tiempo, ¿hay alguna forma rápida de resolver este problema?

Cambie varias rutas de hipervínculo a la vez en una hoja de trabajo con código VBA

Cambie múltiples rutas de hipervínculos a la vez en una hoja de trabajo / libro de trabajo / múltiples hojas / selección con una característica sorprendente


Cambie varias rutas de hipervínculo a la vez en una hoja de trabajo con código VBA

Suponiendo que tiene una lista de datos con los mismos hipervínculos que se muestran en la siguiente captura de pantalla, y con un código VBA, puede reemplazar rápidamente la ruta o dirección del archivo anterior en una hoja de trabajo por una nueva.

1. Mantenga pulsado el botón ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

2. Haga Clic en recuadro > Móduloy pegue la siguiente macro en el Ventana del módulo.

Código VBA: cambie múltiples rutas de hipervínculo a la vez

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Entonces presione F5 para ejecutar este código, y un cuadro de aviso que le permite ingresar su antigua dirección de hipervínculo en el Texto antiguo caja. Ver captura de pantalla:

4. Hacer clic OK, y aparece otro cuadro emergente para recordarle que ingrese la nueva dirección de hipervínculo que desea usar.

5. Y luego haz clic OK, las mismas direcciones de hipervínculo antiguas han sido reemplazadas por la nueva a la vez. Ver capturas de pantalla:


Cambie múltiples rutas de hipervínculos a la vez en una hoja de trabajo / libro de trabajo / múltiples hojas / selección con una característica sorprendente

Si desea reemplazar las rutas de hipervínculo de una selección, varias hojas, workkook actual o varios libros de trabajo, ¿cómo podría hacerlo? Con Buscar y reemplazar característica de Kutools for Excel, puede hacer frente rápidamente a esta tarea.

Nota: Para aplicar esto Buscar y reemplazar utilidad, en primer lugar, debe descargar la Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Hacer clic Kutools > Navegación, ver captura de pantalla:

2. En el abierto Navegación Panel, haga clic Encontrar y reemplazar pestaña, en el Buscar y reemplazar Panel, haga clic Reemplaza pestaña, y luego realice las siguientes operaciones:

  • Ingrese el texto del hipervínculo antiguo que desea encontrar en el Encuentra lo que cuadro de texto y, a continuación, escriba el nuevo texto de hipervínculo que desea reemplazar en el Reemplazar con caja de texto;
  • Especifique el alcance donde desea buscar y reemplazar la ruta del hipervínculo desde el En un radio de la lista desplegable;
  • Luego, seleccione Hipervínculos del menú desplegable Buscar en;
  • Por último, haz clic Encuentra todos , todas las celdas correspondientes que contienen el texto del hipervínculo específico se enumeran en el cuadro de lista inferior.

3. Luego, haz clic reemplazar todo botón, las antiguas rutas de hipervínculo se han cambiado a las nuevas a la vez, vea la captura de pantalla:

¡Haga clic para descargar Kutools for Excel para una prueba gratuita!


Artículos más relativos:

  • Extraer direcciones reales de hipervínculos
  • Supongamos que tiene un rango de celdas que contienen hipervínculos, y ahora necesita ver el destino real de los hipervínculos y extraerlos de los hipervínculos como se muestra a continuación. ¿Hay alguna forma fácil de resolver este problema rápidamente?
  • Convertir URL de imagen en imágenes reales en Excel
  • Si tiene una lista de direcciones URL de imágenes en la columna A, y ahora, desea descargar las imágenes correspondientes de las URL y mostrarlas en la columna B adyacente como se muestra en la captura de pantalla de la izquierda. En Excel, ¿cómo podría extraer las imágenes reales de las URL de las imágenes de forma rápida y sencilla?
  • Convertir texto de URL en hipervínculo en el que se puede hacer clic en Excel
  • Supongamos que tiene varias URL en su hoja de trabajo, pero que no están vinculadas, y ahora necesita convertir todas las URL no vinculadas en hipervínculos en los que se puede hacer clic, como se muestra a continuación. Por supuesto, puede hacer doble clic en ellos uno por uno para que se pueda hacer clic en ellos, pero esto llevará mucho tiempo si hay muchas URL. ¿Cómo podría convertir varias URL no vinculadas en hipervínculos en los que se puede hacer clic automáticamente en Excel?

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set WS = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations