Ako získať zoznam všetkých externe prepojených priečinkov v programe Excel
Chcete vedieť, na ktoré zošity obsahuje tabuľka externé odkazy? Na vytvorenie vhodnej tabuľky pod kontrolou makra použite nasledujúce makro:
Odkazy na zoznam ()
Dim NewTable As a worksheet
Dim zoznam ako variant
Dim i As Integer
Dim a ako reťazec
Zoznam = ActiveWorkbook.LinkSources (xlExcelLinks)
Ak nie je prázdne (zoznam), potom
Nastaviť NewTable = ActiveWorkbook.Worksheets.Add
Pre i = 1 až UBound (zoznam)
NewTable.Cells (i, 1) = Zoznam (i)
Ďalej i
Inak
a = MsgBox („Neboli nájdené žiadne skratky!“, vbOKOnly, „Poznámka“)
Koniec Ak
Koniec pod
Makro vytvorí v aktívnom zošite novú prázdnu tabuľku a zobrazí zoznam všetkých zošitov, ktoré sú externe prepojené v bunkách. Každá cesta sa zobrazí iba raz - získate tak kompaktný prehľad, ako ukazuje nasledujúci obrázok:
Ak sa nenájdu žiadne externé odkazy, Excel to označí v zodpovedajúcom okne:
Makro používa kolekciu LinkSources. Jednotlivé položky v tomto zozname sa prenesú do buniek v novom pracovnom hárku.
