Sådan får du en liste over alle eksternt linkede mapper i Excel
Vil du gerne vide, hvilke projektmapper en tabel indeholder eksterne links til? Brug følgende makro til at oprette en passende tabel under makrokontrol:
Liste under links ()
Dim NewTable Som regneark
Dim List som variant
Dim i As Integer
Dim a som snor
List = ActiveWorkbook.LinkSources (xlExcelLinks)
Hvis ikke er tom (liste)
Indstil NewTable = ActiveWorkbook.Worksheets.Add
For i = 1 Til UBound (liste)
NewTable.Cells (i, 1) = Liste (i)
Næste i
Andet
a = MsgBox ("Ingen genveje fundet!", vbOKOnly, "Note")
Afslut Hvis
Afslut Sub
Makroen opretter en ny, tom tabel i den aktive projektmappe og viser alle projektmapper, der er knyttet eksternt i celler. Hver sti vises kun én gang - så du får et så kompakt overblik som følgende figur viser:
Hvis der ikke findes eksterne links, angiver Excel dette med et tilsvarende vindue:
Makroen bruger samlingen LinkSources. De enkelte poster på denne liste overføres til celler i et nyt regneark.
