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