Este fórum está sendo desativado

[gilbertjuniors]

Pessoal, bom dia.

Me pediram para criar um botão que abra a opção de valores antigos / valores atuais.
Os valores antigos já estão carregados na planilha e caso precise dos valores atuais teria que verificar nas planilhas externas e na internet (links externo).

Pensei numa macro que percorra todas as referencias externas e vá atualizando.

Até gravei uma macro porém, quero automatizar o processo para caso seja modificado um link, tirado ou acrescentado, este botão continue a encontrar o link de dados externo e atualizar os valores respectivos.


Alguém sabe qual método no VBA posso utilizar para listar todos os links externos de dados?

[alexandrevba]

Boa tarde!!

Veja se ajuda.

Código: Selecionar todos

Sub ListLinks()
'Updateby20140529
'Fonte: https://www.extendoffice.com/documents/excel/953-excel-list-all-links.html
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
    wb.Sheets.Add
    xIndex = 1
    For Each link In wb.LinkSources(xlExcelLinks)
        Application.ActiveSheet.Cells(xIndex, 1).Value = link
        xIndex = xIndex + 1
    Next link
End If
End Sub

Att