Kā iegūt visu ārēji saistīto mapju sarakstu programmā Excel
Vai vēlaties uzzināt, uz kurām darbgrāmatām tabulā ir ārējās saites? Izmantojiet šo makro, lai makro vadībā izveidotu piemērotu tabulu:
Saraksta apakšsaites ()
Aptumšot jaunu tabulu kā darblapu
Dim saraksts kā variants
Dim i As Integer
Izgaismojiet a kā virkni
Saraksts = ActiveWorkbook.LinkSources (xlExcelLinks)
Ja nav IsEmpty (saraksts) Tad
Iestatīt NewTable = ActiveWorkbook.Worksheets.Add
I = 1 uz UBound (saraksts)
NewTable.Cells (i, 1) = Saraksts (i)
Tālāk i
Citādi
a = MsgBox ("Nav atrasti īsceļi!", vbOKOnly, "Piezīme")
Beigas Ja
Beigt apakš
Makro izveido jaunu, tukšu tabulu aktīvajā darbgrāmatā un uzskaita visas darbgrāmatas, kas šūnās ir ārēji saistītas. Katrs ceļš parādās tikai vienu reizi - tādējādi jūs iegūstat tik kompaktu pārskatu, kā parādīts šajā attēlā:
Ja ārējās saites netiek atrastas, Excel to norāda ar atbilstošu logu:
Makro izmanto LinkSources kolekciju. Atsevišķi ieraksti šajā sarakstā tiek pārnesti uz jaunas darblapas šūnām.
