Question

Excel 求助各位大侠VBA代码如何抓取网页JSON数据

Answer 1

基本上和JS的代码差不多哦，使用XMLHTTP对象，下面是例子代码：

Option Explicit
 
Sub xxx()
  Dim http
  Set http = CreateObject("Microsoft.XMLHTTP")
  http.Open "POST", "http://网址/PHP文件名.PHP", False
  http.send ""
  If http.Status = 200 Then
    [a1] = http.responseText
    MsgBox "成功。"
  Else
    MsgBox "调用失败，错误代码：" & http.Status
  End If
End Sub