国产av一二三区|日本不卡动作网站|黄色天天久久影片|99草成人免费在线视频|AV三级片成人电影在线|成年人aV不卡免费播放|日韩无码成人一级片视频|人人看人人玩开心色AV|人妻系列在线观看|亚洲av无码一区二区三区在线播放

網(wǎng)易首頁(yè) > 網(wǎng)易號(hào) > 正文 申請(qǐng)入駐

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

0
分享至

之前跟大家分享了,如何調(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了

來到首頁(yè)后,我們需要在右側(cè)點(diǎn)擊【模型廣場(chǎng)】有的找到【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

以上就是今天分享的全部?jī)?nèi)容,大家可以試一下~

特別聲明:以上內(nèi)容(如有圖片或視頻亦包括在內(nèi))為自媒體平臺(tái)“網(wǎng)易號(hào)”用戶上傳并發(fā)布,本平臺(tái)僅提供信息存儲(chǔ)服務(wù)。

Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.

相關(guān)推薦
熱點(diǎn)推薦
汪小菲被喊話滾出麻六記,張?zhí)m不受影響去公司開會(huì),馬筱梅沉默了

汪小菲被喊話滾出麻六記,張?zhí)m不受影響去公司開會(huì),馬筱梅沉默了

笑飲孤鴻非
2026-03-07 03:41:13
俄羅斯發(fā)動(dòng)大規(guī)模襲擊,烏克蘭多地停電!美國(guó)向?yàn)跚笤?,澤連斯基:對(duì)技術(shù)交流和武器交換持開放態(tài)度!烏方:要無人機(jī)就拿“愛國(guó)者”換

俄羅斯發(fā)動(dòng)大規(guī)模襲擊,烏克蘭多地停電!美國(guó)向?yàn)跚笤?,澤連斯基:對(duì)技術(shù)交流和武器交換持開放態(tài)度!烏方:要無人機(jī)就拿“愛國(guó)者”換

每日經(jīng)濟(jì)新聞
2026-03-08 01:03:04
39分慘案引爆內(nèi)訌危機(jī)!掘金最強(qiáng)陣崩盤,阿德爾曼痛批無競(jìng)爭(zhēng)精神

39分慘案引爆內(nèi)訌危機(jī)!掘金最強(qiáng)陣崩盤,阿德爾曼痛批無競(jìng)爭(zhēng)精神

田先生籃球
2026-03-07 20:30:02
油價(jià)如果沖上100美元,A股最受益的10家公司

油價(jià)如果沖上100美元,A股最受益的10家公司

風(fēng)風(fēng)順
2026-03-07 07:32:40
情人關(guān)系己落伍!2026年爆火的5種兩性關(guān)系,第三種最讓人上頭

情人關(guān)系己落伍!2026年爆火的5種兩性關(guān)系,第三種最讓人上頭

匹夫來搞笑
2026-02-04 16:14:39
伊朗第18次報(bào)復(fù),特朗普遭報(bào)應(yīng),被迫從亞洲搬救兵

伊朗第18次報(bào)復(fù),特朗普遭報(bào)應(yīng),被迫從亞洲搬救兵

白色得季節(jié)
2026-03-08 00:42:55
為何要增加高中學(xué)位?因?yàn)椴桓默F(xiàn)狀,五五分流根本撐不住

為何要增加高中學(xué)位?因?yàn)椴桓默F(xiàn)狀,五五分流根本撐不住

老特有話說
2026-03-07 16:16:46
盜墓界有個(gè)“不成文規(guī)定”:金銀珠寶都可拿,唯有一樣?xùn)|西不能動(dòng)

盜墓界有個(gè)“不成文規(guī)定”:金銀珠寶都可拿,唯有一樣?xùn)|西不能動(dòng)

史不語
2026-03-05 08:55:03
再見,曼城!“大核”7000萬轉(zhuǎn)投皇馬!瓜帥斥資2億,兩中場(chǎng)來投

再見,曼城!“大核”7000萬轉(zhuǎn)投皇馬!瓜帥斥資2億,兩中場(chǎng)來投

頭狼追球
2026-03-07 09:55:00
愛潑斯坦私人飛機(jī)駕駛員:克林頓曾坐過26次,空姐像糖果脫衣舞娘

愛潑斯坦私人飛機(jī)駕駛員:克林頓曾坐過26次,空姐像糖果脫衣舞娘

歷史龍?jiān)w
2026-03-07 13:35:10
中美俄衛(wèi)星定位精度差距太大!美0.1米,俄1.5米,中國(guó)北斗是多少

