Excel: come risolvere i collegamenti interrotti
In Excel, è comune utilizzare collegamenti ad altre cartelle di lavoro per fare riferimento a informazioni pertinenti. Tuttavia, se una cartella di origine viene rinominata o spostata in un’altra posizione, tali collegamenti possono interrompersi, generando errori. Questa guida ti mostra due metodi efficaci – tramite la funzione **Modifica collegamenti** o con codice VBA – per individuare e risolvere rapidamente i collegamenti interrotti nella tua cartella di lavoro.
Risolvi i collegamenti interrotti applicando Modifica collegamenti
Risolvi i collegamenti interrotti utilizzando il codice VBA
In Excel, puoi aprire la finestra di dialogo Modifica collegamenti per correggerli uno alla volta.
1. Apri la cartella di lavoro che contiene i collegamenti interrotti e fai clic su Dati > Modifica collegamenti(nel gruppo)Query e connessioni).
2. Nella finestra di dialogo Modifica collegamenti, fai clic su Controlla stato per individuare i collegamenti interrotti.
3. Fai quindi clic sui collegamenti interrotti e poi sul pulsante Cambia origine; nella finestra Cambia origine, seleziona la cartella di lavoro di origine corretta e fai clic su OK.
Ora puoi vedere che lo stato è cambiato da Errore a OK. Ripeti il passaggio 3 per correggere gli altri collegamenti interrotti.
Questa sezione ti presenta un codice VBA pensato per aiutarti a risolvere i collegamenti interrotti.
1. Apri la cartella di lavoro in cui desideri correggere i collegamenti interrotti e premi i tasti Alt+F11.
2. Nella finestra di Microsoft Visual Basic, Applications Edition che si apre, fai clic su Inserisci > Modulo per creare un nuovo modulo vuoto.
3. Copia e incolla il codice seguente nel nuovo modulo.
VBA: Risolvi 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 oppure il pulsante Esegui
per eseguire il codice. Il codice cerca eventuali collegamenti interrotti. Se ne trova, visualizza una finestra di dialogo che indica quale collegamento è interrotto e ti chiede di selezionare una nuova origine. Fai clic su OK per continuare.
5. Nella finestra Apri, seleziona l'origine aggiornata e fai clic su OK.
Se nella cartella di lavoro è ancora presente un collegamento interrotto, le finestre descritte in precedenza si riapriranno finché tutti i collegamenti non validi non saranno stati corretti.
Nota: se nella cartella di lavoro non sono presenti collegamenti interrotti, la macro VBA si interromperà automaticamente al termine dell'esecuzione.
Suggerimento: se desideri visualizzare tutti i collegamenti aggiuntivi e interrompere quelli non validi, la funzione Kutools per Excel Trova e interrompi collegamenti sarà un valido aiuto.
Per saperne di più su questa funzione, consulta la nostra guida dettagliata.
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
Come correggere/bloccare Colore di Sfondo in un foglio
A volte, quando condividi un foglio con altri utenti per la modifica, potresti voler bloccare il colore di sfondo in un intervallo di celle per impedirne la modifica.
Come ridurre le dimensioni del file Excel?
A volte, l’apertura o il salvataggio di un file Excel richiede diversi minuti se il file è troppo grande. Questa guida ti mostra come ridurne le dimensioni eliminando contenuti, formattazioni non necessarie o mai utilizzate.
Excel: come creare o inserire un segnalibro
Hai mai pensato di creare o inserire un segnalibro per passare rapidamente a un intervallo di dati specifico quando il tuo foglio di lavoro o la tua cartella di lavoro contiene una grande quantità di dati?
Come applicare uno sfondo a righe o colonne dispari e pari (alternate) in Excel?
Durante la progettazione di un foglio di lavoro, molte persone tendono ad applicare uno sfondo a righe o colonne dispari e pari (alternate) per rendere il foglio più leggibile. Questo articolo ti mostrerà due metodi per applicare uno sfondo a righe/colonne dispari o pari in Excel.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi