vba如何调用文心一言接口

VBA 如何调用文心一言接口

文心一言是百度研发的企业级对话式语言模型，它以强大的文本理解和生成能力而著称。借助 VBA（Visual Basic for Applications），我们可以直接在 Excel 和其他 Office 应用程序中调用文心一言接口，轻松集成自然语言处理功能，提升自动化处理文本的能力。

VBA 调用文心一言步骤

1. 申请文心一言 API Key

要使用文心一言接口，首先需要申请 API Key。请访问百度 AI Studio（https://aistudio.baidu.com/aistudio/index）注册并申请。

2. 导入文心一言库

下载文心一言 VBA 库（erinyi.bas），将其复制到 VBA 编辑器中的模块中。该库提供了与文心一言接口交互所需的函数和类。

3. 实例化文心一言对象

在 VBA 代码中，使用以下代码来实例化文心一言对象：

vba Dim erinyi As New erinyi

4. 设置 API Key

使用 SetAPIKey 方法设置申请到的 API Key：

vba erinyi.SetAPIKey "YOUR_API_KEY"

5. 调用文心一言接口

调用以下方法来交互文心一言接口：

Predict: 生成文本。
ClassifyText: 对文本进行分类。
Extraction: 从文本中提取信息。
Summarize: 总结文本。

以下是一个示例，演示如何使用 Predict 方法生成文本：

vba Dim prompt As String: prompt = "我是一个人工智能机器人" Dim maxTokens As Long: maxTokens = 20 Dim result As String: result = erinyi.Predict(prompt, maxTokens)

代码示例

以下是一个完整的 VBA 代码示例，演示如何使用文心一言接口生成文本并将其显示在 Excel 工作表上：

“`vba
Sub CallErInYi()
Dim erinyi As New erinyi
erinyi.SetAPIKey “YOURAPIKEY”

Dim prompt As String
prompt = InputBox("请输入提示信息：")
Dim maxTokens As Long
maxTokens = 20
Dim result As String
result = erinyi.Predict(prompt, maxTokens)
Cells(1, 1).Value = result

End Sub
“`