VBA extrae datos de páginas web

El siguiente código funcionará: Option?Explicit

Sub?GetWebPageContentInBulk() Dim?http,?Pols,?Arr,?i,?u Set?http?=?CreateObject ("Microsoft.XMLHTTP ") i?=?1 For?Each?u?In?Array("url1",?" url2")

http.Open?"POST", u, False

http.send?""

Si?http.Status?=?200?Then Cells(i,?1)? =?http.responseText i?=?i?+ ?1

¿Fin?Si es siguiente?u Establecer?http?=?Nada

¿Fin?