发布日期：2025-03-18 03:53 点击次数：78
虽然不错了，咱们需要借助VBA代码来末端，以下的代码齐是由DeepSeek自动生成的badnews 国产，咱们还需要调用DeepSeek的API，
末端在A1单位格中输入数据，然后点击按钮实行，在B1单位格中输出划定的效用，咱们来看下具体如何作念的
图片badnews 国产
一、获得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单位格输入问题，然后点击【按钮】恭候一段工夫就能得到划定，人人不错动手试一下~
图片
本站仅提供存储管事，扫数内容均由用户发布，如发现存害或侵权内容，请点击举报。