Išvardykite visas darbo knygos nuorodas naudodami „Excel“ makrokomandą

Kaip gauti visų išoriškai susietų „Excel“ aplankų sąrašą

Ar norėtumėte sužinoti, į kokias darbo knygas lentelėje yra išorinių nuorodų? Naudodami šią makrokomandą sukurkite tinkamą lentelę, valdomą makrokomandą:

Sąrašo papildomos nuorodos ()

Pritemdyti naują lentelę kaip darbalapį

„Dim List As Variant“

Dim i As Integer

Pritemdyti kaip eilutę

Sąrašas = ActiveWorkbook.LinkSources (xlExcelLinks)

Jei ne, tai tuščias (sąrašas) Tada

Nustatykite NewTable = ActiveWorkbook.Worksheets.Add

Jei i = 1 į „UBound“ (sąrašas)

NewTable.Cells (i, 1) = Sąrašas (i)

Kitas I.

Kitas

a = „MsgBox“ („Nerasta jokių nuorodų!“, „vbOKOnly“, „Pastaba“)

Pabaiga Jei

Pabaiga Sub

Makrokomanda sukuria naują tuščią lentelę aktyvioje darbaknygėje ir išvardija visas darbaknyges, kurios yra išoriškai susietos langeliuose. Kiekvienas kelias rodomas tik vieną kartą - taigi gausite tokią kompaktišką apžvalgą, kaip parodyta paveikslėlyje:

Jei nerandama jokių išorinių nuorodų, „Excel“ tai nurodys atitinkamame lange:

Makrokomanda naudoja „LinkSources“ kolekciją. Atskiri šio sąrašo įrašai perkeliami į naujo darbalapio langelius.