我是前外企大数据专家，现专注于AI应用落地与培训的越山，欢迎点击上方蓝字关注我，不迷路。

最近各大模型厂商纷纷降价API调用价格，不是免费，就是白菜价。 但这跟普通用户有啥关系？普通用户也用得着，只要你会用Excel，就可以享受这低价的API。往下看。

智谱AI甚至还推出了批量API，也就是对实时性要求不高的处理场景，价格还能更低。

#Batch API

开放平台（bigmodel.cn）于（2024 年 5 月 17 日）推出全新的 Batch API 服务。Batch API 专为无需即时反馈并需使用大模型处理大量请求的场景设计。

通过该服务，开发者可以通过文件提交大量任务，不仅价格降低50%、无并发限制，还能在24小时内完成任务处理。

Batch API 的典型应用场景包括：
* 文章分类：为大量文章、帖子或产品描述添加分类标签。
* 情感分析：评估客户反馈、社交媒体帖子和商品评价的情感倾向。
* 文档处理：为大量文档生成摘要、提炼关键信息或进行翻译。
* 信息提取：从文本数据中识别和抽取关键内容。

支持的 Batch API 的模型以及价格

GLM-4：价格为 0.05 元 / 千 tokens
GLM-3-Turbo：价格为 0.0005 元 / 千 tokens

我的个天，看得眼睛都花了。好了，我知道都降价了。

我也知道大模型降价意味着AI技术普及化，降低了企业和开发者的进入门槛，加速了AI应用的创新和落地。

但这跟普通用户有啥关系呢？普通用户又不搞开发，哪有什么机会调用API。诶，之前我写过一篇 Excel调用Kimi API的文章，如果你会用Excel里的函数，那就可以在Excel中调用API。

为什么要在Excel中调用API? 因为可以批量处理数据啊。 场景包括但不限于：

• 信息抽取：从简历数据中提取用户的个人姓名，联系电话，毕业院校，简历关键字，一句话简介等；
• 语言翻译：将Excel表格中的中文说明翻译成不同的语言，便于跨国交流；
• 生成报告：根据Excel中的数据自动生成业务洞察报告或仪表板。
• 情感分析：分析客户反馈或评论的情感倾向，如正面、负面或中性。 ...

Excel中创建askai函数[可选]

这一步你可按照下面的提示操作，也可跳过，直接向我索要更新好的Excel文档。更新版支持月之暗面，智谱AI，通义千问，DeepSeek的API。百度，讯飞和腾讯的接口调用方式不支持HTTP的简单调用，所以没加进来。

这个过程就是在Excel中启用宏， 以下是详细步骤。

1. 启动Excel的VBA编辑器：

在Excel中，按下Alt+F11即可打开VBA编辑器。

或者从“开发工具”菜单选择“Visual Basic”进入。

如果你的菜单中没有“开发工具”选项，可以通过“文件”>“选项”>“自定义功能区”中勾选“开发工具”来添加它。

2. 插入新模块：

在VBA编辑器菜单中选择“插入”-“模块”，以添加一个新的模块。

3. 编写VBA代码：

在新模块中粘贴以下VBA代码。

此处我们定义了一个 askai 函数，用于发送提示词给对应的AI大模型，并接收其返回的输出。

Function askai(prompt As String) As String
    ' 声明变量
    Dim url As String, apiKey As String
    Dim response As Object, json As String, data As String
    Dim ws As Worksheet

    ' 设置指向第一个工作表
    Set ws = ThisWorkbook.Sheets(1)

    ' 从工作表的B1单元格获取API密钥
    apiKey = ws.Range("B1").Value

    ' 检查API密钥是否为空
    If apiKey = "" Then
        MsgBox "请在Sheet1的B1单元格中填写apiKey", vbExclamation
        askai = "Error: API key is missing"
        Exit Function
    End If

    ' 设置请求URL
    url = "https://api.moonshot.cn/v1/chat/completions"

    ' 替换特殊字符，并构建要发送的JSON数据
    Dim cleanPrompt As String
    cleanPrompt = Replace(prompt, """", "\""")  ' 转义双引号
    cleanPrompt = Replace(cleanPrompt, vbCrLf, "\n")  ' 替换Excel中的换行符为JSON中的\n
    cleanPrompt = Replace(cleanPrompt, Chr(13), "\n")  ' 替换回车符
    cleanPrompt = Replace(cleanPrompt, Chr(10), "\n")  ' 替换换行符

    data = "{""model"":""moonshot-v1-8k""," & _
           """messages"":[{""role"":""user"",""content"":""" & cleanPrompt & """}]," & _
           """temperature"":0}"

    ' 初始化HTTP请求对象，并设置请求方法、URL和同步标志
    Set response = CreateObject("MSXML2.ServerXMLHTTP")
    response.Open "POST", url, False
    ' 设置请求头
    response.setRequestHeader "Content-Type", "application/json"
    response.setRequestHeader "Authorization", "Bearer " & apiKey
    ' 发送请求和数据
    response.Send data

    ' 获取响应文本
    json = response.responseText

    ' 解析JSON响应
    Dim jsonObject As Object
    Set jsonObject = JsonConverter.ParseJson(json)

    ' 从解析的JSON中提取所需内容并返回
    On Error Resume Next
    askai = jsonObject("choices")(1)("message")("content")
    If Err.Number <> 0 Then
        askai = "Error parsing response: " & json
    End If
    On Error GoTo 0
End Function

4. 导入Json解析依赖：

因为我们需要处理JSON数据，所以需要导入一个用于JSON解析的依赖。

可以从GitHub上下载相应的.bas文件 https://github.com/VBA-tools/VBA-JSON/blob/master/JsonConverter.bas，并通过“文件”-“导入文件”将其导入到项目中。

5. 设置引用：

在VBA编辑器中，选择“工具”-“引用”，并选中Microsoft Scripting Runtime，以便我们的代码能正常运行。6. 填入API Key：也就是前面生成的API Key，将它填到第一张工作表的B1单元格。

7. 在Excel中调用函数：

最后，在Excel表格中就可以直接调用 askai 函数，就像使用其他Excel函数一样，还可以通过拖动单元格角来批量处理数据。

随便在一个单元格输入 =askai("你好"), 回车，如果有停顿一下，并返回结果，恭喜你，成功了。

保存文件时，选择支持宏的xlsm格式。

批量调用askai能力

现在我们这个Excel中有一个askai函数，你需要在第一张工作表的B1单元格，填入API Key。你也可以通过提示的链接获取其它厂商的API Key,然后将对应色块内的内容，复制到前三行。

只要能连网，就可以正常调用askai函数了。这个函数的输入就是prompt。而prompt可以在Excel里通过多列数据拼凑起来。

比如我需要提取自我介绍里的结构化信息，A列每一行就是一个完整的自我介绍，在B列，我拼凑准备prompt.

=CONCATENATE("请提取以下自我介绍中的个人信息，包括 昵称，城市，行业，5个个人关键词（列表），一句话介绍。 只输出Json格式。 自我介绍原文:", A2)

在C列，我填入=askai(B2), 回车，稍等片刻，askai的返回就出来了。

如果你需要，加我微信，发送暗号“Excel”， 我把支持4种大模型API的Excel发给你。

觉得有用的话，欢迎点赞点个“在看”。

欢迎加入我的免费知识星球, 在这里可以交流AI应用案例, 面试求职, 副业探索, 分享认知, 陪伴成长。