Excel: Come correggere i collegamenti interrotti

In Excel, i collegamenti ad altre cartelle di lavoro vengono spesso utilizzati per fare riferimento a informazioni pertinenti. Tuttavia, se una cartella di origine viene rinominata o spostata in un'altra posizione, questi collegamenti possono rompersi, causando errori. Questo tutorial fornisce due metodi efficaci - utilizzando la funzione Modifica Collegamenti o il codice VBA - per identificare e correggere rapidamente i collegamenti interrotti nella tua cartella di lavoro.

Correggi i collegamenti interrotti applicando Modifica Collegamenti

Correggi i collegamenti interrotti utilizzando il codice VBA

In Excel, puoi accedere alla finestra di dialogo Modifica Collegamenti per correggerli uno per uno.

1. Apri la cartella di lavoro che contiene i collegamenti interrotti e clicca su Dati > Modifica Collegamenti (nel Gruppo Query e Connessioni ).

2. Nella finestra di dialogo Modifica Collegamenti , clicca su Controlla Stato per scoprire quali collegamenti sono interrotti.
 

3. Quindi clicca sui collegamenti interrotti, poi clicca sul pulsante Cambia Origine nella finestra Cambia Origine , scegli la cartella di origine corretta e clicca OK.

Ora puoi vedere che lo stato è cambiato da Errore a OK. Ripeti il passaggio 3 per correggere altri collegamenti interrotti.

Questa sezione introduce un codice VBA per aiutare a correggere i collegamenti interrotti.

1. Apri la cartella di lavoro che desideri correggere e premi i tasti Alt + F11.

2. Poi, nella finestra Microsoft Visual Basic for Applications che si apre, clicca su Inserisci > Modulo per creare un nuovo modulo vuoto.

3. Copia e incolla il seguente codice nel nuovo modulo.

VBA: Correggi i collegamenti interrotti

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. Premi il tasto F5 o il pulsante Esegui   per attivare il codice. Ora cerca se ci sono collegamenti interrotti. In caso affermativo, apparirà una finestra di dialogo che ti informa quale collegamento è interrotto, seleziona una nuova origine. Clicca OK per continuare.

5. Nella finestra Apri , scegli l'origine aggiornata, clicca OK.

Se c'è ancora un collegamento interrotto nella cartella di lavoro, le finestre di dialogo sopra riappariranno fino a quando tutti i collegamenti interrotti saranno corretti.

Nota: se non ci sono collegamenti interrotti nella cartella di lavoro, il VBA si fermerà dopo aver eseguito.

Suggerimento: se vuoi visualizzare tutti i collegamenti extra e interrompere i collegamenti interrotti, Kutools for Excel’s Trova e interrompi collegamenti sarà un valido aiuto.

Per saperne di più su questa funzione, consulta il nostro tutorial dettagliato.