作為Excel 的高級(jí)用戶，我今天與大家分享如何在Excel中快速接入DeepSeek大模型的方法。
當(dāng)然，只要你的模型調(diào)用是符合OpenAPI規(guī)范的，都可以用同樣的方法從Excel文件中來(lái)調(diào)用。
先上一個(gè)最后的效果圖。
有了這個(gè)Excel 文件后，在文件的“Settings” sheet中配置后，用戶在問(wèn)題格（黑色格）中輸入問(wèn)題，點(diǎn)擊“發(fā)送”按鈕，依據(jù)你的模型運(yùn)行速度，就可以很快在大模型回答格（淡藍(lán)色格）中看到答案。基本工作原理是Excel是支持使用VBA語(yǔ)言編程的。在這個(gè)Excel文件里面我用VBA寫(xiě)了一個(gè)程序。這個(gè)程序來(lái)讀以下“settings” sheet中的模型地址和設(shè)置，然后根據(jù)地址來(lái)向大模型服務(wù)發(fā)送請(qǐng)求。 這個(gè)大模型服務(wù)可以是你本地部署的ollama，也可以是你注冊(cè)的其它大模型云端服務(wù)。云端服務(wù)需要從服務(wù)商獲得API KEY，并設(shè)置在Settings sheet中的相應(yīng)格子中，本地部署的不用API KEY，你就隨便寫(xiě)一個(gè)就好。模式一。全部程序都在本地，無(wú)需聯(lián)網(wǎng)。模型一需要本地部署ollama，教程在前面我的微信號(hào)中。模式二。 你的Excel 去調(diào)用遠(yuǎn)程的云端大模型服務(wù)，需要去找個(gè)大模型云端服務(wù)商進(jìn)行注冊(cè)，并獲得地址和API Key本文主要是介紹如何構(gòu)建這個(gè)deepseekdemo.xlsm Excel 文件。 具體構(gòu)建這個(gè)Excel文件只需要五步，就可以在文件中調(diào)用Deepseek 模型了！步驟1. 打開(kāi)Excel 的開(kāi)發(fā)工具窗口。 步驟4. 在worksheet “Settings” 中設(shè)置模型地址和模型名稱參數(shù)。 步驟5. 創(chuàng)建發(fā)送按鈕。保存Excel完成五個(gè)步驟后，回到第一個(gè)Sheet，輸入你的問(wèn)題，就可以看到前面的效果了。
步驟1. 打開(kāi)Excel 的開(kāi)發(fā)工具窗口。 1.1 打開(kāi)Excel，如果看不到“開(kāi)發(fā)者工具”菜單 按下Alt + F11直接打開(kāi)VBA編輯器。2.1 在上圖的紅色圈子中右點(diǎn)鼠標(biāo)插入Excel VBA 模塊。2.2 你可以先把模塊1名字改成：modLLM。 然后在右邊窗口copy進(jìn)下面VBA程序。Public Function CallLLM(strUserQry As String) Dim question As String Dim response As String Dim p_url As String Dim p_apiKey As String Dim http As Object Dim content As String Dim startPos As Long Dim endPos As Long question = strUserQry p_url = Trim(Range("pmodelurl").Cells(1, 1).Value) p_apiKey = Trim(Range("pmodelapikey").Cells(1, 1).Value) Set http = CreateObject("MSXML2.XMLHTTP") http.Open "POST", p_url, False http.setRequestHeader "Content-Type", "application/json" http.setRequestHeader "Authorization", "Bearer " & p_apiKey Dim requestBody As String requestBody = "{""model"":""" & Trim(Range("pmodelname").Cells(1, 1).Value) & """,""messages"":[{""role"":""user"",""content"":""" & question & """}]}" http.send requestBody Dim strContent As String If http.Status = 200 Then response = http.responseText startPos = InStr(response, """content"":""") + Len("""content"":""") endPos = InStr(startPos, response, """},") content = Mid(response, startPos, endPos - startPos) strContent = ConvertUnicodeToText(content) Else strContent = "Error: " & http.Status & " - " & http.statusText End If CallLLM = strContentEnd Function
Function ConvertUnicodeToText(ByVal mixedText As String) As String Dim regex As Object Dim matches As Object Dim match As Object Dim unicodeCode As String Dim convertedText As String
' 創(chuàng)建正則表達(dá)式對(duì)象 Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "\\u([0-9A-Fa-f]{4})" regex.Global = True
' 執(zhí)行正則表達(dá)式匹配 Set matches = regex.Execute(mixedText)
convertedText = "" Dim i As Long For i = 0 To matches.Count - 1 Set match = matches(i) unicodeCode = match.SubMatches(0)
' 將Unicode編碼轉(zhuǎn)換為字符 convertedText = convertedText & ChrW("&H" & unicodeCode)
' 保留匹配之間的原始文本 If i < matches.Count - 1 Then Dim startPos As Long Dim endPos As Long startPos = match.FirstIndex + match.Length endPos = matches(i + 1).FirstIndex convertedText = convertedText & Mid(mixedText, startPos + 1, endPos - startPos) Else ' 最后一個(gè)匹配之后的所有文本 convertedText = convertedText & Mid(mixedText, match.FirstIndex + match.Length) End If Next i
' 如果沒(méi)有匹配到任何Unicode編碼，則直接返回原始文本 If convertedText = "" Then ConvertUnicodeToText = Replace(mixedText, "\n", vbCrLf) Else ConvertUnicodeToText = Replace(convertedText, "\n", vbCrLf) End IfEnd Function
這時(shí)窗口應(yīng)該是這樣的：
關(guān)閉，保存VBA程序窗口。 回到Excel界面。
步驟3. 設(shè)置range 名稱
因?yàn)槲以诔绦蛑惺褂昧嗣腞ange，需要先設(shè)置幾個(gè)Range 名字。 3.1 增加一個(gè)“Settings”的sheet。 名字一定要叫“Settings"3.2. 在settings zhong，輸入以下三行信息（黑色背景）。 把這三個(gè)cell分別命名成“Named Range” 名稱為：pmodelurl, pmodelname,pmodelapikey不知道什么叫“Named Range", 去查Excel 文檔。 3.3. 回到Sheet1， 在Sheet1中按照下面布局輸入。3.4 然后將問(wèn)題部分命名”Named Range“ 名字為： puserquery. 把大模型回答cell命名為：pllmanswer. 命名完成后，在下圖位置下拉可以看到這幾個(gè)“Named Range”步驟4. 在worksheet “Settings” 中設(shè)置模型地址和模型名稱參數(shù)。 點(diǎn)擊“Settings” sheet, 保證這三個(gè)參數(shù)是正確的。 
? 模式一。 本地部署ollama的，這里你只需要改一個(gè)地方：模型名稱改到你的ollama支持的模型名稱。 模型名字一定要匹配ollama的。 那你可以輸入哪些具體模型名字呢？在命令行，輸入：ollama list模式二。使用云端大模型服務(wù)的， 你需要從云服務(wù)商獲得模型地址和模型API key，和支持的模型名稱。輸入這三個(gè)。 步驟5. 創(chuàng)建發(fā)送按鈕。保存Excel5.1 在sheet1 中，找到”開(kāi)發(fā)者工具“菜單，點(diǎn)擊添加按鈕。 鼠標(biāo)變成十字星，選擇在C2 cell位置畫(huà)一下，就會(huì)彈出這樣的宏窗口。 5.2 點(diǎn)擊“新建”。 出現(xiàn)宏編輯窗口。 Range("pllmanswer").Cells(1, 1).Value = CallLLM(Trim(Range("puserquery").Cells(1, 1).Value))
5.4 關(guān)閉VBA代碼編輯回到Excel Sheet1， 保存。 注意：一定要選擇“xlsm” 格式保存！！。 否則VBA代碼不會(huì)保存。現(xiàn)在大功告成了， 你可以輸入問(wèn)題，等待大模型回答了。
閱讀原文：原文鏈接
該文章在 2025/2/12 9:13:13 編輯過(guò)
400 186 1886
