Ir ao conteúdo
  • Cadastre-se

Visual Basic Rastreio Automático de encomendas dos correios através do VBA Access


Posts recomendados

Boa tarde, estou com um código no VBA que funciona no Excel para rastrear encomendas dos Correios mas quero "traduzir" este código para o Microsoft Access utilizando bibliotecas e objetos próprios do Access

O código é este:

<Sub Rastreio()

On Error Resume Next

Sheets("ProdutosImportados").Select

 

Dim linha As Integer

Dim ie As Object

 

linha = 1

Cells(linha, 1).Select

 

Do Until Cells(linha, 10).Value = "Objeto entregue ao destinatário "

 

Set ie = CreateObject("internetexplorer.application")

 

ie.navigate "https://www2.correios.com.br/sistemas/rastreamento/default.cfm"

ie.Visible = True

On Error Resume Next

Do While ie.Busy And ie.readyState <> "READYSTATE_COMPLETE"

DoEvents

Loop

 

ie.document.getElementsByClassName("f8col fldSRO f3row")(0).Value = Cells(linha, 8).Value

ie.document.getElementsByClassName("btn1 float-right btnSubmit")(0).Click

   

Do While ie.Busy And ie.readyState <> "READYSTATE_COMPLETE"

DoEvents

Loop

 

Cells(linha, 9) = ie.document.getElementsByClassName("sroDtEvent")(0).innerText

Cells(linha, 10) = ie.document.getElementsByClassName("sroLbEvent")(0).innerText

 

ie.Quit

Cells(linha, 12) = Now

linha = linha + 1

 

Loop

End Sub>

 

 

Desde já agradeço a atenção

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

907618_67f7_4.jpg

PROMOÇÃO RELÂMPAGO!

Curso "Arquitetura de Redes", de Gabriel Torres, por apenas R$ 22,90. Só até as 23h59min desta sexta-feira 23/10/2020!

CLIQUE AQUI E INSCREVA-SE AGORA MESMO!