Note: The other languages of the website are Google-translated. Back to English

Como alterar vários caminhos de hiperlink de uma vez no Excel?

Para alguma finalidade, você pode criar vários hiperlinks para seus dados na planilha, e todos os hiperlinks são vinculados ao mesmo caminho de arquivo ou endereço, mas agora, você precisa substituir esse caminho de hiperlink por outro endereço de cada vez. Mudar o caminho dos hiperlinks individualmente pode levar muito tempo, existe uma maneira rápida de resolver este problema?

Altere vários caminhos de hiperlink de uma vez em uma planilha com o código VBA

Altere vários caminhos de hiperlink de uma vez em uma planilha / pasta de trabalho / várias planilhas / seleção com um recurso incrível


Altere vários caminhos de hiperlink de uma vez em uma planilha com o código VBA

Supondo que você tenha uma lista de dados com os mesmos hiperlinks da seguinte captura de tela mostrada, e com um código VBA, você pode substituir rapidamente o caminho ou endereço do arquivo antigo em uma planilha por um novo.

1. Mantenha pressionada a ALT + F11 chaves, e abre o Microsoft Visual Basic para janela de aplicativos.

2. Clique inserção > Móduloe cole a macro a seguir no Janela do módulo.

Código VBA: altere vários caminhos de hiperlink de uma vez

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Então aperte F5 chave para executar este código e uma caixa de prompt para permitir que você insira seu endereço de hiperlink antigo no Texto antigo caixa. Veja a imagem:

4. Clique OK, e outra caixa de prompt é exibida para lembrá-lo de inserir o novo endereço de hiperlink que deseja usar.

5. E, em seguida, clique em OK, todos os mesmos endereços de hiperlinks antigos foram substituídos pelos novos de uma vez. Veja as capturas de tela:


Altere vários caminhos de hiperlink de uma vez em uma planilha / pasta de trabalho / várias planilhas / seleção com um recurso incrível

Se você deseja substituir os caminhos de hiperlink de uma seleção, várias planilhas, workkook atual ou várias pastas de trabalho, como você faria? Com Localizar e substituir característica de Kutools for Excel, você pode lidar rapidamente com essa tarefa.

NOTAPara aplicar isso Localizar e substituir utilitário, em primeiro lugar, você deve baixar o Kutools for Excele, em seguida, aplique o recurso de forma rápida e fácil.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Clique Kutools > Navegação, veja a captura de tela:

2. No aberto Navegação painel, clique em Encontre e substitua guia, no Localizar e substituir painel, clique em Substituir guia e, em seguida, faça as seguintes operações:

  • Insira o texto do hiperlink antigo que você deseja encontrar no Encontre o que caixa de texto e, em seguida, digite o novo texto do hiperlink que deseja substituir no substituir por caixa de texto;
  • Especifique o escopo onde você deseja encontrar e substituir o caminho do hiperlink do Dentro lista suspensa;
  • Em seguida, selecione Hyperlinks na lista suspensa Examinar;
  • Finalmente, clique em Encontrar tudo botão, todas as células correspondentes que contêm o texto do hiperlink específico foram listadas na caixa de listagem inferior.

3. Então clique substituir tudo botão, os caminhos de hiperlink antigos foram alterados para os novos de uma vez, veja a captura de tela:

Clique para baixar o Kutools for Excel para avaliação gratuita!


Mais artigos relativos:

  • Extraia endereços reais de hiperlinks
  • Supondo que você tenha um intervalo de células que contêm hiperlinks, e agora você precise ver o destino real dos hiperlinks e extraí-los dos hiperlinks como mostrado a seguir. Existe alguma maneira fácil de resolver esse problema rapidamente?
  • Converter URLs de imagens em imagens reais no Excel
  • Se você tiver uma lista de endereços de URL de imagem na coluna A, e agora, deseja baixar as imagens correspondentes dos URLs e exibi-los na coluna B adjacente, conforme a captura de tela à esquerda exibida. No Excel, como você poderia extrair as imagens reais dos URLs das imagens de forma rápida e fácil?
  • Converter texto de URL em hiperlink clicável no Excel
  • Supondo que você tenha vários urls em sua planilha, mas eles não estão vinculados, e agora você precisa converter todos os urls desvinculados em hiperlinks clicáveis, conforme as capturas de tela a seguir mostradas. Claro, você pode clicar duas vezes neles um por um para torná-los clicáveis, mas isso levará muito tempo se houver muitos urls. Como você poderia converter vários urls não vinculados em hiperlinks clicáveis ​​automaticamente no Excel?
  • Abra uma página específica do documento PDF no hiperlink do Excel
  • Quando você vincula uma célula a um arquivo PDF, normalmente, você irá para a primeira página do arquivo PDF ao clicar para abrir o hiperlink. Se você precisar ir diretamente para uma página específica do arquivo PDF clicando no hiperlink, este artigo pode lhe fazer um favor.

