Código fuente web abierta

[petercien1]

Estimados

Buenas Noches

Acudo a uds una ves mas para solicitar de vuestra valiosa ayuda.

Arme un codigo de la siguiente manera, me ayude de google para llegar a este:

Sub AbrirWeb()

Dim IE As Object


Set IE = CreateObject("InternetExplorer.application")

IE.Navigate "http://www.mercadopublico.cl/Portal/Modules/Site/Busquedas/BuscadorAvanzado.aspx?qs=1"

Do

    DoEvents

Loop Until IE.readystate = 4


IE.Document.getelementbyid("txtSearch").Value = "2239-14-LP14"

IE.Document.getelementbyid("btnBusqueda").Click

IE.Visible = True

'Posibilidad de obtener codigo fuente

'IE.Visible = False

End Sub[/CODE]

Este código me abre la pagina web, lo hago así porque debo ingresar el valor a buscar en forma manual, con este código puedo automatizar la búsqueda.

La finalidad de esto es poder obtener el código fuente, ya que en este esta la información que necesito.

Mi consulta apunta a que si de esta forma puedo obtener dicho código.

De antemano muchas gracias.

PD: se trata de paginas publicas y no se genera ningún problema legal si abren el archivo.

Saludos Cordiales

Pedro Venegas Q.