Excel 求助各位大俠VBA代碼如何抓取網頁JSON數據

基本上和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