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?