Diego Gomes Ferreira

Por favor, alguém pode me ajudar a fazer um código que consiga interagir com as abas do internet explorer? Meu código acessa o site dos correios, preenche os dados do CEP e tenta obter o tempo previsto de entrega da correspondência. Contudo, o site abre uma segunda aba para mostrar essa previsão de entrega. Eu preencho os dados em uma aba e quando clico em "ok" e ele abre outra aba com o resultado da minha pesquisa. Quando isso ocorre, perco a conexão com o internet explorer. Segue código: Sub CEP() ' Dim linha As Integer, coluna As Integer Set ie = CreateObject("internetexplorer.application") ie.navigate "http://www2.correios.com.br/sistemas/precosprazos/" ie.Visible = True Do While ie.busy And ie.readystate <> "readystate_complete" DoEvents Loop ie.Document.getelementsbytagname("input")(0).Value = Cells(2, 1).Value ie.Document.getelementsbytagname("input")(2).Value = Cells(2, 2).Value ie.Document.getelementsbytagname("input")(3).Value = Cells(2, 3).Value ie.Document.getelementsbyclassname("f4col")(0).Value = Cells(2, 4).Value ie.Document.getelementsbyclassname("btn2 f2col float-right")(0).Click Do While ie.busy And ie.readystate <> "readystate_complete" DoEvents Loop ie.navigate "http://www2.correios.com.br/sistemas/precosPrazos/prazos.cfm" ie.Visible = True Do While ie.busy And ie.readystate <> "readystate_complete" DoEvents Loop Cells(2, 5) = ie.Document.getelementsbytagname("td")(0).innertext ie.Quit Range("A3:D3").WrapText = False End Sub