Hvordan få en liste over alle eksternt koblede mapper i Excel
Vil du vite hvilke arbeidsbøker en tabell inneholder eksterne lenker til? Bruk følgende makro for å lage en passende tabell under makrokontroll:
List Sub Links ()
Dim NewTable Som regneark
Dim List As Variant
Dim i As Integer
Dim a som streng
List = ActiveWorkbook.LinkSources (xlExcelLinks)
If Not IsEmpty (List) Da
Angi NewTable = ActiveWorkbook.Worksheets.Add
For i = 1 Til UBound (liste)
NewTable.Cells (i, 1) = List (i)
Neste jeg
Ellers
a = MsgBox ("Ingen snarveier funnet!", vbOKOnly, "Merk")
Slutt om
Slutt Sub
Makroen oppretter en ny, tom tabell i den aktive arbeidsboken og viser alle arbeidsbøker som er koblet eksternt i celler. Hver bane vises bare én gang - så du får en så kompakt oversikt som følgende figur viser:
Hvis ingen eksterne lenker blir funnet, vil Excel indikere dette med et tilsvarende vindu:
Makroen bruker LinkSources -samlingen. De enkelte oppføringene i denne listen overføres til celler i et nytt regneark.
