Consultar Vários Rastreamentos dos Correios Excel
Gráfico Excel ajustado automaticamente
2 de abril de 2012
Cálculo de porcentagem no Excel
24 de abril de 2012Consultar 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
Abraço
Marcos Rieper
Pai, marido, professor e consultor em Excel.
Obrigado por ler este artigo, este blog foi criado para difundir o conhecimento em Excel à todos.
Divulgamos novos artigos nas redes sociais, basta clicar nos ícones abaixo.
43 Comments
Olá!
Baixei o arquivo mas aqui não funcionou…
Boa tarde Aquiles,
Você aprovou a execução da macro e você tem acesso á internet aonde executou a sua planilha?
Abraço
Marcos Rieper
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!
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))
–
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))
Boa tarde Aquiles,
Qual a sua versão do Office?
Abraço
Macos Rieper
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!
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
Boa tarde Marcelo,
Sim, é possível, mas o site que você precisa fazer esta checagem exige alguma senha ou é semelhante ao rastreamento.
Abraço
Marcos Rieper
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
http://www.tomasvasquez.com.br/blog/microsoft-office/vba-interagindo-com-o-objeto-internet-explorer
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.
Bom dia Vinícius,
Acho que dá, me passa um código e o endereço aonde você consulta que posso disponibilizar.
Abraço
Marcos Rieper
Ò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!
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.
Ò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?
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
Boa tarde Fabiano,
Você usa qual site para realizar este cálculo hoje?
Abraço
Marcos Rieper
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
Olá, estou tentando fazer algo parecido com a UPS, sabe me dizer se é possível e se existe algum tutorial?
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
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.
Depois de um tempo ele apaga os rastreamentos, qual o objeto que você está tentando rastrear?
São objetos atuais, pois tenho que consulta vários.
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
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
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
Bom dia Joaquim,
Estes dados somente se forem digitados ao lado de cada rastreamento e ainda alterar o código VBA para que retorne estes dados para os rastreamentos.
Abraço
Marcos Rieper
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
Boa noite Paulo,
Neste caso tem que realizar uma alteração do código fonte do VBA.
Abraço
Marcos Rieper
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
Bom dia Rodrigo,
Pode me enviar o código do rastreamento para eu verificar?
Abraço
Marcos Rieper
Hoje mesmo parou de funcionar, mesmo com o site do correios funcionando, direto do excel ele não consegue acessar, acho que bloquearam
Boa noite Renato,
Que estranho, podem ter mesmo bloqueado, eu testei o site e mudou a forma como realizava a consulta.
Abraço
Marcos Rieper
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?
Boa noite Willian,
Me envie o rastreamento para eu analisar o problema.
Abraço
Marcos Rieper
Rodei a planilha com 22 rastreios e ela trás o mesmo resultado para todas apesar de serem divergentes na realidade.
Boa tarde Thales,
Pode me encaminhar por e-mail os rastreios para eu dar uma olhada? marcos.rieper@gmail.com.
Abraço
Marcos Rieper
OLá MArcos,
Parabéns pela planilha e pela linha de código, ta muito boa!
Obrigado pela ajuda!
Rogério
Obrigado Rogério, um forte abraço.
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.
Olá Luciana,
Talvez fosse uma intermitência da rede, eu precisaria saber exatamente como está ocorrendo este travamento para lhe ajudar.
Abraço
Marcos Rieper
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.