Excel: Cómo arreglar enlaces rotos

En Excel, los enlaces a otros libros de trabajo se utilizan a menudo para hacer referencia a información relevante. Sin embargo, si un libro de origen es renombrado o movido a una ubicación diferente, estos enlaces pueden romperse, causando errores. Este tutorial proporciona dos métodos efectivos - usando la función Editar Enlaces o código VBA - para identificar y corregir rápidamente los enlaces rotos en tu libro.

Arreglar enlaces rotos aplicando Editar Enlaces

Arreglar enlaces rotos utilizando código VBA

En Excel, puedes ir al cuadro de diálogo Editar Enlaces para arreglarlos uno por uno.

1. Abre el libro que contiene los enlaces rotos, y haz clic en Datos > Editar Enlaces (en el Consultas y Conexiones grupo).

2. En el cuadro de diálogo Editar Enlaces haz clic en Ver Estado para encontrar qué enlaces están rotos.
 

3. Luego haz clic en los enlaces rotos, y después haz clic en el botón Cambiar Fuente En la ventana Cambiar Fuente elige el libro de origen correcto y haz clic en Aceptar.

Ahora puedes ver que el estado ha cambiado de Error a Aceptar. Repite el paso 3 para arreglar otros enlaces rotos.

Esta sección introduce un código VBA para ayudarte a arreglar enlaces rotos.

1. Abre el libro que deseas arreglar los enlaces rotos, y presiona las teclas Alt + F11.

2. Luego, en la ventana emergente Microsoft Visual Basic para Aplicaciones haz clic en Insertar > Módulo para crear un nuevo módulo en blanco.

3. Copia y pega el siguiente código en el nuevo módulo.

VBA: Arreglar 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. Presiona la tecla F5 o el botón Ejecutar   para activar el código. Ahora busca si hay algún enlace roto. Si es así, aparece un cuadro de diálogo indicándote qué enlace está roto, selecciona una nueva fuente. Haz clic en Aceptar para continuar.

5. En la ventana Abrir elige la fuente actualizada, haz clic en Aceptar.

Si todavía hay un enlace roto en el libro, los diálogos anteriores volverán a aparecer hasta que todos los enlaces rotos estén arreglados.

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

Consejo: si quieres ver todos los enlaces adicionales y romper los enlaces rotos, Kutools para Excel’s Buscar y Romper Enlaces Rotas función será de gran ayuda.

Para aprender más sobre esta función, por favor vea nuestro tutorial detallado.