Excel: Hur man fixar trasiga länkar

I en arbetsbok kan du ibland skapa länkar till andra arbetsböcker för att referera till viss relevant information. Men när källarbetsboken byter namn eller flyttas till en annan plats kommer dessa extra länkar att brytas. Här introducerar denna handledning två olika metoder för att fixa de trasiga länkarna i Excel.

Åtgärda trasiga länkar genom att använda Redigera länkar

Åtgärda trasiga länkar genom att använda VBA-kod

I Excel kan du gå till dialogrutan Redigera länkar för att fixa dem en efter en.

1. Aktivera arbetsboken som innehåller de trasiga länkarna och klicka Data > Redigera länkar (i Frågor och anslutningar grupp).

2. I Redigera länkar dialog, klicka Kolla statusen för att hitta vilka länkar som är trasiga.
 

3. Klicka sedan på de trasiga länkarna och klicka sedan Ändra källa knappen, i Ändra källa fönster, välj rätt källarbetsbok och klicka OK.

nu kan du se status ändrad från Fel till OK, upprepa sedan steg 3 för att åtgärda andra trasiga länkar.

Här introduceras en VBA-kod som kan hjälpa dig.

1. Aktivera arbetsboken som du vill fixa de trasiga länkarna och tryck på andra + F11 nycklar.

2. Sedan i popping Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna för att skapa en ny tom modul.

3. Kopiera och klistra in koden nedan i den nya modulen.

VBA: Åtgärda trasiga länkar

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. Tryck F5 nyckel eller Körning Knappen  för att aktivera koden. Nu söker den om det finns några trasiga länkar. Om så är fallet kommer det upp en dialogruta som talar om vilken länk som är trasig, välj en ny källa. Klick OK att fortsätta.

5. I Öppen fönster, välj den uppdaterade källan, klicka OK.

Om det fortfarande finns en trasig länk i arbetsboken, poppar ovanstående dialogrutor igen tills alla trasiga länkar är fixade.

Obs: om det inte finns någon trasig länk i arbetsboken kommer VBA att stoppa efter körning.

Tips: om du vill se alla extra länkar och bryta de trasiga länkarna, Kutools för ExcelÄr Hitta och bryt trasiga länkar funktion kommer att vara en bra hjälpare.

Klicka på för mer information om den här funktionen här..

För 30 dagars gratis provperiod, ladda ner från här..

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...

Läs mer... Fullständiga funktioner 30-dagars gratis provperiod... Köp... 

---

Office Tab - ger flikgränssnitt till Office och gör ditt arbete mycket enklare

• Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
• Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
• Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Fullständiga funktioner 30-dagars gratis provperiod... Köp...