怡居地產

加入怡居

過去7年，我司每年平均捐出52%純利作慈善用途，款額動輒以百萬元計，可稱實至名歸的社會企業。閣下光顧我司，是變相自己做善事！日後請多多光顧為感！

尖沙咀總行 : 2569 2192

太古城華山分行 : 2569 1339

沙田銀禧分行 : 2636 1380

太古城明宮分行 : 2560 3738

沙田第一城專責組 : 2647 1838

杏花邨專責組 : 2898 0007

尖沙咀總行 : 2569 2192

太古城華山分行 : 2569 1339

沙田第一城專責組 : 2647 1838

沙田銀禧分行 : 2636 1380

太古城明宮分行 : 2560 3738

杏花邨專責組 : 2898 0007

(原文發表於2025年2月6日)

昨天跟大家分享了DeepSeek的简单用法，有粉丝就问道：能将DeepSeek嵌入到Excel吗？

当然可以了，我们需要借助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 If

End Sub

三、设置按钮

点击【开发工具】然后点击【插入】在表单控件中选择【选择】，然后直接新建按钮，将按钮指定给【CallDeepSeekAPI】这个宏即可

到此就设置设置完毕了，只需在A1单元格输入问题，然后点击【按钮】等待一段时间就能得到结果，大家可以动手试一下~