Excel macro - mudar nome de planilha, e colar valores

[Maria Laura]

Bom dia pessoal!

 

Estou precisando de um help pra fazer uma macro. O que acontece é que todo mês temos valores vinculados a uma planilha, mas quando muda de mês, perde-se este vinculo, e automaticamente perde-se os valores. Então preciso fazer uma macro que mude o nome do arquivo para o nome antigo, mude a pasta o local da pasta (aí sim os vinculos voltaram), selecione os valores, e cole como valores.

 

Alguém pode ajudar? 

[Basole]

@Maria Laura experimente o codigo abaixo

 

Atualiza no vinculo, com nome da atual Planilha, e converte os dados para valores

Faça um backup de seus arquivos, antes de testar

 

Sub Alterara_NArquivo_Excel_Vinculo()
    Dim wbTrg       As Workbook
    Dim sLinkNew    As String
    Dim aLinks      As Variant
    Dim vLink       As Variant

    ' * AQUI * altere o caminho e nome da pasta_de_trabalho *
    sLinkNew = "C:\Users\Nome_Usuario\Documents\Controle.xlsx"
    Set wbTrg = ThisWorkbook

    aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)

    ' Repassa cada vinculo Link
    If Not IsEmpty(aLinks) Then
        For Each vLink In aLinks
            wbTrg.ChangeLink Name:=vLink, NewName:=sLinkNew, Type:=xlExcelLinks
            wbTrg.BreakLink Name:=sLinkNew, Type:=xlLinkTypeExcelLinks
            Debug.Print sLinkNew
        Next: End If

End Sub

Adaptado de: https://stackoverflow.com/questions/47452637/excel-vba-macro-change-link-name