秒殺Deepseek，豆包跟Excel才是絕配，ExcelAI函數(shù)升級(jí)版來了！

之前跟大家分享了，如何調(diào)用Deepseek的API制作ExcelAI函數(shù)，但是不少粉絲都反饋體驗(yàn)不好，主要還是反饋的結(jié)果太慢，數(shù)據(jù)量一大，就能不行了。

今天解決的方法來了，就是調(diào)用豆包的API，結(jié)果基本都是秒出，做到了跟常規(guī)函數(shù)幾乎一樣的速度，真的太爽了

一、找到豆包

想要調(diào)用豆包的API就需要通過火山引擎調(diào)用，這個(gè)就不再贅述了，之前都發(fā)過視頻了的，大家可以搜一下，注冊(cè)就是手機(jī)號(hào)注冊(cè)，然后實(shí)名認(rèn)證就可以調(diào)用API了

來到首頁后，我們需要在右側(cè)點(diǎn)擊【模型廣場】有的找到【Doubao-1.5-lite-32k】然后點(diǎn)擊【查看詳情】

為什么要選擇【Doubao-1.5-lite-32k】這個(gè)模型呢，因?yàn)檫@個(gè)是輕量化的模型，主打低延遲，速度更快，我們使用ExcelAI函數(shù)的體驗(yàn)也會(huì)更好

二、調(diào)用API

點(diǎn)擊【查看詳情】后會(huì)來到一個(gè)新的窗口，我們需要在當(dāng)前的窗口中找到【推理】之后就會(huì)在右側(cè)看到一個(gè)窗口，如下截圖，我們獲取三處關(guān)鍵的數(shù)據(jù)

1.API KEY】這個(gè)需要自己創(chuàng)建下

2.【url它就是API】的地址，已經(jīng)在下圖標(biāo)注，記得全部復(fù)制

3.【Model】它就是模型的ID

獲取上方的三個(gè)關(guān)鍵數(shù)據(jù)后，就能做API的調(diào)用了

三、更改代碼

當(dāng)前的代碼我們需要修改3處，也正好對(duì)應(yīng)我們上一步獲取的三處，大家記得一定要全部替換下才能正確調(diào)用API，修改后使用這個(gè)AI函數(shù)了，下面是它的參數(shù)

=ExcelAI(需要處理的單元格,”你的需求”)

1.【你的API替換為】豆包的API KEY

2.【模型的URL地址】替換為豆包的url

3.【模型的ID】替換為豆包的模型ID

Function ExcelAI(TargetCell As Range, Question As String) As Variant

On Error GoTo ErrorHandler

Const API_KEY As String ="你的API" ' 需替換有效密鑰

Const API_URL As String ="模型的URL地址"

' 構(gòu)建安全請(qǐng)求

Dim safeInput As String

safeInput = BuildSafeInput(TargetCell.Text, Question)

' 發(fā)送API請(qǐng)求

Dim response As String

response = PostRequest(API_KEY, API_URL, safeInput)

' 解析響應(yīng)內(nèi)容

If Left(response, 5) ="Error"Then

ExcelAI = response

Else

ExcelAI = ParseContent(response)

End If

Exit Function

ErrorHandler:

ExcelAI ="Runtime Error: "& Err.Description

End Function

' 構(gòu)建安全輸入內(nèi)容

Private Function BuildSafeInput(Context As String, Question As String) As String

Dim sysMsg As String

If Len(Context) > 0 Then

sysMsg ="{""role"":""system"",""content"":""上下文："& EscapeJSON(Context) &"""},"

End If

BuildSafeInput ="{""model"":""模型的ID"",""messages"":["& _

sysMsg &"{""role"":""user"",""content"":"""& EscapeJSON(Question) &"""}]}"

End Function

' 發(fā)送POST請(qǐng)求

Private Function PostRequest(apiKey As String, url As String, payload As String) As String

Dim http As Object

Set http = CreateObject("MSXML2.XMLHTTP")

On Error Resume Next

With http

.Open"POST", url, False

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

.setRequestHeader"Authorization","Bearer "& apiKey

.send payload

If Err.Number <> 0 Then

PostRequest ="Error: HTTP Request Failed"

Exit Function

End If

' 增加10秒超時(shí)控制

Dim startTime As Double

startTime = Timer

Do While .readyState < 4 And Timer - startTime < 10

DoEvents

Loop

End With

If http.Status = 200 Then

PostRequest = http.responseText

Else

PostRequest ="Error "& http.Status &": "& http.statusText

End If

End Function

' JSON特殊字符轉(zhuǎn)義

Private Function EscapeJSON(str As String) As String

str = Replace(str,"\", "\\")

str = Replace(str, """", "\""")

str = Replace(str, vbCr, "\r")

str = Replace(str, vbLf, "\n")

str = Replace(str, vbTab, "\t")

EscapeJSON = str

End Function

' 智能解析響應(yīng)內(nèi)容

Private Function ParseContent(json As String) As String

Dim regex As Object, matches As Object

Set regex = CreateObject("VBScript.RegExp")

' 增強(qiáng)版正則表達(dá)式

With regex

.Pattern = """content"":\s*""((?:\\""|[\s\S])*?)"""

.Global = False

.MultiLine = True

.IgnoreCase = True

End With

Set matches = regex.Execute(json)

If matches.Count > 0 Then

Dim rawText As String

rawText = matches(0).SubMatches(0)

' 反轉(zhuǎn)義處理

rawText = Replace(rawText, "\""", """")

rawText = Replace(rawText, "\\", "\")

rawText = Replace(rawText, "\n", vbCrLf)

rawText = Replace(rawText, "\r", vbCr)

rawText = Replace(rawText, "\t", vbTab)

ParseContent = rawText

Else

' 錯(cuò)誤信息提取

Dim errMatch As Object

regex.Pattern = """message"":\s*""(.*?)"""

Set errMatch = regex.Execute(json)

If errMatch.Count > 0 Then

ParseContent = "API Error:" & errMatch(0).SubMatches(0)

Else

ParseContent = "Invalid Response"

End If

End If

End Function

以上就是今天分享的全部內(nèi)容，大家可以試一下~