Sorolja fel a munkafüzet összes linkjét Excel makróval

Anonim

Hogyan kaphat egy listát az összes külsőleg összekapcsolt mappáról az Excelben

Szeretné tudni, hogy egy táblázat mely munkafüzetekben tartalmaz külső hivatkozásokat? A következő makróval hozzon létre egy megfelelő táblázatot makróvezérlés alatt:

Lista alhivatkozások ()

Dim NewTable mint munkalap

Dim Lista változatként

Dim i As Integer

Dim a karakterlánc

List = ActiveWorkbook.LinkSources (xlExcelLinks)

Ha nem, akkor üres (lista) Akkor

NewTable = ActiveWorkbook.Worksheets.Add beállítása

For i = 1 to UBound (lista)

NewTable.Cells (i, 1) = Lista (i)

Következő i

Más

a = MsgBox ("Nem található parancsikon!", vbOKOnly, "Megjegyzés")

Vége Ha

End Sub

A makró új, üres táblázatot hoz létre az aktív munkafüzetben, és felsorolja az összes munkafüzetet, amely külsőleg kapcsolódik a cellákhoz. Minden út csak egyszer jelenik meg - így olyan kompakt áttekintést kap, mint az alábbi ábra mutatja:

Ha nem található külső link, az Excel ezt egy megfelelő ablakkal jelzi:

A makró a LinkSources gyűjteményt használja. A lista egyes bejegyzései átkerülnek egy új munkalap celláiba.