none
Rastreamento dos Correios com VBA RRS feed

  • Pergunta

  • 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.

    sexta-feira, 23 de maio de 2014 12:44

Respostas

  • 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!

    sexta-feira, 23 de maio de 2014 19:42

Todas as Respostas

  • 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!

    sexta-feira, 23 de maio de 2014 19:42
  • Ola,

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

    sexta-feira, 9 de junho de 2017 01:14
  • Conseguiu resolver?
    quarta-feira, 14 de fevereiro de 2018 13:08