Como obter uma lista de todas as pastas vinculadas externamente no Excel
Gostaria de saber para quais pastas de trabalho uma tabela contém links externos? Use a seguinte macro para criar uma tabela adequada sob controle de macro:
Listar sublinks ()
Dim NewTable As Worksheet
Dim List As Variant
Dim i As Integer
Dim a como string
List = ActiveWorkbook.LinkSources (xlExcelLinks)
Se não estiver vazio (lista), então
Definir NewTable = ActiveWorkbook.Worksheets.Add
Para i = 1 para UBound (lista)
NewTable.Cells (i, 1) = List (i)
Proximo eu
Outro
a = MsgBox ("Nenhum atalho encontrado!", vbOKOnly, "Nota")
Fim se
End Sub
A macro cria uma nova tabela vazia na pasta de trabalho ativa e lista todas as pastas de trabalho vinculadas externamente em células. Cada caminho aparece apenas uma vez - portanto, você obtém uma visão geral compacta, conforme mostra a figura a seguir:
Se nenhum link externo for encontrado, o Excel indicará isso com uma janela correspondente:
A macro usa a coleção LinkSources. As entradas individuais nesta lista são transferidas para células em uma nova planilha.