VBA EXCEL 代码：当前股价

VBA EXCEL 代码：当前股价

VBA
Sub GetStockPrice()
    Dim url As String
    Dim xmlHttp As Object
    Dim stockPrice As Double
    
    ' 股票代码
    Dim stockCode As String
    stockCode = "AAPL"
    
    ' 构建URL
    url = "https://api.example.com/stock-price/" & stockCode
    
    ' 创建XMLHTTP对象
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    xmlHttp.Open "GET", url, False
    xmlHttp.send
    
    ' 解析返回的JSON数据
    stockPrice = jsonParse(xmlHttp.responseText, "price")
    
    ' 显示股价
    MsgBox "当前股价：" & stockPrice
    
    Set xmlHttp = Nothing
End Sub
Function jsonParse(jsonString As String, key As String) As Variant
    ' 解析JSON数据
    Dim jsonObject As Object
    Set jsonObject = JsonConverter.ParseJson(jsonString)
    
    ' 获取指定键的值
    jsonParse = jsonObject(key)
End Function

=GetStockPrice()