Excel: Como corrigir links quebrados

Em uma pasta de trabalho, às vezes, você pode criar links para outras pastas de trabalho para consultar algumas informações relevantes. Mas quando a pasta de trabalho de origem for renomeada ou movida para outro local, esses links extras serão quebrados. Aqui, este tutorial apresenta dois métodos diferentes para corrigir os links quebrados no Excel.

Corrija links quebrados aplicando Editar links

Corrigir links quebrados usando o código VBA

No Excel, você pode ir para a caixa de diálogo Editar links para corrigi-los um por um.

1. Ative a pasta de trabalho que contém os links quebrados e clique em Data > Editar Links (em Consultas e conexões grupo).

2. No Editar Links diálogo, clique em Verifique o status para descobrir quais links estão quebrados.
 

3. Em seguida, clique nos links quebrados e clique em Mudar a fonte botão, no Mudar a fonte janela, escolha a pasta de trabalho de origem correta e clique em OK.

agora você pode ver o status alterado de erro para OKe repita a etapa 3 para corrigir outros links quebrados.

Aqui apresenta um código VBA que pode ajudá-lo.

1. Ative a pasta de trabalho que você deseja corrigir os links quebrados e pressione outro + F11 chaves.

2. Em seguida, no popping Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo para criar um novo módulo em branco.

3. Copie e cole o código abaixo no novo módulo.

VBA: Corrija links quebrados

Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
    MsgBox "Select updated source"
    Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
    xStrLk = xLks(xFNum)
    xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
    xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
    If xStatus <> 0 And xStatus <> 3 Then
        MsgBox xStrLk & " the link is broken, please select new source"
        xF = Application.GetOpenFilename()
        If xF <> "" Then
            For Each xLk In ActiveSheet.UsedRange.Hyperlinks
                xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
                    If InStr(xStrLk, GetAddress) <> 0 Then
                        ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
                    End If
            Next
            ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
        End If
        End If
    Next
End Sub

4. Pressione F5 chave ou Execute botão  para ativar o código. Agora ele procura se existem links quebrados. Nesse caso, aparece uma caixa de diálogo para informar qual link está quebrado, selecione uma nova fonte. Clique OK para continuar.

5. No Abra janela, escolha a fonte atualizada, clique em OK.

Se ainda houver um link quebrado na pasta de trabalho, as caixas de diálogo acima serão exibidas novamente até que todos os links quebrados sejam corrigidos.

Observação: se não houver nenhum link quebrado na pasta de trabalho, o VBA será interrompido após a execução.

Dica: se você quiser ver todos os links extras e quebrar os links quebrados, Kutools for Excel'S Encontre e quebre links quebrados recurso será um bom ajudante.

Para obter detalhes sobre esse recurso, clique em SUA PARTICIPAÇÃO FAZ A DIFERENÇA.

Para um teste gratuito de 30 dias, faça o download em SUA PARTICIPAÇÃO FAZ A DIFERENÇA.

---

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
• Mesclar células / linhas / colunas e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... Evite células duplicadas; Comparar intervalos...
• Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
• Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
• Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
• Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
• Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
• Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
• Agrupamento de tabela dinâmica por número da semana, dia da semana e mais ... Mostrar células desbloqueadas, bloqueadas por cores diferentes; Destacar células que possuem fórmula / nome...

Leia mais... Full Features 30-Day Free Trial ... Compra... 

---

Office Tab - traz interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

Leia mais... Full Features 30-Day Free Trial ... Compra...