¿Cómo utilizar vb para extraer contenido web?

Agrega el siguiente código en el módulo o formulario

Función pública getHtmlStr(strUrl As String) 'Obtener el código fuente de la página web remota

En caso de error Reanudar siguiente

Dim XmlHttp As Object, stime, ntime

Establecer XmlHttp = CreateObject("Microsoft.XMLHTTP")

XmlHttp.open "GET", strUrl , True

XmlHttp.send

stime = Ahora 'Obtiene la hora actual

Mientras que XmlHttp.ReadyState <> 4

DoEvents

ntime = Ahora 'Obtener tiempo de bucle

Si DateDiff("s", stime, ntime) > 3 Entonces getHtmlStr = "": Salir de la función

Wend

getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode)

Establecer XmlHttp = Nada

Finalizar función

Llamar

Dim sj As String 'Cadena de definición

sj = getHtmlStr("") 'Cambia las comillas a la página a leer

'El código fuente de la página web que sj es actualmente leyendo

'Utilice el procesamiento de cadenas y otras funciones para leer la información requerida