Consultar Vários Rastreamentos dos Correios Excel

Gráfico Excel ajustado automaticamente
Gráfico Excel ajustado automaticamente
2 de abril de 2012
Cálculo de porcentagem no Excel
Cálculo de porcentagem no Excel
24 de abril de 2012

Consultar Vários Rastreamentos dos Correios Excel

Objetivo: Disponibilizar uma planilha que permite acompanhar o rastreamento correio no Excel.

Atenção: Os correios mudaram a forma como realizavam a consulta e por isso a planilha abaixo não funciona mais. 

Mas criamos uma nova planilha que realiza esta consulta de forma muito mais profissional

Clique no botão abaixo para ver detalhes da nova planilha de rastreamentos de pacotes nos correios.

Esta planilha foi criada para facilitar o acompanhamento de encomendas do site dos correios, sem a necessidade de digitar um a um no site.

Para utilizar a planilha basta digitar os códigos dos rastreamentos na lista de pacotes e clicar no botão Consulta produto correios.

O Excel possui uma conexão com a página dos correios dos rastreamentos, alterando a informação de consulta utilizando VBA.

Abaixo a exibição de como fica o relatório:

O código fonte segue abaixo:

Sub lsTodososPacotes()
    Dim lUltimaLinhaAtiva As Long
    Dim lControle As Long
    
    Application.ScreenUpdating = False
    
    lUltimaLinhaAtiva = Worksheets("Lista de Encomendas").Cells(Worksheets("Lista de Encomendas").Rows.Count, 1).End(xlUp).Row
    lControle = 2
    
    lsLimparLista
    
    While lControle <= lUltimaLinhaAtiva
        lsConsultaProdutoCorreios Worksheets("Lista de Encomendas").Range("A" & lControle).Value
        
        lControle = lControle + 1
    Wend
    
    Worksheets("Lista de Rastreamentos").Select
    lsFormata
    Worksheets("Lista de Rastreamentos").Columns("A:D").EntireColumn.AutoFit
    
    Application.ScreenUpdating = True
    
    MsgBox "Dados de rastreamento atualizados!", , "Atualização"
    
End Sub

Sub lsConsultaProdutoCorreios(ByVal lPacote As String)
    On Error Resume Next

    Dim lUltimaLinhaAtiva As Long

    Worksheets("Rastreamentos").Select

    With ActiveWorkbook.Connections("Conexão23")
        .Name = "Conexão23"
        .Description = ""
    End With
    Range("A1:C200").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=" & lPacote
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveWorkbook.Connections("Conexão23").Refresh
    
    lUltimaLinhaAtiva = Worksheets("Rastreamentos").Cells(Worksheets("Rastreamentos").Rows.Count, 1).End(xlUp).Row + 1
    
    Range("A1:C" & lUltimaLinhaAtiva).Copy
    
    Worksheets("Lista de Rastreamentos").Select
    
    lUltimaLinhaAtiva = Worksheets("Lista de Rastreamentos").Cells(Worksheets("Lista de Rastreamentos").Rows.Count, 1).End(xlUp).Row + 2
    
    Range("A" & lUltimaLinhaAtiva).Select
    
    ActiveSheet.Paste
    
    Range("D" & lUltimaLinhaAtiva).Value = lPacote
    
    Range("A" & lUltimaLinhaAtiva & ":D" & lUltimaLinhaAtiva).Font.Bold = True
    
    Range("A" & lUltimaLinhaAtiva & ":D" & lUltimaLinhaAtiva).Select
    
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
End Sub


Sub lsLimparLista()

    Worksheets("Lista de Rastreamentos").Select
    Columns("A:Z").Select
    Range("C10").Activate
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub

