效果展示

代码实现

Function QhBaiDuYunAIReq(question, _
                    Optional Authorization = "your api key", _
                    Optional Qhurl = "https://qianfan.baidubce.com/v2/chat/completions")
    Dim XMLHTTP As Object
    Dim url As String
    url = Qhurl '这里替换为你实际的URL
    Dim postData As String
'    postData = "model=deepseek-r1&" & "messages=[]"  '这里设置POST请求的数据
    
    
    requestBody = "{""model"":""deepseek-r1"",""messages"":[{""role"":""user"",""content"":""" & question & """}]}"
    



    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
    XMLHTTP.Open "POST", url, False
    XMLHTTP.setRequestHeader "Content-Type", "application/json"
    XMLHTTP.setRequestHeader "Authorization", Authorization
    XMLHTTP.send requestBody
    
'    Debug.Print XMLHTTP.responseText
    
    QhReqText = XMLHTTP.responseText
    
    QhReqText01 = Split(QhReqText, """content"":""")(1)
    QhReqText02 = Split(QhReqText01, """},""finish_reason")(0)
    
'    MsgBox QhReqText02

'    If XMLHTTP.Status = 200 Then
'        Debug.Print XMLHTTP.responseText
'    Else
'        Debug.Print "请求失败，状态码: " & XMLHTTP.Status
'    End If
    Set XMLHTTP = Nothing
    
    QhBaiDuYunAIReq = QhReqText02
End Function

Sub QhBaiDuYunAI()
    question0 = Sheets("百度云AI_deepseek").Range("B2")
    Sheets("百度云AI_deepseek").Range("B9") = QhBaiDuYunAIReq(question0)
End Sub