Hoppa till huvudinnehåll

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


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

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).
doc fylla text baserat på färg 1

2. I Redigera länkar dialog, klicka Kolla statusen för att hitta vilka länkar som är trasiga.
doc fylla text baserat på färg 1 doc fylla text baserat på färg 1

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.
doc fylla text baserat på färg 1

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


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

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.
doc fylla text baserat på färg 1

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 doc kör 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.
doc fylla text baserat på färg 1

5. I Öppen fönster, välj den uppdaterade källan, klicka OK.
doc fylla text baserat på färg 1

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.
doc fylla text baserat på färg 1

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..


Annan verksamhet (artiklar)

Hur man fixar/låser bakgrundsfärg i ett ark
Ibland, när du delar ett ark med andra för att redigera, kanske du vill låsa bakgrundsfärgen i ett antal celler och förhindra att de ändras.

Hur man minskar Excel-filstorleken?
Ibland tar det några minuter att öppna eller spara om Excel-filen är för stor. För att lösa detta problem, här i denna handledning, berättar den hur du minskar Excel-filstorleken genom att ta bort innehållet eller formaten som är onödiga eller aldrig används.

Excel: Hur man skapar eller infogar ett bokmärke
Har du någonsin föreställt dig att skapa eller infoga ett bokmärke för att snabbt hoppa till ett specifikt dataintervall medan det finns mycket data i ett kalkylblad eller en arbetsbok?

Hur applicerar jag skuggning på udda eller jämna (alternativa) rader / kolumner i Excel?
När man utformar ett kalkylblad tenderar många att använda skuggning på udda eller jämna (alternativa) rader eller kolumner för att göra kalkylbladet mer visuellt. Den här artikeln visar två metoder för att tillämpa skuggning på udda eller jämna rader / kolumner i Excel.

 


  • 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...
kte-flik 201905
  • 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!
officetab botten

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations