Excel: Verbroken links herstellen

In een werkmap kunt u soms koppelingen maken naar andere werkmappen om naar relevante informatie te verwijzen. Maar wanneer de bronwerkmap wordt hernoemd of naar een andere locatie wordt verplaatst, worden deze extra koppelingen verbroken. Hier introduceert deze tutorial twee verschillende methoden voor het repareren van de verbroken koppelingen in Excel.

Los gebroken links op door Bewerk Links toe te passen

Verbroken links repareren met behulp van VBA-code

In Excel kunt u naar het dialoogvenster Koppelingen bewerken gaan om ze een voor een te corrigeren.

1. Schakel de werkmap in die de verbroken koppelingen bevat en klik op Data > Links bewerken (In Vragen en verbindingen groep).

2. In de Links bewerken dialoogvenster, klik Controleer de status om te zien welke links zijn verbroken.
 

3. Klik vervolgens op de verbroken links en klik vervolgens op Bron wijzigen knop, in de Bron wijzigen venster, kies de juiste bronwerkmap en klik op OK.

nu kun je zien dat de status is gewijzigd van Fout naar OKen herhaal dan stap 3 om andere verbroken links te herstellen.

Hier introduceert een VBA-code die u kan helpen.

1. Schakel de werkmap in waarvan u de verbroken koppelingen wilt herstellen en druk op anders + F11 sleutels.

2. Dan in de popping Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module om een ​​nieuwe lege module te maken.

3. Kopieer en plak de onderstaande code in de nieuwe module.

VBA: gebroken links repareren

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. druk op F5 toets of lopen   om de code te activeren. Nu zoekt het of er gebroken links zijn. Als dit het geval is, verschijnt er een dialoogvenster om u te vertellen welke link is verbroken. Selecteer een nieuwe bron. Klik OK te gaan.

5. In de Openen venster, kies de bijgewerkte bron, klik op OK.

Als er nog steeds een verbroken koppeling in de werkmap is, verschijnen de bovenstaande dialoogvensters opnieuw totdat alle verbroken koppelingen zijn hersteld.

Opmerking: als er geen verbroken link in de werkmap staat, stopt de VBA na het uitvoeren.

Tip: als je alle extra links wilt bekijken en de verbroken links wilt verbreken, Kutools for Excel's Zoek en verbreek verbroken links functie zal een goede hulp zijn.

Voor meer informatie over deze functie, klik a.u.b. op hier.

Voor een gratis proefperiode van 30 dagen kunt u downloaden van hier.

---

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...

Lees verder... Alle functies Gratis proefversie van 30 dagen... Aankoop... 

---

Office-tabblad - brengt interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees verder... Alle functies Gratis proefversie van 30 dagen... Aankoop...