Hoe krijg ik een lijst van alle extern gekoppelde mappen in Excel
Wil je weten naar welke werkmappen een tabel externe links bevat? Gebruik de volgende macro om een geschikte tabel te maken onder macrobesturing:
Lijst sublinks ()
Nieuwe tabel dimmen als werkblad
Dim lijst als variant
Dim ik als geheel getal
Dim een als string
Lijst = ActiveWorkbook.LinkSources (xlExcelLinks)
Indien niet leeg (lijst) dan
Stel NewTable = ActiveWorkbook.Worksheets.Add in
Voor i = 1 Naar UBound (lijst)
NewTable.Cells (i, 1) = Lijst (i)
volgende i
Anders
a = MsgBox ("Geen snelkoppelingen gevonden!", vbOKOnly, "Opmerking")
Stop als
Einde sub
De macro maakt een nieuwe, lege tabel in de actieve werkmap en geeft alle werkmappen weer die extern in cellen zijn gekoppeld. Elk pad verschijnt maar één keer - dus je krijgt zo'n compact overzicht zoals de volgende afbeelding laat zien:
Als er geen externe links worden gevonden, geeft Excel dit aan met een bijbehorend venster:
De macro maakt gebruik van de LinkSources-collectie. De afzonderlijke items in deze lijst worden overgebracht naar cellen in een nieuw werkblad.