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 請求對象
Set http = CreateObject("MSXML2.XMLHTTP")
' 設(shè)置請求頭
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/json"
http.setRequestHeader "Authorization", "Bearer " & apiKey
' 設(shè)置請求體
Dim requestBody As String
requestBody = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & question & """}]}"
' 發(fā)送請求
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
' 如果請求失敗，顯示錯誤信息
ThisWorkbook.Sheets(1).Range("A2").Value = "Error: " & http.Status & " - " & http.statusText
End If
End Sub