虽然不错了，咱们需要借助VBA代码来完结，以下的代码王人是由DeepSeek自动生成的，咱们还需要调用DeepSeek的API，

迷水商城迷水商城迷水商城迷水商城

完结在A1单位格中输入数据，然后点击按钮执行，在B1单位格中输出欺压的后果，咱们来看下具体怎样作念的

迷水商城迷水商城强效催春粉在哪买

图片

迷水商城迷水商城

一、取得API

领先咱们需要取得DeepSeek的API，只需来到官网，右上角点击【API开放平台】，然后在右侧找到【API keys】然后在中间点击【API keys】，就会露馅窗口，咱们需要为其成就一个名字，然后复制下API，酒店实时偷拍你观看 哪里有等下需要用到。

图片

二、插入VBA代码

迷水商城

绽开Excel，按下快捷键ALT+F11，调出VBA的裁剪窗口，然后在左侧点击空缺的区域，找到【插入】选拔【模块】之后将底下的代码粘贴到窗口中

迷水商城迷水商城

咱们需要将【你的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.deepseek.com/v1/chat/completions" ' 替换为实质的 API URL    apiKey = "你的API" ' 替换为你的 API 密钥        ' 创建 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 & """}]}"        ' 发送肯求    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)                ' 将欺压写入 A2 单位格        ThisWorkbook.Sheets(1).Range("A2").Value = content    Else        ' 若是肯求失败，露馅谬误信息        ThisWorkbook.Sheets(1).Range("A2").Value = "Error: " & http.Status & " - " & http.statusText    End IfEnd Sub

三、成就按钮

点击【开导器用】然后点击【插入】在表单控件中选拔【选拔】，然后平直新建按钮，将按钮指定给【CallDeepSeekAPI】这个宏即可

到此就成就成就收场了，只需在A1单位格输入问题，然后点击【按钮】恭候一段本领就能得到欺压，大家不错脱手试一下~

图片

迷水商城 本站仅提供存储做事，总共内容均由用户发布，如发现存害或侵权内容，请点击举报。