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