Traduzir o código Editar Links

[Mathmatic]

Saudações,

Estou pesquisando alguns sites que possam me ajudar na tarefa (que hoje faço manualmente) para Editar Links (atualizar vínculos entre Workbooks).

Encontrei o seguinte site: http://www.vbaexpress.com/forum/showthr ... edit-links

Mas não consegui entender o que exatamente faz a Sub RefreshLink() do site citado.

Por isso escrevi aos senhores para me ajudarem a "Traduzir ou Descrever" o código da Sub RefreshLink() apresentada no site.

Sendo assim, conseguirei verificar se este código poderá me ajudar automatizar a tarefa de Editar Links (atualizar vínculos automaticamente entre Workbooks).

Obs: Se tiverem mais alguma sugestão (para automatizar Vínculos), além da que está no site, será muito bem vinda.



muito obrigado pela vossa atenção.

[webmaster]

Mais ou menos isso:

Código: Selecionar todos

Sub RefreshLink() 
    Dim varNewLink As Variant 
    Dim lnk As Variant 
    Dim i As Integer 
     
     ' obtém todos os links dentro do arquivo
    lnk = ActiveWorkbook.LinkSources(xlExcelLinks) 
    'testa se o link está vazio antes de processar
    If Not IsEmpty(lnk) Then 
         ' abre a caixa de diálogo para que o usuário selecione para qual arquivo os links irão apontar
        varNewLink = Application.GetOpenFilename("Excel Files (*.xls), *.xls") 
         ' se o usuário não cancelar, atualiza todos os links apontando para o novo arquivo
        If varNewLink <> False Then 
            For i = 1 To UBound(lnk) 
                ActiveWorkbook.ChangeLink Name:=lnk(i), NewName:=varNewLink, _ 
                Type:=xlExcelLinks 
            Next i 
        End If 
    End If 
End Sub