Alteração de Vincul...
 
Notifications
Clear all

Alteração de Vinculos entre planilhas mudando de um computador para outro!


kardoso
Posts: 1
Registered
Topic starter
(@kardoso)
New Member
Entrou: 6 anos atrás

Boa noite.

Tenho 80 pastas do excel em diretórios diferentes, sendo que todas estão vinculadas entre si puxando informações umas das outras.

Será que tem um modo de, mudando todas essas pastas e diretórios de um computador para o outro, atualizar os vínculos entre essas planilhas?

Como o segundo computador onde ficarão as pastas e planilhas tem outro nome, o caminho dos vílnculos entre cada uma ficaria diferente, e de forma original os vinculos não seriam encontrados, pois o caminho original está como o nome do primeiro computador.

Tem como fazer essa atualização via VBA?

Se alguém puder me ajudar, agradeço.

Responder
1 Reply
EdsonBR
Posts: 895
Moderator
(@edsonbr)
Prominent Member
Entrou: 6 anos atrás

Bem vindo de volta, @kardoso

 

Tem como fazer via VBA sim, mas precisaria saber mais detalhes dos caminhos de seus arquivos, qual o arquivo mandatário (se existir um central), enfim.

Enquanto isso não é esclarecido, dá uma pensada sobre essa rotina que fiz numa ocasião que mudamos de servidor e um suplemento que fiz ficava quebrado por não encontrar o caminho... talvez te dê uma luz para adaptar à sua situação.

Se não conseguir, retorne com mais informações.

Sub AtualizaVínculos()
  Dim víncs, vínc
   víncs = ActiveWorkbook.LinkSources(XlLink.xlExcelLinks)
  If Not IsEmpty(víncs) Then
    For Each vínc In víncs
      If vínc = "\\servidor\compartilhar\ZetasTools\AddIns\EBUtils.xlam" Then
        ActiveWorkbook.ChangeLink vínc, ThisWorkbook.FullName, xlLinkTypeExcelLinks
      End If
    Next vínc
  End If
End Sub

 

Responder