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