Jak uzyskać listę wszystkich zewnętrznie połączonych folderów w programie Excel?
Czy chcesz wiedzieć, do których skoroszytów tabela zawiera linki zewnętrzne? Użyj następującego makra, aby utworzyć odpowiednią tabelę pod kontrolą makr:
Wyświetl linki podrzędne ()
Przyciemnij nową tabelę jako arkusz roboczy
Lista przyciemniania jako wariant
Dim i jako liczba całkowita
Przyciemnij jako ciąg
Lista = ActiveWorkbook.LinkSources (xlExcelLinks)
Jeśli nie jest pusty (lista), to
Ustaw NewTable = ActiveWorkbook.Worksheets.Add
Dla i = 1 To UBound (lista)
NowaTabela.Komórki (i, 1) = Lista (i)
Dalej ja
W przeciwnym razie
a = MsgBox ("Nie znaleziono skrótów!", vbOKOnly, "Uwaga")
Zakończ, jeśli
Napis końcowy
Makro tworzy nową, pustą tabelę w aktywnym skoroszycie i wyświetla listę wszystkich skoroszytów, które są połączone zewnętrznie w komórkach. Każda ścieżka pojawia się tylko raz - więc otrzymujesz tak zwięzły przegląd, jak pokazano na poniższym rysunku:
Jeśli nie zostaną znalezione żadne linki zewnętrzne, Excel wskaże to w odpowiednim oknie:
Makro używa kolekcji LinkSources. Poszczególne wpisy z tej listy są przenoszone do komórek w nowym arkuszu.