As melhores ferramentas de produtividade para escritório

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

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • 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 sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... 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 ...
  • 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...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (45)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Incrível, salvou meu muito esforço.
Este comentário foi feito pelo moderador no site
adorei, você me poupa muito trabalho.
Este comentário foi feito pelo moderador no site
Oi, você poderia me dar o código VB se eu precisar alterar links no Powerpoint em vez do Excel? Obrigado
Este comentário foi feito pelo moderador no site
Oi, isso parece funcionar muito bem, mas alguns caracteres (por exemplo "\" e "%"). No meu caso, tenho endereços de hiperlink como [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] e Eu preciso começar [../../../../../../Application%20Data/Microsoft/] longe do endereço de centenas de links. O início dos links são os mesmos, mas as extremidades são diferentes. Você tem algum bom conselho?
Este comentário foi feito pelo moderador no site
obrigado!!!! :lol: isso ajudou muito.
Este comentário foi feito pelo moderador no site
Como eu mudaria isso para atualizar hiperlinks vinculados a referências em uma pasta de trabalho em vez de endereços da Web externos?
Este comentário foi feito pelo moderador no site
Só precisava do mesmo, tente estas alterações: Sub ReplaceHyperlinks() 'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String, xNew As String xTitleId = "CambiaLink" 'Set Ws = Application.ActiveSheet Set Wb = Application.ActiveWorkbook xOld = Application.InputBox("Texto antigo:", xTitleId, "", Type:=2) xNew = Application.InputBox("New text:", xTitleId, "", Type:=2) For Each Ws Em Wb.Worksheets 'Application.ScreenUpdating = False para cada xHyperlink Em Ws.Hyperlinks Debug.Print ("voy " & xHyperlink.SubAddress) xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew) Next Next Application.ScreenUpdating = True Finalizar Sub
Este comentário foi feito pelo moderador no site
maurício- Você é incrível! Obrigado! Além disso, para outro relatório, precisarei apenas atualizar os links apenas nas guias especificadas, isso é possível?
Este comentário foi feito pelo moderador no site
Obrigado obrigado obrigado!!!!!! você me salvou por 2 dias de trabalho aqui
Este comentário foi feito pelo moderador no site
Existe uma maneira de alterar o "texto para exibição" de vários hiperlinks ao mesmo tempo?
Este comentário foi feito pelo moderador no site
Obrigado por um brilhante pedaço de programa. Funciona COMO UM ENCANTO..."WLC"
Este comentário foi feito pelo moderador no site
Brilhante! Muito obrigado!!!!
Este comentário foi feito pelo moderador no site
Ei pessoal, o que estou perdendo, recebo 'Erro de compilação - variável não definida' para o XTittleId no Excel 2013 :cry:
Este comentário foi feito pelo moderador no site
Não se preocupe, eu descobri e configurei como uma string
Este comentário foi feito pelo moderador no site
ajudou muito muito obrigado
Este comentário foi feito pelo moderador no site
Este é o artigo de Excel mais útil que já encontrei. Eu tive muitos problemas em que os hiperlinks em um arquivo foram corrompidos ou quero mover a localização de alguns arquivos com hiperlink, e a atualização sempre foi um grande problema. Meu programador do Excel não tinha uma correção simples. Isso funciona sem falhas. Estou muito grato - obrigado!
Este comentário foi feito pelo moderador no site
Uau! Isso me salvou TÃO.MUITO.TEMPO. Você é incrível. Obrigado por compartilhar!
Este comentário foi feito pelo moderador no site
Isto é brilhante. Você me salvou TANTO.TEMPO. hoje. Obrigado por compartilhar!
Este comentário foi feito pelo moderador no site
Muito obrigado por desenvolver isso! Eu tinha um usuário que criou um monte de hiperlinks em várias guias (pelo menos várias centenas) e de alguma forma eles tinham um caminho de arquivo para sua pasta AppData\Roaming em sua unidade c em vez de para a pasta de rede. Consegui usar seu script VBA para remover essa parte do código do link e agora tudo funciona. Salvou-nos provavelmente uma semana de atualização e levei menos de 2 minutos para implementar!
Este comentário foi feito pelo moderador no site
Incrível. Funcionou como um encanto no Excel 2013, sem necessidade de ajustes, ao contrário de correções semelhantes que vi para esse problema. MUITO OBRIGADO. Economizou uma enorme dor de cabeça e horas de tempo.
Este comentário foi feito pelo moderador no site
Tentei executá-lo em hiperlinks que contém outras referências de pastas, mas não funcionou. Como eu mudaria isso para atualizar hiperlinks vinculados a pastas em um disco rígido em vez de endereços da Web externos?
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL