buenas tardes, tengo el siguiente código para navegar por paginas web, pero navega en segundo plano, que debo agregar al código para que se pueda abrir y visualizar la pagina que abre la macro?
Sub testnavegar()
Dim htmlDeRespuesta As Object
Set htmlDeRespuesta = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "Get", "https://www.google.cl/", False
.send
htmlDeRespuesta.body.innerHTML = .responseText
End With
On Error Resume Next
Range("d4").Value = htmlDeRespuesta.getElementsByid("gNO89b")(0).innerText
On Error GoTo 0
End Sub
muchas gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
buenas tardes, tengo el siguiente código para navegar por paginas web, pero navega en segundo plano, que debo agregar al código para que se pueda abrir y visualizar la pagina que abre la macro?
Sub testnavegar() Dim htmlDeRespuesta As Object Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "Get", "https://www.google.cl/", False .send htmlDeRespuesta.body.innerHTML = .responseText End With On Error Resume Next Range("d4").Value = htmlDeRespuesta.getElementsByid("gNO89b")(0).innerText On Error GoTo 0 End Sub
muchas gracias