Sub lsFormata()
    Range("A1:C1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Calibri"
        .Size = 15
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("A1").Value = "Lista de Rastreamentos"
End Sub

 GUT PPT

Abraço

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

43 Comentários

  1. Aquiles disse:

    Olá!
    Baixei o arquivo mas aqui não funcionou…

  2. Aquiles disse:

    Boa tarde Marcos!
    Sim!
    quando abro diz que ocorreu um erro no arquivo e pede pra recuperar, abre mas não da certo. Habilitei o conteúdo do macro
    e da comunicação externa, deve ser pelo erro que dei. Já baixei novamente e o erro persiste. Obrigado pela atenção! abraço!

  3. Aquiles disse:

    o log de erro:


    error005360_01.xml
    Erros detectados no arquivo ‘C:\DOCUME~1\USER\CONFIG~1\Temp\Rar$DI00.718\RastreamentoCorreios.xlsm’

    Parte Removida: parte de /xl/vbaProject.bin. (Visual Basic for Applications (VBA))

  4. Aquiles disse:


    error005360_01.xml
    Erros detectados no arquivo ‘C:\DOCUME~1\USER\CONFIG~1\Temp\Rar$DI00.718\RastreamentoCorreios.xlsm’

    Parte Removida: parte de /xl/vbaProject.bin. (Visual Basic for Applications (VBA))

  5. Aquiles disse:

    Boa noite Marcos,
    Testei em outro pc, deve ser algo no meu office 2007, testei em outro com o mesmo office e deu certo. No meu até a opção de vba não clica, o botão não tem cor. Vou ver o se concerto.
    Obrigado por ajudar!
    abraço!

  6. Marcelo disse:

    Marcos, boa tarde

    É possível adaptar essa planilha para leitura de outros sites.
    Realizo um trabalho parecido com o modelo proposto, mas utilizando outra empresa, para checagem de status de pagamento.

    Grato

    MArcelo

  7. Marcelo disse:

    Marcos, bom dia

    O site que utilizo necessita de senha de acesso.
    Hoje isso e feito com a exportação dos dados desse site para o excel e com aplicação de fórmulas e ajustes na planilha para adequar e fazer a identificação correspondente dos dados relativos ao status de cada documento através de aplicação de algumas fórmulas.

    Att

    Marcelo Romano

  8. Vinícius disse:

    Prezado Marcos,

    planilha muito útil. Parabéns.

    No site de rastreamento da TAM Cargo, não necessita de senha. Consigo fazer o mesmo processo? Pode me ajudar?

    Muito obrigado.

  9. Adriano disse:

    Òtima planilha. Funcionou perfeitamente. Mas to tentando vincular dados de outra planilha com os códigos de rastreio á essa e não consigo. Tentei a seguinte função no lugar dos códigos de rastreio ='[PLANILHA]ABA’!I4 . Até aparece o código, mas quando clico pra rastrear retorna um erro. Alguém tem alguma dica pra fazer funcionar? Agradeço desde já quem puder ajudar!

  10. Vinícius disse:

    Marcos,

    o site é: tamcargo.com.br
    Consultamos pelo código AWB no campo de consulta do site.
    O problema é que o código tem divisões como poderá verificar.
    Segue um exemplo de código: 957 31 0310156 2

    Agradeço muito pela atenção.

  11. Adriano disse:

    Òtimo. Consegui fazer o que queria vincular códigos e funcionou perfeitamente. Mas tem um problema, se tem um código errado que não aparece no rastreamento dos Correios, ela não consegue fazer o rastreio dos códigos abaixo deste. Retorna um erro. Será que tem como inserir algum código para ele ignorar o código com erro e pular para o próximo?

  12. Fabiano disse:

    boa tarde, Marcos
    Em 1º lugar, suas planilhas sao otimas, estou tentando finalizar uma planilha de consultas de valores de fretes dos correios, ou seja, eu entro somente com o peso do volume e o estado de destino, e já obtenho o valor do frete para o cliente mas estou tendo dificuldades em encontrar a função certa, pois meu conhecimento das funcoes avançadas é pouco. Pode me dar uma ajuda ?? se precisar lhe envio o arquivo com os dados …
    desde já agradeço a atenção …
    obrigado
    Fabiano

  13. Fabiano disse:

    Bom dia, Marcos

    nao uso nenhum site, o que eu faço é ficar ligando nos correios passando os dados, e eles me retornam com o valor do frete, entao pensei, porque nao colocar os dados deles no excel, agilizando assim meu atendimento. Só que nao consigo cruzar a infomaçao entre peso e estado para obter o valor do frete.
    obrigado pela atenção
    Fabiano

  14. Olá, estou tentando fazer algo parecido com a UPS, sabe me dizer se é possível e se existe algum tutorial?

  15. Thiago disse:

    Olá Amigo, este planilha é muito util para mim. Tenho interesse em compra-la para uso profissional, por gentileza entre em contato no meu email thiagosouzaufla@yahoo.com.br

  16. Bom dia Estou tentando utilizar porém aparece a seguinte mensagem:

    ERRO TEMPO DE EXECUÇÃO ‘1004’:
    iMPOSSIVEL ABRIR
    http://WEBSRO.CORREIOS.COMB.R/SRO_BIN/TXECT01$.QYERYLIST?P_LINGUA=
    O HIPERLINK NÃO PODE SER VINCULADO AO DESTINO.

  17. São objetos atuais, pois tenho que consulta vários.

  18. Márcio disse:

    Muito boa a planilha, parabéns!
    Estou com o mesmo erro do Enivaldo, ERRO TEMPO DE EXECUÇÃO ’1004′:
    detalhe, com os mesmos pacotes (novos)as vezes rastreia as vezes não.

    Márcio

    • Marcos Rieper disse:

      Bom dia Márcio,

      Corrigi o problema, muito obrigado pelo seu aviso.

      Este problema ocorre quando não tem informações no correio do pacote, fiz um tratamento para não exibir esta mensagem.

      Abraço

      Marcos Rieper

  19. Boa Tarde,

    Estou tentando fazer uma com esse mesmo sistema só que com mais informações, como Nome, data de emissão e matricula. E para facilitar tem como na aba “lista de rastreamentos” alem de vir o codigo de rastreio (coluna1) vir o nome da pessoa(coluna2) ?

    Att

  20. Paulo Cezar disse:

    Ola Amigo, muito bom a sua Planilha, gostaria de perguntar uma coisa: Como faço pra que o sistema consulte somente as celulas selecionadas e não a coluna inteira

    Obrigado

  21. Rodrigo disse:

    Bom dia!!!

    preciso de ajuda para abrir uma macro que é o link do site dos correios no excel, ao clicar nesse link aparece uma mensagem, “Erro em tempo de execução 1004″.

    por favor preciso de ajuda

  22. Renato disse:

    Hoje mesmo parou de funcionar, mesmo com o site do correios funcionando, direto do excel ele não consegue acessar, acho que bloquearam

  23. Willian disse:

    Boa tarde Marcos Rieper baixei a planilha e os macros foram habilitados e os suplementos tambem. Quando clica para rastrear o produto a pagina vai para a lista de rastreamento não aparece o status da encomenda. O excel é o 2007, o que pode estar ocorrendo?

  24. Thales disse:

    Rodei a planilha com 22 rastreios e ela trás o mesmo resultado para todas apesar de serem divergentes na realidade.

  25. Rogério disse:

    OLá MArcos,

    Parabéns pela planilha e pela linha de código, ta muito boa!

    Obrigado pela ajuda!

    Rogério

  26. Luciana disse:

    Boa noite estou usando a planilha pra fazer os rastreamentos das encomendas que por sinal é otima. Mas essa semana esta travando o excel e nao atualiza o que pode esta acontecendo? Vc poderia me ajudar por favor.

  27. victor disse:

    Marcos suas planilhas são realmente geniais.
    Essa de rastreamento vejo que é a melhor ferramenta para meus trabalhos.
    Pode enviar-me por e-mail esta planilha? Não consigo baixá-la pois, minha internet tem bloqueios.
    Aguardo uma resposta positiva.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.