VBA captura tabla de datos web, ayuda. Éxito + más 100 puntos.

El código de un internauta es bueno

¿Privado?Función?GetInfo(part,?str1,?value1,?str2)

Dim?i

¿Seleccionar?Caso?parte

Caso?"High-tech Park":

¿Caso? p>url?/"

Caso?"Jinzhou Área":

url?=?"3=searchField&cv3="? &?str1?&?" &cn4=searchValue&cv4="? &?value1

Esperar

¿Para? i?=?0?To?ie.Document.all.Length

Si?ie.Document.all(i).InnerText?=?str2?Then

GetInfo?= ?es decir.Document.all(i?+?2).InnerText

¿Salir?