Як отримати список усіх папок, пов’язаних із зовнішнім середовищем у Excel
Хочете дізнатися, до яких робочих зошитів таблиця містить зовнішні посилання? Використовуйте такий макрос, щоб створити відповідну таблицю під макроконтролем:
Список додаткових посилань ()
Затемнити нову таблицю як аркуш
Затемнити список як варіант
Dim i як ціле число
Затемнити як рядок
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. Окремі записи в цьому списку переносяться до комірок на новому робочому аркуші.