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

[Gabriel Alier]

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