Rastreamento dos Correios com VBA

Question

Bom dia pessoal, preciso muito da ajuda de vcs, de novo :)

O que eu quero é o seguinte: atribuir o link a seguir ao nome CORREIOS da imagem.

http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=

Dessa forma, quando eu coloco o número no campo CÓDIGO DO OBJETO, marco a opção CORREIOS e salvo, esse código vai ser adicionado ao final do link e automaticamente todo esse endereço será salvo numa célula

http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=MEU_CÓDIGO

Mas acontece que não quero que a célula fique enorme, quero que ao invés de aparecer o link por extenso, que apareça somente o nome CLIQUE PARA RASTREAR linkado com aquele endereço.

Answer 1

Olá!!

Inclua o bloco a seguir no seu código:

    ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _
        "http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=" & "MEU_CÓDIGO", _
        TextToDisplay:="CLIQUE PARA RASTREAR"

Mude a célula A1 para a célula desejada e lembre-se de declarar a váriável "MEU_CÓDIGO" como string.

Abraços!

Answer 2

Ola,

Esse webservice não existe mais, como fazer o rastreamento atualmente?

Answer 3

Conseguiu resolver?