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.
