Kuidas saada Excelis kõigi väliselt lingitud kaustade loend
Kas soovite teada, milliste töövihikute kohta tabel sisaldab väliseid linke? Makrojuhtimise all sobiva tabeli loomiseks kasutage järgmist makro:
Loendi alamlingid ()
Hämardage uus tabel töölehena
Dim nimekiri variandina
Dim i As täisarv
Dim a stringina
Loend = ActiveWorkbook.LinkSources (xlExcelLinks)
Kui ei ole tühi (loend) siis
Määra NewTable = ActiveWorkbook.Worksheets.Add
I = 1 jaoks UBound (loend)
NewTable.Cells (i, 1) = Loend (i)
Edasi i
Muidu
a = MsgBox ("Otseteid ei leitud!", vbOKOnly, "Märkus")
Lõpp Kui
End Sub
Makro loob aktiivsesse töövihikusse uue tühja tabeli ja loetleb kõik lahtrid väliselt lingitud töövihikud. Iga tee kuvatakse ainult üks kord - nii saate sellise kompaktse ülevaate, nagu on näidatud järgmisel joonisel:
Kui väliseid linke ei leita, näitab Excel seda vastava aknaga:
Makro kasutab kogu LinkSources. Selle loendi üksikud kirjed kantakse uue töölehe lahtritesse.