諸位道友，今日我們不談Excel修仙基礎心法，
且說本座近日閉關參悟，見紫微垣有數據流光劃過，原是DeepSeek帶著國產大模型的浩然之氣，正在重寫封神宇宙的底層代碼。
這哪是哪吒一個人的反叛，分明是中華智能文明向技術霸權發出的戰書！
話說這DeepSeek，如今是我們炎黃子孫在這AI時代里最厲害的神兵利器。就像哪吒用混天綾攪動東海，用中文語料重塑AI世界的潮汐規律。
這不僅是技術路線的較量，更是文明根骨的對話。
DeepSeek像是新時代的風火輪，載著數據修士們騰云駕霧。往昔需要焚香沐浴才能起卦的復雜推演，如今幾行代碼就能算個明明白白。
太乙真人若見弟子這般修行，怕是要摔了酒葫蘆驚呼：我以前做表格的時候，咋沒這東西？
話說這哪吒的八字，本是寫在陳塘關的族譜上，如今卻躺在本座的Excel表里，每個時辰數據都像被注了靈的通天紋。
想那太乙真人用蓮花重塑哪吒肉身，本座就用Excel接引DeepSeek，用無上神器在數據矩陣中重構他的命運軌跡，這算不算數字時代的"肉身成圣"？
接下來，只要我觸動一下DeepSeek的logo，原本需要老道掐指半日的紫微斗數，此刻在工作表里翻騰得比東海龍宮還熱鬧。
娃娃們，別眨眼，看好了!
可莫要以為這只是電子算命，這背后里藏著的，是哪吒那句"去他個鳥命"的數字注解。
傳統命盤說哪吒犯殺劫，我們偏要在神經網絡里找出命運突圍的置信區間；舊算法斷言靈珠入魔，我們用隨機森林建模出108種改命路徑。
這不正是"我命由我不由天"的賽博演繹？
DeepSeek一經問世，就免費開源給九洲大地所有人神共用。所以這Excel接引DeepSeek之法，本座也絕不私藏，包你一分鐘學會，詳細介紹如下：
第1步
到DeepSeek官網申請API，具體流程請看今天的次條推送。
如果暫時吃了閉門羹也無妨，等等就好，或者關注本號，等著看本座的各種乾坤挪移心法。
打開Excel，按<Alt+F11>祭出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 Err.Number = -2147012894 ThenIf MsgBox(TIMEOUT_MSG, vbExclamation + vbRetryCancel) = vbRetry Then ResumeElse MsgBox "AI交互錯誤：" & Err.Description, vbCriticalEnd If GetAIResponse = "錯誤：" & Err.DescriptionFinally: Application.StatusBar = FalseSet oXmlHttp = NothingEnd Function
'輔助函數：JSON轉義Private Function JSONEscape(str As String) As String JSONEscape = Replace(Replace(Replace(str, "\", "\\"), """", "\"""), vbCrLf, "\n")End Function
'輔助函數：提取JSON內容Private Function ExtractJSONContent(responseText As String) As String Dim contentStart As Long, contentEnd As Long contentStart = InStr(responseText, """content"":""") + 11 contentEnd = InStr(contentStart, responseText, """") ExtractJSONContent = Replace(Mid(responseText, contentStart, contentEnd - contentStart), "\n", vbCrLf)End Function
'主任務：數據處理流程，ExcelHome祝各位道友新年快樂！Sub MainTask() Dim prompt As String, aiResponse As String Dim ws As Worksheet
On Error GoTo ErrorHandler Set ws = ActiveSheet
'▼▼▼ 數據準備 ▼▼▼ Dim userName As String, birthDate As String, gender As StringWith ws.Range("A2:C2") userName = .Cells(1, 1).Value birthDate = .Cells(1, 2).Value gender = .Cells(1, 3).ValueEnd With
'▲▲▲ 構建專業提示詞 ▲▲▲ prompt = "請進行專業的命理推算分析：" & vbCrLf & _ "姓名：" & userName & vbCrLf & _ "出生日期：" & birthDate & vbCrLf & _ "性別：" & gender & vbCrLf & _ "要求：1. 簡要概括八字格局 2. 簡要解讀大運走勢 3. 給出人生建議 4. 使用小白能看懂的方式輸出，減少專業術語"
'▼▼▼ AI交互 ▼▼▼ aiResponse = GetAIResponse(prompt)
'▲▲▲ 結果輸出 ▲▲▲ ws.Range("A4").Value = aiResponse ws.Range("A4").WrapText = True Exit Sub
ErrorHandler: MsgBox "處理數據時發生錯誤：" & Err.Description, vbCriticalEnd Sub
閱讀原文：原文鏈接
該文章在 2025/2/11 16:40:15 編輯過
400 186 1886
