|
當然可以了，我們需要借助VBA代碼來實現(xiàn)，以下的代碼都是由DeepSeek自動生成的，我們還需要調(diào)用DeepSeek的API， 實現(xiàn)在A1單元格中輸入數(shù)據(jù)，然后點擊按鈕執(zhí)行，在B1單元格中輸出結(jié)果的效果，我們來看下具體怎么做的 
首先我們需要獲取DeepSeek的API，只需來到官網(wǎng)，右上角點擊【API開放平臺】，然后在右側(cè)找到【API keys】然后在中間點擊【API keys】，就會顯示窗口，我們需要為其設置一個名字，然后復制下API，等下需要用到。 
打開Excel，按下快捷鍵ALT+F11，調(diào)出VBA的編輯窗口，然后在左側(cè)點擊空白的區(qū)域，找到【插入】選擇【模塊】之后將下面的代碼粘貼到窗口中 我們需要將【你的API】替換為你剛才獲取的API地址 
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 ' 設置 API 的 URL 和 API 密鑰 url = "https://api./v1/chat/completions" ' 替換為實際的 API URL apiKey = "你的API" ' 替換為你的 API 密鑰 ' 創(chuàng)建 HTTP 請求對象 Set http = CreateObject("MSXML2.XMLHTTP") ' 設置請求頭 http.Open "POST", url, False http.setRequestHeader "Content-Type", "application/json" http.setRequestHeader "Authorization", "Bearer " & apiKey ' 設置請求體 Dim requestBody As String requestBody = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & question & """}]}" ' 發(fā)送請求 http.send requestBody ' 獲取響應 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 IfEnd Sub
點擊【開發(fā)工具】然后點擊【插入】在表單控件中選擇【選擇】，然后直接新建按鈕，將按鈕指定給【CallDeepSeekAPI】這個宏即可 到此就設置設置完畢了，只需在A1單元格輸入問題，然后點擊【按鈕】等待一段時間就能得到結(jié)果，大家可以動手試一下~ 
|
