Excel接入AI大模型攻略：两种方法+隐藏彩蛋「豆包」更好用！

# 为何要用Excel挪用AI？

-主动化处置：间接让AI阐发数据、天生案牍、翻译实质

-整代码友爱：插件党也能轻快玩转智能办公

-服从翻倍：辞别脚动复造粘揭，成果秒出单位格

#先道论断：

-二种办法：

一、经由过程写进VBA代码，用代码停止操纵；

二、经由过程装置office AI 插件，调解树立的方法停止挪用。

三、正在office AI 插件树立中间接挑选挪用“豆包”年夜模子，能够完成对于单位格的间接操纵，不只 仅是天生操纵办法

#办法解说：

-️办法 一：VBA代码党博属（步调以下，供给三个代码，任选一个）

合用人群：爱合腾的手艺控 | 耗时：10分钟

操纵步调：

一、正在TXT文献中完毕代码编辑：

代码1：

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

question = ThisWorkbook.Sheets(1).Range("A1").Value

url = "https://api.deepseek.com/v1/chat/completions"

apikey = "您的稀钥"

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

startPos = InStr(response, """content"":""") + Len("""content"":""")

endPos = InStr(startPos, response, """")

content = Mid(response, startPos, endPos - startPos)

ThisWorkbook.Sheets(1).Range("A2").Value = content

Else

ThisWorkbook.Sheets(1).Range("A2").Value = "Error: " & http.Status & " -" & http.statusText

End If

End Sub

代码2：

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

' 获得成绩

question = ThisWorkbook.Sheets(1).Range("A1").Value

' API 地点战稀钥

url = "https://api.deepseek.com/v1/chat/completions"

apikey = "您的稀钥"

'创立 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

' 查找 "content" 字段的肇端地位

startPos = InStr(response, """content"": """) + Len("""content"": """)

' 查找 "content" 字段的完毕地位

endPos = InStr(startPos, response, """")

' 提炼实质

content = Mid(response, startPos, endPos - startPos)

' 将成果写进单位格

ThisWorkbook.Sheets(1).Range("A2").Value = content

Else

'恳求 失利，将毛病疑息写进单位格

ThisWorkbook.Sheets(1).Range("A2").Value = "Request failed with status code: " & http.Status

End If

End Sub

代码3：

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 requestBody As String

' 读与输出战设置

question = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

url = "https://api.deepseek.com/v1/chat/completions"

apikey = "sk-your-api-key-here" ' 倡议从单位格或者宁静保存读与

'创立 恳求工具

Set http = CreateObject("MSXML2.XMLHTTP")

http.Open "POST", url, False

http.setRequestHeader "Content-Type", "application/json"

http.setRequestHeader "Authorization", "Bearer " & apikey

' 建立准确的JSON恳求体

requestBody = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & question & """}]}"

On Error GoTo ErrorHandler

http.send requestBody

If http.Status = 200 Then

response = http.responseText

'运用 更牢靠的JSON剖析办法（需援用库）

' 此处示例简化，实践倡议剖析JSON

content = ExtractContent(response)

ThisWorkbook.Sheets("Sheet1").Range("A2").Value = content

Else

ThisWorkbook.Sheets("Sheet1").Range("A2").Value = "Error: " & http.Status & " - " & http.statusText

End If

Exit Sub

ErrorHandler:

ThisWorkbook.Sheets("Sheet1").Range("A2").Value = "Error: " & Err.Description

End Sub

'辅佐 函数：剖析JSON呼应（需完美或者利用库）

Function ExtractContent(jsonResponse As String) As String

Dim startPos As Long

Dim endPos As Long

startPos = InStr(jsonResponse, """content"":""") + Len("""content"":""")

endPos = InStr(startPos, jsonResponse, """")

ExtractContent = Mid(jsonResponse, startPos, endPos - startPos)

End Function

二、正在Excel表格中翻开Visual Basic编纂器，复造粘揭写佳的代码，回到Excel事情表界里，翻开“开辟者东西”，挑选拔出 “窗体控件按钮”，正在事情表当选择您要拔出 控件的地位，鼠 标右键框选天生按钮

三、正在A1单位格中编辑您的恳求提醒词汇，正在A2单位格中将天生您需求的成果。

-办法两：（步调以下）

-合用人群：寻求服从的办公族 | 耗时：3分钟

操纵步调：

一、装置office AI 插件：今朝相干插件有二种，一种付费、一种收费。付费的插件次要是：Microsoft 365 Copilot战Google Duet AI，比力片面，但是用度较下；收费的插件有海鹦、达 不雅等

二、装置完毕后，正在树立内里翻开“年夜模子树立”，挑选“当地布置”，挑选“Apikey”,正在“年夜模子”下推列表当选择“deepseekR1”,模子名挑选“deepseek-reasoner”,正在 “API_KEY” 中粘揭您的deepseek apikey(那里没有干引见，能够自止搜刮，很简朴），完毕以上操纵后面打“保留”

三、正在Excel事情表中面启“office AI”选项，翻开右边里板，正在右边对于话框中输出您念完毕指令的提醒词汇便可。

⚠️ 躲坑指北：

稀钥需从DeepSeek民网获得（交换代码中的sk-your-api-key）

庞大成绩倡议用豆包模子（文终彩蛋）

# 试动情况阐发：

-以上办法布置后，从试动情况阐发，今朝均存留较年夜的范围。同一的成绩是：没法间接对于单位格停止操纵，只可天生操纵办法的提醒战步调，取念要告竣的智能结果另有间隔，只可等候 deepseek战插件退一步分离。区分正在于：办法一正在A2单位格显现成果；办法两正在右边对于话框显现成果。

-不测的播种：办法两中假如采用默许体系中的“豆包”年夜模子，能够间接对于单位格完毕操纵，并天生成果。

# 真测比照：谁更胜一筹？

功用 VBA代码 插件+豆包模子

操纵庞大度 ⭐⭐⭐⭐（需改代码） ⭐⭐（一键设置）

单位格间接操纵 ❌ 仅显现成果 ✅ 主动添补/修正数据

毛病处置 ⚠️ 依靠代码完美度 ✅ 主动提醒建设倡议

#留意 事变

API挪用次数无限，庞大使命倡议分段处置

敏感数据勿用收费插件（可选当地布置版）

初次利用倡议从简朴指令开端尝试