Excel: Cómo corregir vínculos rotos
En Excel, es habitual utilizar vínculos a otros libros para hacer referencia a información relevante. No obstante, si se renombra el libro de origen o se traslada a otra ubicación, dichos vínculos pueden romperse y generar errores. Este tutorial presenta dos métodos eficaces —la función Editar vínculos o código VBA— para identificar y corregir rápidamente los vínculos rotos en su libro.
Corrija los vínculos rotos aplicando Editar vínculos
Corrija los vínculos rotos mediante código VBA
En Excel, puede acceder al cuadro de diálogo Editar vínculos para corregirlos uno a uno.
1. Abra el libro que contiene los vínculos rotos y haga clic en Datos > Editar vínculos(en el grupo)Consultas y conexiones).
2. En el cuadro de diálogo Editar vínculos, haga clic en Comprobar estado para identificar qué vínculos están rotos.
3. A continuación, haga clic en los vínculos rotos y, después, en el botón Cambiar origen. En la ventana Cambiar origen, seleccione el libro de origen correcto y haga clic en Aceptar.
Ahora verá que el estado ha cambiado de Error a Correcto. Repita el paso 3 para corregir otros vínculos rotos.
Esta sección incluye un código VBA diseñado para ayudarle a reparar vínculos rotos.
1. Abra el libro en el que desea corregir los vínculos rotos y pulse las teclas Alt+F11.
2. A continuación, en la ventana emergente Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo para crear un nuevo módulo en blanco.
3. Copie y pegue el siguiente código en el nuevo módulo.
VBA: Corregir vínculos rotos
Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
MsgBox "Select updated source"
Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
xStrLk = xLks(xFNum)
xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
If xStatus <> 0 And xStatus <> 3 Then
MsgBox xStrLk & " the link is broken, please select new source"
xF = Application.GetOpenFilename()
If xF <> "" Then
For Each xLk In ActiveSheet.UsedRange.Hyperlinks
xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
If InStr(xStrLk, GetAddress) <> 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
End If
Next
ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
End If
End If
Next
End Sub
4. Pulse la tecla F5 o el botón Ejecutar
para ejecutar el código. A continuación, buscará si existen vínculos rotos. En ese caso, aparecerá un cuadro de diálogo indicándole qué vínculo está roto y le pedirá que seleccione un nuevo origen. Haga clic en Aceptar para continuar.
5. En la ventana Abrir, seleccione el origen actualizado y haga clic en Aceptar.
Si aún queda algún vínculo roto en el libro, los cuadros de diálogo anteriores seguirán apareciendo hasta que se corrijan todos los enlaces no válidos.
Nota: si el libro no contiene ningún vínculo roto, el código VBA se detendrá tras su ejecución.
Consejo: si desea ver todos los vínculos externos y eliminar los vínculos rotos, la función Kutools para Excel de Buscar y romper enlaces será de gran ayuda.
Para obtener más información sobre esta función, consulte nuestro tutorial detallado.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Cómo corregir/bloquear Color de fondo en una hoja
A veces, al compartir una hoja con otras personas para que la editen, es posible que quieras bloquear el color de fondo en un rango de celdas e impedir que se modifique.
¿Cómo reducir el tamaño de un archivo de Excel?
¿Te lleva varios minutos abrir o guardar un archivo de Excel porque es demasiado grande? En este tutorial te explicamos cómo reducir su tamaño eliminando contenidos, formatos innecesarios o elementos que nunca has utilizado.
Excel: Cómo crear o insertar un marcador
¿Ha imaginado alguna vez crear o insertar un marcador para saltar rápidamente a un rango de datos específico cuando hay muchos datos en una hoja de cálculo o en un libro?
¿Cómo aplicar sombreado a filas o columnas impares o pares (alternas) en Excel?
Al diseñar una hoja de cálculo, muchas personas suelen aplicar sombreado a las filas o columnas impares o pares (alternas) para hacer la hoja más visual. Este artículo le mostrará dos métodos para aplicar sombreado a filas o columnas impares o pares en Excel.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos