Sub CallDeepSeekAPI()
Dim question As String
Dim response As String
Dim url As String
Dim apiKey As String
Dim http As Object
Dim content As String
Dim startPos As Long
Dim endPos As Long
' 獲取 A1 單元格中的問題
question = ThisWorkbook.Sheets(1).Range("A1").Value
' 設(shè)置 API 的 URL 和 API 密鑰
url = "https://api.deepseek.com/v1/chat/completions" ' 替換為實(shí)際的 API URL
apiKey = "你的API" ' 替換為你的 API 密鑰
' 創(chuàng)建 HTTP 請(qǐng)求對(duì)象
Set http = CreateObject("MSXML2.XMLHTTP")
' 設(shè)置請(qǐng)求頭
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/json"
http.setRequestHeader "Authorization", "Bearer " & apiKey
' 設(shè)置請(qǐng)求體
Dim requestBody As String
requestBody = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & question & """}]}"
' 發(fā)送請(qǐng)求
http.send requestBody
' 獲取響應(yīng)
If http.Status = 200 Then
response = http.responseText
' 從 JSON 字符串中提取 content 字段
startPos = InStr(response, """content"":""") + Len("""content"":""")
endPos = InStr(startPos, response, """")
content = Mid(response, startPos, endPos - startPos)
' 將結(jié)果寫入 A2 單元格
ThisWorkbook.Sheets(1).Range("A2").Value = content
Else
' 如果請(qǐng)求失敗，顯示錯(cuò)誤信息
ThisWorkbook.Sheets(1).Range("A2").Value = "Error: " & http.Status & " - " & http.statusText
End If
End Sub