Excel: come riparare i collegamenti interrotti

In una cartella di lavoro, a volte, puoi creare collegamenti ad altre cartelle di lavoro per fare riferimento ad alcune informazioni rilevanti. Ma quando la cartella di lavoro di origine viene rinominata o spostata in un'altra posizione, questi collegamenti aggiuntivi verranno interrotti. Qui questo tutorial introduce due diversi metodi per correggere i collegamenti interrotti in Excel.

Correggi i collegamenti interrotti applicando Modifica collegamenti

Risolvi i collegamenti interrotti utilizzando il codice VBA

In Excel, puoi andare alla finestra di dialogo Modifica collegamenti per correggerli uno per uno.

1. Abilita la cartella di lavoro che contiene i collegamenti interrotti e fai clic Dati > Modifica collegamenti (in Domande e connessioni gruppo).

2. Nel Modifica collegamenti finestra di dialogo, fare clic Controllare lo stato per trovare quali collegamenti sono interrotti.
 

3. Quindi fare clic sui collegamenti interrotti, quindi fare clic Cambia sorgente pulsante, nel Cambia sorgente finestra, scegli la cartella di lavoro di origine corretta e fai clic OK.

ora puoi vedere lo stato modificato da Errore a OK, quindi ripetere il passaggio 3 per correggere altri collegamenti interrotti.

Qui introduce un codice VBA che può aiutarti.

1. Abilita la cartella di lavoro in cui desideri correggere i collegamenti interrotti e premi altro + F11 chiavi.

2. Poi nel popping Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli per creare un nuovo modulo vuoto.

3. Copia e incolla il codice seguente 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. Stampa F5 chiave o Correre pulsante  per attivare il codice. Ora cerca se ci sono collegamenti interrotti. In tal caso, viene visualizzata una finestra di dialogo per dirti quale collegamento è interrotto, seleziona una nuova fonte. Clic OK per continuare.

5. Nel Apri finestra, scegliere la fonte aggiornata, fare clic su OK.

Se nella cartella di lavoro è ancora presente un collegamento interrotto, le finestre di dialogo precedenti vengono visualizzate nuovamente finché tutti i collegamenti interrotti non vengono corretti.

Nota: se non è presente alcun collegamento interrotto nella cartella di lavoro, il VBA si interromperà dopo l'esecuzione.

Consiglio: se vuoi visualizzare tutti i link extra e interrompere i link interrotti, Kutools for Excel'S Trova e interrompi collegamenti interrotti funzione sarà un buon aiuto.

Per i dettagli su questa funzione, fare clic su qui.

Per una prova gratuita di 30 giorni, scarica da qui.

---

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne e conservazione dei dati; Contenuto delle celle divise; Combina righe duplicate e somma / media... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Formule preferite e di inserimento rapido, Intervalli, grafici e immagini; Crittografa celle con password; Crea mailing list e invia email ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Raggruppamento tabelle pivot per numero della settimana, giorno della settimana e altro ... Mostra celle sbloccate e bloccate da diversi colori; Evidenzia le celle che hanno formula / nome...

Leggi di più... Funzionalità complete Prova gratuita di 30 giorni ... Acquista... 

---

Scheda Office: porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

• Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
• Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

Leggi di più... Funzionalità complete Prova gratuita di 30 giorni ... Acquista...