ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Traduzir o código Editar Links

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

Traduzir o código Editar Links

Mensagem por Mathmatic » Ter Jul 11, 2017 5:50 pm

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.


Mathmatic

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2826
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Traduzir o código Editar Links

Mensagem por webmaster » Ter Jul 11, 2017 10:37 pm

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 


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Responder