诸位道友，今日我们不谈Excel修仙基础心法，
且说本座近日闭关参悟，见紫微垣有数据流光划过，原是DeepSeek带着国产大模型的浩然之气，正在重写封神宇宙的底层代码。
这哪是哪吒一个人的反叛，分明是中华智能文明向技术霸权发出的战书！
话说这DeepSeek，如今是
我们炎黄子孙在
这AI时代里最厉害的神兵利器。
就像哪吒用混天绫搅动东海，用中文语料重塑AI世界的潮汐规律。
这不仅是技术路线的较量，更是文明根骨的对话。
DeepSeek像是新时代的风火轮，载着数据修士们腾云驾雾。往昔需要焚香沐浴才能起卦的复杂推演，如今几行代码就能算个明明白白。
太乙真人若见弟子这般修行，怕是要摔了酒葫芦惊呼：我以前做表格的时候，咋没这东西？
话说这哪吒的八字，本是写在陈塘关的族谱上，如今却躺在本座的Excel表里，每个时辰数据都像被注了灵的通天纹。
想那太乙真人用莲花重塑哪吒肉身，本座就
用Excel接引DeepSeek
，用无上神器在数据矩阵中重构他的命运轨迹，这算不算数字时代的"肉身成圣"？
接下来，只要我触动一下
DeepSeek的logo，
原本需要老道掐指半日的紫微斗数，此刻在工作表里翻腾得比东海龙宫还热闹。
娃娃们，别眨眼，看好了!
可莫要以为这只是电子算命，这背后里藏着的，是哪吒那句"去他个鸟命"的数字注解。
传统命盘说哪吒犯杀劫，我们偏要在神经网络里找出命运突围的置信区间；旧算法断言灵珠入魔，我们用随机森林建模出108种改命路径。
这不正是"我命由我不由天"的赛博演绎？
DeepSeek一经问世，就免费开源给九洲大地所有人神共用。
所以这Excel接引DeepSeek之法，本座也绝不私藏，包你一分钟学会，详细介绍如下：
第1步
到DeepSeek官网申请API，具体流程请看今天的次条推送。
如果暂时吃了闭门羹也无妨，等等就好，或者关注本号，等着看本座的各种乾坤挪移心法。
打开Excel，按
祭出VBA编辑器（
WPS
用户
有可能需要
补充安装VBA模块
），如此这般。
具体代码较长，本座放在功法最后面。
你自己用的时候，要记得把第1步获取的API信息（
key\url\model名称
）改写到代码里。
回到Excel工作表，把你心仪对象的信息这般写好，插入一张图片，右键，指定咒语。
大功告成了，只要点一下图片，DeepSeek就会起卦卜算。
| 尾声
当然，这只是DeepSeek不值一提的小手段。以此筑基，可以扩展出108种数据处理和数据分析自动化秘技，等你都修炼出来，就是人人敬仰的大罗金仙了。
诸位道友，这数据修仙路上，Excel/WPS是我们的乾坤圈，DeepSeek便是那踏破九重天的风火轮。
下次老板再说"这就是命"时，你大可以祭出AI：
"且慢，待本座用它再算一卦！"
| 彩蛋
最后，周庆麟携ExcelHome祝各位道友2025大展宏图。也请大家
点赞、评论，转发
。如果本座发现大家真的喜欢本文，就直接
双手奉上
「哪吒命理分析模板」原文件
！
代码如下
，尽管拿去用。
'▲▲▲ API配置区 ，ExcelHome祝各位道友新年快乐！@20250204▲▲▲Const AI_URL As String = "API网址，从官网获取"Const AI_KEY As String = "API KEY，从官网获取"Const AI_MODEL As String = "模型的名称，按官网的指示填写"
'AI交互函数，ExcelHome祝各位道友新年快乐！Private Function GetAIResponse(prompt As String) As String Dim oXmlHttp As Object, requestBody As String Dim startTime As Double, apiResponse As String
Const TIMEOUT_MSG As String = "请求超时，可能原因：" & vbCrLf & _ "1. 网络连接问题" & vbCrLf & _ "2. API服务繁忙" & vbCrLf & _ "是否重试？" Const PROCESSING_MSG As String = "AI分析中，已耗时 "
On Error GoTo ErrorHandlerSet oXmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
'▲▲▲ 超时参数配置 ▲▲▲ oXmlHttp.setTimeouts 5000, 8000, 20000, 60000
'▼▼▼ 构建专业请求 ▼▼▼With oXmlHttp .Open "POST", AI_URL, False .setRequestHeader "Content-Type", "application/json;" .setRequestHeader "Authorization", "Bearer " & AI_KEY .setRequestHeader "Accept", "*/*"End With
requestBody = "{""model"":""" & AI_MODEL & """," & _"""messages"":[{""role"":""user"",""content"":""" & JSONEscape(prompt) & """}]," & _"""temperature"":0.7,""max_tokens"":512}"
'▲▲▲ 异步处理控制 ▲▲▲ startTime = Timer oXmlHttp.send requestBody
Do While oXmlHttp.readyState <> 4 If Timer - startTime > 60 Then If MsgBox(TIMEOUT_MSG & "耗时：" & Format(Timer - startTime, "0.0") & "秒", _ vbCritical + vbRetryCancel) = vbRetry Then oXmlHttp.abort startTime = Timer oXmlHttp.send requestBody Else Exit Function End If End If DoEvents Application.StatusBar = PROCESSING_MSG & Format(Timer - startTime, "0.0") & "秒" Loop
'▼▼▼ 响应处理 ▼▼▼If oXmlHttp.Status = 200 Then apiResponse = oXmlHttp.responseText GetAIResponse = ExtractJSONContent(apiResponse)Else Err.Raise vbObjectError + 1, , "API错误：" & oXmlHttp.Status & " - " & oXmlHttp.statusTextEnd If
Exit Function
ErrorHandler:If
