Как да получите списък с всички външно свързани папки в Excel
Искате ли да знаете към кои работни книги таблицата съдържа външни връзки? Използвайте следния макрос, за да създадете подходяща таблица под макроконтрол:
Избройте подвръзки ()
Затъмнете нова таблица като работен лист
Dim List As Variant
Dim i As Integer
Затъмнете като низ
List = ActiveWorkbook.LinkSources (xlExcelLinks)
Ако не е IsEmpty (Списък), тогава
Задайте NewTable = ActiveWorkbook.Worksheets.Add
За i = 1 към UBound (списък)
NewTable.Cells (i, 1) = List (i)
Следва i
Иначе
a = MsgBox ("Не са намерени преки пътища!", vbOKOnly, "Забележка")
Край Ако
End Sub
Макросът създава нова, празна таблица в активната работна книга и изброява всички работни книги, които са свързани външно в клетки. Всеки път се появява само веднъж - така получавате такъв компактен преглед, както показва следната фигура:
Ако не се намерят външни връзки, Excel ще покаже това със съответния прозорец:
Макросът използва колекцията LinkSources. Отделните записи в този списък се прехвърлят в клетки в нов работен лист.
