Leer web en texto para extraer datos

[tsalvadorm]

Hola a todos, con vbscript o Access y el objeto InternetExplorer.Application intento leer una direccion web para pasarla a texto y a partir de aquí extraer datos de la página como enlaces, datos, etc.
El problema es que unas veces funciona y otras me da el error siguiente:
--Error 800700aa en tiempo de ejecucion: "Error en el metodo Navigate de objeto IWebBrowser2"-
El error lo da en la linea: c1 = objIE.Document.body.innerhtml
Creo que me falta por cerrar o refrescar algo.

El codigo que uso es el siguiente:

Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.google.es"
While objIE.Busy
Wend
c1 = objIE.Document.body.innerhtml
' codigo de extraccion de datos mediante funciones de cadena
Set objIE = Nothing

Agradecería cualquier otra solución para lo que quiero hacer, intento actualizar datos en mi pc automáticamente desde páginas web, por ejemplo cambios de divisa euro-dolar, teléfonos de empresas, precio diario del cobre, cotizaciones de bolsa, etc.

Gracias.

[JuanRAPerez]

tsalvadorm

hay una funcion que te retraes las paginas web es usando otro metodo

busca en el foro y se que la encontraras

[tsalvadorm]

No he encontrado ninguna otra función y eso que llevo unos días buscando...

He avanzado un poco, es problema de detectar que la pagina está totalmente cargada, con el siguiente codigo se mejora mucho el rendimiento, el número de errores de lectura se reduce a la mitad.

While objIE.Busy
Wend
c1 = objIE.Document.body.innerhtml
If c1="" then
While objIE.Busy
Wend
c1 = objIE.Document.body.innerhtml
End if

El unico cambio respecto al codigo anterior es que si no leo nada vuelvo a leer.
Debe haber alguna otra forma (mejor que objIE.Busy) de controlar que la pagina ha sido leida por completa para que objIE.Document.body.innerhtml no devuelva error.

[JuanRAPerez]

ummm

era un codigo como este

Código asp:

Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "http://www.google.com", False
  xml.Send
     Cadena = CSTR(xml.responseText)
 

suerte