Как получить список всех папок с внешней связью в Excel
Хотите знать, на какие книги таблица содержит внешние ссылки? Используйте следующий макрос для создания подходящей таблицы под управлением макроса:
Список дополнительных ссылок ()
Dim NewTable As Worksheet
Тусклый список как вариант
Dim i как целое число
Dim a as string
Список = ActiveWorkbook.LinkSources (xlExcelLinks)
Если не IsEmpty (список), то
Установите NewTable = ActiveWorkbook.Worksheets.Add
Для i = 1 до UBound (список)
NewTable.Cells (i, 1) = Список (i)
Далее я
Еще
a = MsgBox («Ярлыков не найдено!», vbOKOnly, «Примечание»)
Конец, если
Конец подписки
Макрос создает новую пустую таблицу в активной книге и перечисляет все книги, которые связаны извне в ячейках. Каждый путь появляется только один раз, поэтому вы получите такой компактный обзор, как показано на следующем рисунке:
Если внешние ссылки не найдены, Excel укажет на это в соответствующем окне:
Макрос использует коллекцию LinkSources. Отдельные записи в этом списке переносятся в ячейки нового рабочего листа.