腹地化部署甩掉了数据在腹地建设与云霄做事器之间传输的技能支拨，大大缩短了反应蔓延。在一些相聚要求不褂讪或无法接入相聚的环境中，腹地化部署的 DeepSeek 模子仍然不错普通驱动。最垂危的是关于一些触及明锐信息（如医疗数据、金融来回纪录、企业机密等）的利用场景，腹地化部署不错确保数据不出腹地环境，幸免数据在传输和存储经过中被裸露的风险。不错充足掌控数据的傍观和使用权限，闲散严格的合规性要求。先下载ollama，可通过官网自行下载，也不错通过底下的流畅ollama Windows版 最新下载地址https://github.com/ollama/ollama/releases/latest/download/OllamaSetup.exe把这个地址用迅雷获胜下载就好（千万不要获胜下载，否则你会怀疑东说念主生）简直不成不错揣度作家赢得最新装置包。

图片拳交 小说拳交 小说拳交 小说

驱动装置包下载中模子参数ollama驱动 DeepSeek 模子的敕令建立要求1.5bollama run deepseek-r1:1.5bGPU 1060 以上大部分个东说念主电脑可使用7bollama run deepseek-r1请专科东说念主士自行盘问8bollama run deepseek-r1:8b14bollama run deepseek-r1:14b32bollama run deepseek-r1:32b70bollama run deepseek-r1:70b671bollama run deepseek-r1:671b绽放敕令行界面（Command - Line Interface，CLI输入deepseek模子敕令，这里用1.5b的来测试。输入ollama run deepseek-r1:1.5b

图片

恭候下载完成

图片

装置完成，来进行测试下输入问题你是什么模子？

图片

也曾装置到手了，是不是很大致就部署好了，到这里只可通过敕令窗口进行交互照旧不太肤浅，接续下载一个Chatbox AI下载地址：https://chatboxai.app/zh/install?download=win64，依然放入到迅雷中下载。

图片

装置好之后绽放软件

图片

在确立中选聘用ollama API

图片

聘用刚刚下载的模子，点击保存就完成了。若是要提供汉典做事请点击稽查此教程。

图片

腹地化部署的deepseek模子就此确立好了，你领有了我方的专属AI模子。

使用腹地模子有好多上风：

充足离线驱动，保护阴私数据安全无需支付在线 API 用度充足离线，做事褂讪，无相聚蔓延不错目田调度和定制模子参数

Chatbox 不错很好地连络到 Ollama 做事，让你在使用腹地模子时不错赢得 Chatbox 提供的更多浩大功能，比如 Artifact Preview、文献认知、会话话题科罚、Prompt 科罚等。

（堤防：驱动腹地模子对你的电脑建立有一定要求，包括内存、GPU 等。若是出现卡顿，请尝试缩短模子参数。）

学生萝莉这段是摘自Chatbox AI文档。关于个东说念主而言，1.5b版人性能较弱，若是对数据安全莫得要求，照旧使用官网API会愈加肤浅一些。底下大致先容下若何把deepseek镶嵌到Excel中。

图片

这里先把deepseek大致的镶嵌到功能区，通过在B1单位格输入问题后点击上头驱动DS按钮即可生成B2功能的谜底。

图片

临了附上杀青代码' 界说 API 干系的全球常量' AI 接口的请求地址Public Const AI_URL = 'https://api.deepseek.com/v1/chat/completions'' AI 接口的傍观密钥Public Const AI_KEY = '换成你我方肯求的API'' 使用的 AI 模子称呼Public Const AI_MODEL = 'deepseek-chat'' 界说一个函数，用于向 AI 接口发送请求并赢得反应Function GAR(p As String) As String    Dim x As Object    Dim rb As String    Dim s As Double    Dim ar As String    ' 创建一个 XMLHTTP 对象，用于发送 HTTP 请求    Set x = CreateObject('MSXML2.ServerXMLHTTP.6.0')    x.setTimeouts 5000, 8000, 20000, 60000    x.Open 'POST', AI_URL, False    x.setRequestHeader 'Content-Type', 'application/json;'    x.setRequestHeader 'Authorization', 'Bearer ' & AI_KEY    x.setRequestHeader 'Accept', '*/*'    rb = '{''model'':''' & AI_MODEL & ''',' & _         '''messages'':[{''role'':''user'',''content'':''' & JE(p) & '''}],' & _         '''temperature'':0.7,''max_tokens'':512}'    s = Timer    x.send rb    Do While x.readyState <> 4        If Timer - s > 60 Then            If MsgBox('请求超时，重试？', vbRetryCancel) = vbRetry Then                x.abort                s = Timer                x.send rb            Else                Exit Function            End If        End If        DoEvents    Loop    If x.Status = 200 Then        ar = x.responseText        GAR = EJC(ar)    Else        GAR = 'API 不实：' & x.Status & ' - ' & x.statusText    End If    Set x = NothingEnd Function' 界说一个函数，用于对字符串进行 JSON 转义处理Function JE(s As String) As String    JE = Replace(Replace(Replace(s, '\', '\\'), '''', '\'''), vbCrLf, '\n')End Function' 界说一个函数，用于从 JSON 反应文本中索取所需本体Function EJC(R As String) As String    Dim cs As Long    Dim ce As Long    cs = InStr(R, '''content'':''') + 11    ce = InStr(cs, R, '''')    EJC = Replace(Mid(R, cs, ce - cs), '\n', vbCrLf)End Function' 界说一个子时势，行动与 AI 交互的主任务Sub AI()    Dim p As String    Dim ar As String        ActiveSheet.Range('B2').ClearContents    p = ActiveSheet.Range('B1').Value    ar = GAR(p)    ActiveSheet.Range('B2').Value = arEnd Sub这个代码需要通过宏实验AI子时势来杀青，镶嵌功能区是通过其他代码来杀青的。期待与您通盘盘问若何更好镶嵌到Excel中赞助完成日常使命杀青自动化办公。 本站仅提供存储做事，统统本体均由用户发布，如发现存害或侵权本体，请点击举报。