Gå til hovedindhold

Excel: Sådan repareres ødelagte links

I en projektmappe kan du nogle gange oprette links til andre projektmapper for at henvise til nogle relevante oplysninger. Men når kildeprojektmappen omdøbes eller flyttes til en anden placering, vil disse ekstra links blive brudt. Her introducerer denne tutorial to forskellige metoder til at rette de ødelagte links i Excel.

Ret brudte links ved at anvende Rediger links

Ret brudte links ved at bruge VBA-kode


Ret brudte links ved at anvende Rediger links

I Excel kan du gå til dialogboksen Rediger links for at rette dem én efter én.

1. Aktiver den projektmappe, der indeholder de ødelagte links, og klik data > Rediger links (i Forespørgsler og forbindelser gruppe).
doc udfyld tekst baseret på farve 1

2. i Rediger links dialog, klik Kontroller status for at finde hvilke links der er brudt.
doc udfyld tekst baseret på farve 1 doc udfyld tekst baseret på farve 1

3. Klik derefter på de ødelagte links, og klik derefter Skift kilde knappen, i Skift kilde vindue, vælg den korrekte kildeprojektmappe og klik OK.
doc udfyld tekst baseret på farve 1

nu kan du se status ændret fra Fejl til OK, og gentag derefter trin 3 for at rette andre ødelagte links.
doc udfyld tekst baseret på farve 1


Ret brudte links ved at bruge VBA-kode

Her introduceres en VBA-kode, der kan hjælpe dig.

1. Aktiver den projektmappe, som du vil reparere de ødelagte links, og tryk på andre + F11 nøgler.

2. Derefter i popping Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler for at oprette et nyt tomt modul.
doc udfyld tekst baseret på farve 1

3. Kopier og indsæt nedenstående kode til det nye modul.

VBA: Reparer ødelagte links

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. Trykke F5 nøgle eller Kørdoc køre for at aktivere koden. Nu søger den, om der er nogle ødelagte links. Hvis det er tilfældet, vises en dialogboks for at fortælle dig, hvilket link der er brudt. Vælg venligst en ny kilde. Klik OK at fortsætte.
doc udfyld tekst baseret på farve 1

5. i Åbne vindue, vælg den opdaterede kilde, klik OK.
doc udfyld tekst baseret på farve 1

Hvis der stadig er et brudt link i projektmappen, vises ovenstående dialogbokse igen, indtil alle brudte links er rettet.

Bemærk: Hvis der ikke er et brudt link i projektmappen, stopper VBA'en efter kørsel.

Tip: hvis du vil se alle ekstra links og bryde de ødelagte links, Kutools til Excel's Find og knæk ødelagte links funktion vil være en god hjælper.
doc udfyld tekst baseret på farve 1

For detaljer om denne funktion, klik venligst link..

For 30-dages gratis prøveversion, download venligst fra link..


Andre operationer (artikler)

Sådan fikserer/låser du baggrundsfarve i et ark
Nogle gange, når du deler et ark med andre for at redigere, vil du måske låse baggrundsfarven i en række celler og forhindre dem i at blive ændret.

Hvordan reducerer man Excel-filstørrelsen?
Nogle gange vil det tage minutter at åbne eller gemme, hvis Excel-filen er for stor. For at løse dette problem, her i denne tutorial, fortæller den dig, hvordan du reducerer Excel-filstørrelsen ved at fjerne indholdet eller formaterne, som er unødvendige eller aldrig brugt.

Excel: Sådan opretter eller indsætter du et bogmærke
Har du nogensinde forestillet dig at oprette eller indsætte et bogmærke for hurtigt at hoppe til et bestemt dataområde, mens der er mange data i et regneark eller en projektmappe?

Hvordan anvendes skygge på ulige eller lige (alternative) rækker / kolonner i Excel?
Mens man designer et regneark, har mange mennesker tendens til at anvende skygge på ulige eller lige (alternative) rækker eller kolonner for at gøre regnearket mere visuelt. Denne artikel viser dig to metoder til at anvende skygge på ulige eller lige rækker / kolonner i Excel.

 


  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner og opbevaring af data; Split celler indhold; Kombiner duplikatrækker og sum / gennemsnit... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Foretrukne og hurtigt indsætte formler, Områder, diagrammer og billeder; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Pivottabelgruppering efter ugenummer, ugedag og mere ... Vis ulåste, låste celler ved forskellige farver; Fremhæv celler, der har formel / navn...
kte-fane 201905
  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund

 

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