Excel: Cómo arreglar enlaces rotos

En un libro de trabajo, a veces, puede crear enlaces a otros libros de trabajo para hacer referencia a alguna información relevante. Pero cuando se cambia el nombre del libro de trabajo de origen o se mueve a otra ubicación, estos enlaces adicionales se romperán. Aquí, este tutorial presenta dos métodos diferentes para reparar los enlaces rotos en Excel.

Repare los enlaces rotos aplicando Editar enlaces

Repara enlaces rotos usando código VBA

En Excel, puede ir al cuadro de diálogo Editar enlaces para corregirlos uno por uno.

1. Habilite el libro de trabajo que contiene los enlaces rotos y haga clic en Datos > Editar enlaces (en Consultas y conexiones grupo).

2. En el Editar enlaces diálogo, haga clic Comprobar Estado para encontrar qué enlaces están rotos.
 

3. Luego haga clic en los enlaces rotos, luego haga clic en Cambiar fuente botón, en el Cambiar fuente ventana, elija el libro de origen correcto y haga clic en OK.

ahora puede ver el estado cambiado de Error a OK, luego repita el paso 3 para arreglar otros enlaces rotos.

Aquí presenta un código VBA que puede ayudarlo.

1. Habilite el libro de trabajo en el que desea corregir los enlaces rotos y presione otro + F11 llaves.

2. Luego, en el estallido Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo para crear un nuevo módulo en blanco.

3. Copie y pegue el siguiente código en el nuevo módulo.

VBA: reparar enlaces 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. Prensa F5 o Ejecutar .  para activar el código. Ahora busca si hay enlaces rotos. Si es así, aparece un cuadro de diálogo para indicarle qué enlace está roto, seleccione una nueva fuente. Hacer clic OK para continuar.

5. En el Abierto ventana, elija la fuente actualizada, haga clic en OK.

Si todavía hay un enlace roto en el libro de trabajo, los cuadros de diálogo anteriores vuelven a aparecer hasta que se solucionen todos los enlaces rotos.

Nota: si no hay un enlace roto en el libro de trabajo, el VBA se detendrá después de ejecutarse.

Consejo: si desea ver todos los enlaces adicionales y romper los enlaces rotos, Kutools for Excel, Encontrar y romper enlaces rotos característica será un buen ayudante.

Para obtener detalles sobre esta función, haga clic en esta página.

Para una prueba gratuita de 30 días, descárguela desde esta página.

---

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...

Leer más ... Características completas Prueba gratuita de 30 días ... Compra... 

---

Pestaña de Office: trae 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!

Leer más ... Características completas Prueba gratuita de 30 días ... Compra...