Estou engatinhando ainda no VBA e confesso que "ensaiei" um tempo pra postar aqui no fórum, pois pesquisei bastante e ainda não encontrei uma resposta.
Criei um código para consultar os prazos de entrega do SEDEX.
Ele funciona, mas o problema é que o resultado é exibido em uma nova guia, eis que eu não consigo "capturar" dessa nova janela.
Vou colocar meu código aqui e anexar o arquivo...
Sub ConsultaPrazoSedex() Set ie = CreateObject("internetexplorer.application") 'Endereço para consulta ie.navigate "http://www2.correios.com.br/sistemas/precosPrazos/" ie.Visible = True Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop 'Digita o CEP de Origem ie.document.getElementsByTagName("Input")(2).Value = Planilha2.Cells.Range("A3").Value 'Digita o CEP de Destino ie.document.getElementsByTagName("Input")(3).Value = Planilha2.Cells.Range("B3").Value 'Seleciona a caixa de combinação ie.document.getElementsByTagName("Select")(0).Focus 'Seleciona o item Sedex ie.document.getElementsByTagName("Select")(0).Item(23).Selected = True 'Clica no item Sedex ie.document.getElementsByClassName("btn2 f2col float-right")(0).Click Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop ie.Quit End SubSerá que alguém poderia me ajudar ?
Agradeço.