VÍNCULOS COM ARQUIVOS EXTERNOS

12. Atualizar todos os links

Esta macro é essencial para usuários que lidam com grandes quantidades de
informação e os vínculos não são atualizados automaticamente. Com esta
rotina, todos serão atualizados automaticamente ao executa-la.

Sub AutalizarLinks()
Dim linksarray As Variant
linksarray = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For i = 1 To UBound(linksarray)
ActiveWorkbook.UpdateLink Name:=linksarray(i),
Type:=xlLinkTypeExcelLinks
Next i
End Sub

13. Quebrar todos os vínculos

Esta rotina tem por objetivo quebrar todos os vínculos de um arquivo.

Sub QuebrarVinculos()
Dim alinksarray As Variant
alinksarray =
ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
Do Until IsEmpty(alinksarray)
ActiveWorkbook.BreakLink Name:=alinksarray(1),
Type:=xlLinkTypeExcelLinks
alinksarray =
ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
Loop
End Sub

14. Alterar vínculo

Da mesma maneira que a macro anterior, a alteração de vínculos se dá por