Jak získat seznam všech externě propojených složek v Excelu
Chcete vědět, na které sešity obsahuje tabulka externí odkazy? Pomocí následujícího makra vytvořte vhodnou tabulku pod ovládáním makra:
Seznam dílčích odkazů ()
Dim NewTable As Worksheet
Dim List As Variant
Dim i As Integer
Dim a jako řetězec
Seznam = ActiveWorkbook.LinkSources (xlExcelLinks)
Pokud není IsEmpty (seznam), pak
Nastavit NewTable = ActiveWorkbook.Worksheets.Add
For i = 1 To UBound (seznam)
NewTable.Cells (i, 1) = Seznam (i)
Příště já
Jiný
a = MsgBox („Nebyly nalezeny žádné zkratky!“, vbOKOnly, „Poznámka“)
Konec If
End Sub
Makro vytvoří v aktivním sešitu novou prázdnou tabulku a zobrazí seznam všech sešitů, které jsou externě propojeny v buňkách. Každá cesta se zobrazí pouze jednou - získáte tak kompaktní přehled, jak ukazuje následující obrázek:
Pokud nejsou nalezeny žádné externí odkazy, Excel to označí odpovídajícím oknem:
Makro používá kolekci LinkSources. Jednotlivé položky v tomto seznamu jsou přeneseny do buněk v novém listu.