Colección de citas famosas - Slogan de motivación - Excel, ayúdame con el código VBA para capturar datos JSON de páginas web.

Excel, ayúdame con el código VBA para capturar datos JSON de páginas web.

Básicamente similar al código JS, utilizando el objeto XMLHTTP, el siguiente es el código de ejemplo: Option?Explicit

Sub?xxx() Dim?http Set?http?=?CreateObject ( "Microsoft.XMLHTTP") http.Abrir?"POST","http://url/PHP nombre de archivo.PHP",?Falso http.enviar?"" Si?http.Estado?=?200?Entonces< / p>

[a1]?=?http.responseText

MsgBox?"Éxito." Else

MsgBox?" La llamada falló con el código de error: "?&?http .Estado ¿Fin? Si

Fin?Sub