中美俄衛(wèi)星定位精度差距太大!美0.1米,俄1.5米,中國(guó)北斗是多少

壹知眠羊
2026-03-05 11:13:57
開戰(zhàn)僅六天美薩德系統(tǒng)遭伊朗摧毀,金正恩送挑戰(zhàn)書

開戰(zhàn)僅六天美薩德系統(tǒng)遭伊朗摧毀,金正恩送挑戰(zhàn)書

你笑的好甜美
2026-03-07 22:25:51
遼寧鐵人球迷意難平!不僅因?yàn)?-3慘敗泰山,更是因?yàn)橐韵挛妩c(diǎn)!

遼寧鐵人球迷意難平!不僅因?yàn)?-3慘敗泰山,更是因?yàn)橐韵挛妩c(diǎn)!

田先生籃球
2026-03-07 20:40:14
隨著巴黎圣日耳曼爆冷1-3轟然倒下,法甲最新積分榜出爐

隨著巴黎圣日耳曼爆冷1-3轟然倒下,法甲最新積分榜出爐

側(cè)身凌空斬
2026-03-07 06:34:39
隨著吉達(dá)聯(lián)合1-3,沙特聯(lián)榜首易主:C羅主隊(duì)從榜首滑落

隨著吉達(dá)聯(lián)合1-3,沙特聯(lián)榜首易主:C羅主隊(duì)從榜首滑落

側(cè)身凌空斬
2026-03-07 05:00:56
伊朗與王毅通話后,中俄領(lǐng)銜27國(guó)集體發(fā)聲必保全伊朗

伊朗與王毅通話后,中俄領(lǐng)銜27國(guó)集體發(fā)聲必保全伊朗

命運(yùn)自認(rèn)幽默
2026-03-07 04:24:25
兩大衛(wèi)視開播!又一部諜戰(zhàn)劇來襲,比《潛伏》還要精彩!

兩大衛(wèi)視開播!又一部諜戰(zhàn)劇來襲,比《潛伏》還要精彩!

樂楓電影
2026-03-07 14:39:48
什么是性成癮?患者自述:比煙癮、酒癮厲害多了,比戒毒還難

什么是性成癮?患者自述:比煙癮、酒癮厲害多了,比戒毒還難

泠泠說史
2025-10-30 15:20:45
滯留迪拜6天,7次航班取消,她咬牙買下54000元機(jī)票

滯留迪拜6天,7次航班取消,她咬牙買下54000元機(jī)票

中國(guó)新聞周刊
2026-03-07 19:23:03
央視《我的山與?!烽_播!看完4集,我說:這是年代劇該有的樣子

央視《我的山與海》開播!看完4集,我說:這是年代劇該有的樣子

好賢觀史記
2026-03-07 20:08:23
2026-03-08 01:51:00
Excel從零到一 incentive-icons
Excel從零到一
0基礎(chǔ),0成本學(xué)習(xí)Excel
580文章數(shù) 87198關(guān)注度
往期回顧 全部

頭條要聞

選舉24小時(shí)內(nèi)舉行 伊朗今天或選出最高領(lǐng)袖

頭條要聞

選舉24小時(shí)內(nèi)舉行 伊朗今天或選出最高領(lǐng)袖

體育要聞

塔圖姆298天走完這段路 只用27分鐘征服這座城

娛樂要聞

汪小菲曝親媽猛料,張?zhí)m公開財(cái)產(chǎn)分配

財(cái)經(jīng)要聞

針對(duì)"不敢休、不讓休"怪圈 國(guó)家出手了

科技要聞

OpenClaw爆火,六位"養(yǎng)蝦人"自述與AI共生

汽車要聞

逃離ICU,上汽通用“止血”企穩(wěn)

態(tài)度原創(chuàng)

數(shù)碼
房產(chǎn)
健康
教育
游戲

數(shù)碼要聞

英特爾 Core Ultra 3 “Panther Lake-H” 結(jié)構(gòu)細(xì)節(jié)曝光

房產(chǎn)要聞

傳統(tǒng)學(xué)區(qū)房熄火?2月??诙址勘鸬陌鍓K竟然是…

轉(zhuǎn)頭就暈的耳石癥,能開車上班嗎?

教育要聞

初中三年悄悄篩人,輸?shù)某32皇悄X子

外媒:Xbox新主機(jī)恐成微軟絕唱!失敗即退出硬件市場(chǎng)

無障礙瀏覽 進(jìn)入關(guān)懷版