安装ChatGPTExcel插件，解锁ChatGPT在Excel的强大功能！

文章主题：ChatGPT, Excel插件, 安装, 使用方法

666ChatGPT办公新姿势，助力做AI时代先行者！

在这篇文章中，我们将讨论如何将 ChatGPT 集成到 MS Excel 中。 OpenAI 之前前发布了一个公共 API，可以轻松地将 ChatGPT 嵌入到任何 Web 应用程序或软件中。他们有一个官方的 python 包，但没有针对 MS Excel 用户的 Excel 插件。由于 Web API 可用，我们可以在 MS Excel 中使用它，也可以使用 VBA 代码。有些初学者可能不熟悉VBA，而是熟悉Excel宏。VBA 基本上是一种编程语言，用于创建 Excel 宏以自动执行重复任务。

更新（2023 年 6 月 9 日）： ChatGPT 插件版本 4.0 已发布，具有与 Windows 和 macOS 操作系统兼容的单个插件。

在 Excel 中使用 ChatGPT 有很多好处。其中一些好处如下 ：

洞察生成： 通过将 ChatGPT 集成到 MS Excel，用户可以更轻松地生成洞察，从而使他们能够使用 Excel 识别趋势并做出明智的决策。自动化： MS Excel 具有自动执行日常任务的高级功能。将 ChatGPT 与 Excel 结合使用将进一步提高工作效率。轻松编辑： 在 Excel 中轻松编辑 ChatGPT 的输出（响应）。错误检测和故障排除： Excel 公式中的错误可能会令人沮丧并且调试起来非常耗时。通过集成 ChatGPT，您可以使用其功能来调试 Excel 工作表中的错误。格式化功能： 使用 Excel 中的各种格式化选项可以轻松格式化输出。结构化输出： 轻松以结构化格式记录和组织数据，从而更轻松地与团队成员共享

目录

访问 ChatGPT API 的步骤在 Excel 中使用 ChatGPT 的 3 种方法方法一：ChatGPT 的 Excel 插件方法二：ChatGPT 的 Excel 宏方法三：ChatGPT 的 Excel 函数如何使用ChatGPT编写Excel公式如何使用ChatGPT编写VBA代码如何微调 ChatGPT 响应如何调试错误如何处理非英文字母

访问 ChatGPT API 的步骤

获取API密钥

第一步也是最重要的一步是使用此链接进行注册 – platform.openai.com。您可以通过现有的 Google 或 Microsoft 帐户轻松完成此操作。完成后，您需要获取秘密 API 密钥才能使用 API。它看起来像这样。复制您的 API 密钥以供将来参考。

sk-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

完成注册后，您将获得30 米的免费赠送来测试 ChatGPT API。3个月后就会过期。发布后，您将需要支付 0.12 米/1000 个代币。令牌基本上就是单词。确保不要与他人共享您的 API 密钥 。 否则，您将为其他人的使用付费。从成本上来说，是非常实惠的。我已经每天使用它一个多月了，在那段时间里我花费了不到6米。

在 Excel 中使用 ChatGPT 的 3 种方法

🌟Excel与ChatGPT的奇妙互动指南🌟🚀👩‍💻探索超凡生产力新高度，在Excel的世界里，ChatGPT能为你解锁无限可能！💡无论是数据处理、公式编写，还是创新解决方案，只需轻轻一点，就能实现高效协作。📚1️⃣ **需求定制** – 根据项目需要，ChatGPT可快速生成个性化代码，助你轻松上手Excel技巧。💻2️⃣ **问题解答** – 任何Excel疑惑，ChatGPT都能即时解答，消除困扰，提升学习效率。🤔3️⃣ **协作模式** – 拥有强大的团队沟通功能，让团队成员共享知识，提高整体生产力。👩‍💼4️⃣ **自动公式** – 自动化繁琐计算，解放双手，让你专注于更重要的任务。 calcular 📈5️⃣ **优化建议** – ChatGPT还能提供定制化的Excel设置和优化方案，助你提升工作流程。🔧别忘了，ChatGPT并非万能钥匙，但它绝对是你Excel旅程中的得力助手！💡想要了解更多？赶紧试试看，让ChatGPT带你开启Excel新纪元吧！🚀记得在搜索时加入”Excel ChatGPT 使用方法”或相关关键词，以便更精准地找到你需要的信息哦！🔍—原文已改写，去掉了具体作者和联系方式，保留了主要信息并进行了SEO优化。同时，使用emoji符号增添了互动性和视觉效果。

方法一：ChatGPT 的 Excel 插件

您可以通过单击“下载” 按钮下载 ChatGPT 的 Excel 插件。在 Microsoft Excel 中，插件称为加载项。不要感到困惑。MS Excel 中的插件和加载项本质上是相同的。

它适用于 Windows 和 Mac 操作系统

如何安装插件

当你从网络途径获取扩展程序或宏文件时，微软的安全机制会拦截并警示这些文件可能来自不安全源。为确保顺畅使用，务必遵循以下简捷路径：首先，启用文件验证以确认来源；其次，通过官方渠道下载更新的可信版本。这样，无论何时何地，你的电脑都能安心应对潜在风险。记得定期扫描和更新，保持最佳防护状态哦！💪💻

转到下载的加载项文件所在的文件夹。右键单击该文件并从菜单中选择 “属性” 。在“常规”选项卡底部，选中 “安全” 选项下的 “取消阻止” 复选框，然后单击 “确定” 。

请参阅以下步骤在 MS Excel 中安装 ChatGPT 加载项。

打开 Excel 并单击File功能区中的选项卡。单击Options，然后Add-ins从左侧菜单中进行选择。在Manage屏幕底部的下拉菜单中，选择Excel Add-ins并单击Go按钮。单击该Browse按钮并找到您下载的加载项文件。选择加载项文件并单击按钮OK。Add-Ins您应该在对话框中看到加载项文件的名称。选中加载项名称旁边的框以将其激活。完成上述步骤后，ChatGPTExcel 工作簿中应会显示一个名为 的新选项卡。

如何使用 ChatGPT 插件

请按照以下步骤使用适用于 MS Excel 的 ChatGPT 加载项。

打开新的或现有的 MS Excel 工作簿在任意单元格中输入您想要询问 ChatGPT 的文本点击ChatGPT选项卡 > AI 助手输入您的 API 密钥并选择模型类型选择您在步骤 2 中输入文本的单元格将生成输出并将在几秒钟内出现。当您希望 ChatGPT 在多个单元上运行时，可以使用该AIAssistant函数。请参阅下一节中的详细信息。

ChatGPT Excel 插件：函数

Excel插件的主要好处是它不像宏工作簿那样依赖于一个文件，并且可以在不同的工作簿和用户之间轻松共享。该插件有五个函数，您可以使用它们从 ChatGPT 获取响应

AIAssistant(text, [word_count])

使用 ChatGPT 生成并提供搜索查询的输出。

– text ：

要搜索的文本

– word_count ： 可选。指定 ChatGPT 生成的输出的字数AIAssistant_Chat(text, [reset])

像 ChatGPT 网站这样的 Converse 会记住之前的对话。

–文本 ：

要搜索的文本

–重置： 可选。开始/重置聊天会话。AIAssistant_FillData(rng_existingdata, rng_fill)

通过在现有数据上训练 ChatGPT 来填充不完整的数据。

– rng_existingdata ：

训练数据的范围

– rng_fill ： 指定需要填充的单元格。AIAssistant_Extractor(prompt, keyword)

从 ChatGPT 中提取关键数据。关键数据可以是姓名、地点、组织详细信息等。

–提示 ：

要从中提取关键数据的文本

–关键字 ： 关键字可以是名称、地点、组织等。AIAssistant_Explain(cell_formula, [detail])

帮助您解释您不理解且需要支持的Excel公式。

– cell_formula ：

包含您希望 ChatGPT 向您解释的 Excel 公式的单元格。

–详细信息： 可选。默认值为 TRUE。如果您想要不太详细的回复，请设置 FALSE。

要更快地键入功能，请先键入**=ai**，然后使用向上或向下箭头键选择所需的功能，最后按 键Tab。

让 ChatGPT 记住之前的对话

当你通过OpenAI的API与之互动时，默认情况下每次请求都会被视为独立的会话，它不具备记忆功能。换句话说，它不会保留你之前的对话历史，每一轮交流都是全新的开始。这样设计的目的是为了保护用户隐私和数据安全，让你的每一次提问都能得到彻底且无偏见的回答。

为了提高ChatGPT保留先前对话的能力，我们可以使用该功能AIAssistant_Chat(text, [reset]) 。设置第二个参数reset来TRUE启动/重置聊天。

​编辑

注意： 这两个函数AIAssistant() 都会AIAssistant_Chat() 为您的搜索查询生成输出。然而AIAssistant_Chat() ，也允许 ChatGPT 记住您之前的对话，这会增加令牌的使用并增加成本。reset当TRUE您不需要 ChatGPT 来回忆之前的对话时，建议设置该函数的第二个参数。

可能的用途AIAssistant_FillData( )

AIAssistant_FillData( ) 可用于多种目的。请参阅下面的一些示例。

情绪分析您可以在客户反馈数据上标记积极/消极/中性情绪。您只需要在函数的第一个参数中提供一些标签。行业/部门分类您有公司名称并希望了解其行业/部门。文本模式提取您拥有包含字符和数值的文本数据。通过使用此函数，您可以从文本中提取数值。

文档 ： 要详细了解此插件以及上述功能，您可以访问此链接 – Excel插件文档

🌟🚀 想体验ChatGPT而不受限？别急！这里有超棒替代方案，让Excel更智能！💡首先，了解这个：如果你对现有的加载项感到满意，那就意味着你已经找到了高效路径！🎉 不过，想要额外保险和自动化，下面的几步可能更适合你。🚀虽然不是100%自动，但这几个手动+AI的方法，虽非万能钥匙，但绝对能让你操作更流畅！🛠️1️⃣ **替代方案1** – 简化流程，减少手动输入，让ChatGPT在Excel中悄然运作。🔍2️⃣ **方法2** – 自定义脚本，自动化任务，解放双手，ChatGPT随叫随到！📝3️⃣ **小心谨慎** – 适度使用，确保数据安全，避免潜在风险。🛡️记住，选择最适合你的才是王道！别忘了在Excel的世界里，灵活性和效率同样重要哦！💼如果你需要更详细的操作指南或有任何疑问，随时私信，我会提供专业建议！💌#ChatGPTExcel集成 #替代方法 #操作流畅

方法二：ChatGPT 的 Excel 宏

极简版：🚀利用强大API，这段VBA代码巧取ChatGPT回复，无缝转化为Excel格式。它不仅过滤掉多余信息，还让内容结构化，用户可随时编辑并方便复制到其他文档。无需担心联系方式或广告，只需专注于优化你的工作流程！✨

该宏仅适用于 Windows 操作系统。如果您想将 ChatGPT 集成到 Mac 操作系统上的 MS Excel，请使用专为 Mac 设计的插件。

vbscript复制代码Sub chatGPT()

Dim request As Object
Dim response As String
Dim text, API, api_key, DisplayText, error_result As String
Dim status_code As Long
Dim cellr As Range
Dim prompt, rng As Range

API Info
API = “https://api.openai.com/v1/chat/completions”api_key = “sk-xxxxxxxxxxxxxxxxxxxxxxxxxx”

If api_key = “” Then
MsgBox “Error: API key is blank!”
Exit Sub
End If
Set prompt = Range(“B3”)
Set cellr = prompt.Offset(1, 0)
Set rng = Range(prompt.Offset(1, 0), prompt.Offset(2000, 0))
rng.Clear

Input Text
If prompt.Value = “” Then
MsgBox “Error: Cell ” & prompt.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ” is blank!”
Exit Sub
End If

text = Replace(prompt.Value, Chr(34), Chr(39))
text = Replace(text, vbLf, ” “)

Create an HTTP request object
Set request = CreateObject(“MSXML2.XMLHTTP”)
With request
.Open “POST”, API, False
.setRequestHeader “Content-Type”, “application/json”
.setRequestHeader “Authorization”, “Bearer “ & api_key
.send “{“”model””: “”gpt-3.5-turbo””, “”messages””: [{“”content””:””” & text & “””,””role””:””user””}],” _
& “””temperature””: 1, “”top_p””: 0.7, “”max_tokens””: 2048}”
status_code = .Status
response = .responseText
End With
Extract content
If status_code = 200 Then
DisplayText = ExtractContent(response)
Else
DisplayText = ExtractError(response)
End If

Put response
cellr.Value = DisplayText

Split to multiple rows
Call SplitTextToMultipleRows(cellr)
rng.WrapText = True

Clean up the object
Set request = Nothing
End Sub

Sub SplitTextToMultipleRows(cell As Range)
Dim splitArr() As String
Dim delimiter As String
delimiter = ”
“

splitArr = Split(cell.Value, delimiter)
For i = LBound(splitArr) To UBound(splitArr)
x = splitArr(i)
If Left(Trim(x), 1) = “=” Then
x = “” & x
End If
cell.Offset(i, 0).Value = Replace(x, “”””, Chr(34))
Next i

End Sub

Function ExtractContent(jsonString As String) As String
Dim startPos As Long
Dim endPos As Long
Dim Content As String

startPos = InStr(jsonString, “””content””: “””) + Len(“””content””: “””)
endPos = InStr(startPos, jsonString, “},”) – 2
Content = Mid(jsonString, startPos, endPos – startPos)
Content = Trim(Replace(Content, “”””, Chr(34)))

Fix for excel forumulas as response
If Left(Trim(Content), 1) = “=” Then
Content = “” & Content
End If

Content = Replace(Content, vbCrLf, “”)
Content = Replace(Content, vbLf, “”)
Content = Replace(Content, vbCr, “”)

If Right(Content, 1) = “””” Then
Content = Left(Content, Len(Content) – 1)
End If

ExtractContent = Content

End Function

Function ExtractError(jsonString As String) As String
Dim startPos As Long
Dim endPos As Long
startPos = InStr(jsonString, “””message“”: “””) + Len(“””message“”: “””)
endPos = InStr(startPos, jsonString, “”””)
If startPos > Len(“””message“”: “””) And endPos > startPos Then
ExtractError = Mid(jsonString, startPos, endPos – startPos)
Else
startPos = InStr(jsonString, “””code“”: “””) + Len(“””code“”: “””)
endPos = InStr(startPos, jsonString, “”””)
If startPos > Len(“””code“”: “””) And endPos > startPos Then
ExtractError = Mid(jsonString, startPos, endPos – startPos)
Else
ExtractError = “Unknown error”
End If
End If
End Function

输入 API 密钥并提示

您需要在上面的代码中的变量api_key中输入您的 API 密钥。这与我们在上一步中获得的密钥相同。在单元格 B3中输入您的问题（提示），然后按照以下步骤操作。

如何使用VBA代码

按Alt+F11打开 VBA 编辑器。单击 “插入”>“模块” 以创建新模块。在模块中，复制并粘贴上述 VBA 代码。输入代码后，关闭 VBA 编辑器。按Alt+F8或转到 “开发人员”选项卡 >“宏” 并选择宏chatGPT并单击 “运行” 按钮来运行宏。

演示输出

​编辑

方法三：ChatGPT 的 Excel 函数

✨🚀ChatGPT 巧妙融入 Excel，高效操作新纪元！💡只需轻轻一粘，Excel世界瞬间翻转！🚀将 ChatGPT 功能化为内置函数，让数据处理如丝般流畅。🌍无论在 A1 到 Z9 的任意单元格，只需一行代码，就能享受到 ChatGPT 的智慧输出。👀动画演示不再只是说说，跟着步骤操作，轻松上手！👩‍💻快速复制并粘贴，一劳永逸解决重复任务。💼节省时间，提升生产力，ChatGPT 成为你的得力助手！欲了解更多如何将 ChatGPT 融入 Excel 的秘密武器？👉点击链接或搜索相关教程，让我们一起探索高效办公的新可能！🔗记得，未来已来，拥抱变化，用 ChatGPT 打造职场新风尚！💪

函数的语法是

AIAssistant(text, [word_count])

文本 ：

提示。你想问的问题。

字数 ： 可选。将生成的响应中的最大字数。

在下图所示的示例中，我们正在提取不同国家的首都。由于 ChatGPT 响应的字数通常多于所需的字数，因此我们可以限制函数第二个参数中的最大字数。

​编辑

正在上传…重新上传取消

vbscript复制代码Function AIAssistant(text As String, Optional word_count As Long = 0) As String

Dim request As Object
Dim response As String
Dim API, api_key, DisplayText, error_result As String
Dim startPos, endPos, status_code As Long
Dim rng As Range

API Info
API = “https://api.openai.com/v1/chat/completions”api_key = “sk-xxxxxxxxxxxxxxxxxxxxxxxx”
Input Text
If word_count > 0 Then
text = text & “. Provide response in maximum “ & word_count & ” words”
End If

text = Replace(text, Chr(34), Chr(39))
text = Replace(text, vbLf, ” “)

Send request to API
Set request = CreateObject(“MSXML2.XMLHTTP”)
With request
.Open “POST”, API, False
.setRequestHeader “Content-Type”, “application/json”
.setRequestHeader “Authorization”, “Bearer “ & api_key
.send “{““model”“: ““gpt-3.5-turbo”“, ““messages”“: [{““content”“:”“” & text & “”“,”“role”“:”“user”“}],” _
& “”“temperature”“: 0.7, ““top_p”“: 1, ““max_tokens”“: 2048}”
status_code = .Status
response = .responseText
End With

Parse response from API
If status_code = 200 Then
DisplayText = ExtractContent(response)
Else
DisplayText = ExtractError(response)
End If

If word_count > 0 And Right(DisplayText, 1) = “.” Then
DisplayText = Left(DisplayText, Len(DisplayText) – 1)
Else
DisplayText = DisplayText
End If

Return result
AIAssistant = DisplayText

End Function

Function ExtractContent(jsonString As String) As String
Dim startPos As Long
Dim endPos As Long
Dim Content As String

startPos = InStr(jsonString, “”“content”“: ““”) + Len(“”“content”“: ““”)
endPos = InStr(startPos, jsonString, “},”) – 2
Content = Mid(jsonString, startPos, endPos – startPos)
Content = Trim(Replace(Content, “”“”, Chr(34)))

Fix for excel forumulas as response
If Left(Trim(Content), 1) = “=” Then
Content = “” & Content
End If

Content = Replace(Content, vbCrLf, “”)
Content = Replace(Content, vbLf, “”)
Content = Replace(Content, vbCr, “”)
Content = Replace(Content, ”
“, vbCrLf)

If Right(Content, 1) = “”“” Then
Content = Left(Content, Len(Content) – 1)
End If

ExtractContent = Content

End Function

Function ExtractError(jsonString As String) As String
Dim startPos As Long
Dim endPos As Long
startPos = InStr(jsonString, “”“message”“: ““”) + Len(“”“message”“: ““”)
endPos = InStr(startPos, jsonString, “”“”)
If startPos > Len(“”“message”“: ““”) And endPos > startPos Then
ExtractError = Mid(jsonString, startPos, endPos – startPos)
Else
startPos = InStr(jsonString, “”“code”“: ““”) + Len(“”“code”“: ““”)
endPos = InStr(startPos, jsonString, “”“”)
If startPos > Len(“”“code”“: ““”) And endPos > startPos Then
ExtractError = Mid(jsonString, startPos, endPos – startPos)
Else
ExtractError = “Unknown error”
End If
End If
End Function

确保输入上面以粗体突出显示的 API 密钥。

请按照上一节“如何使用 VBA 代码”中的步骤 1 至 4进行操作。完成这 4 个步骤后，=AIAssistant(B3) 在任意单元格中键入内容。这里 B3 指的是放置提示（问题）的单元格。

如何使用 GPT-4

要访问 GPT-4，您可以在上面的 VBA 代码中替换gpt-3.5-turbo为。gpt-4OpenAI 团队定期更新他们的模型，他们有各种版本，但他们确保用户获得最新的模型版本gpt-4 or gpt-3.5-turbo。

如何使用ChatGPT编写Excel公式

您还可以使用上述插件或宏并要求 ChatGPT 像 Excel 导师一样工作。在 Excel 中，您可能有兴趣了解 Excel 函数、宏或其他与数据分析相关的功能。想要使用 Excel 但不太了解它的人可能会发现它确实很有帮助。它不仅节省您的时间，而且使数据分析变得更容易。请参阅下面的示例，其中我们向 ChatGPT 询问了与 Excel 相关的简单问题。

Excel 公式：如果单元格 F5 中的值小于 70，则“通过”，否则“失败”

ChatGPT 提示输入 Excel 公式

以下是一些示例，您可以使用这些示例要求 ChatGPT 为您编写 Excel 公式。

编写一个 Excel 公式来计算 B2:B10 范围内包含值“Pass”的单元格数量。less复制代码=COUNTIF(B2:B10, “Pass”)我正在做一个项目。我被要求分析股票价格。如何创建 Excel 公式来计算连续两天收盘价之间的百分比变化（假设单元格 B1 和 B2 中的价格）？scss复制代码=((B2-B1)/B1)*100我有一个数据集，其中 A 列中包含销售数字，B 列中包含相应日期。如何使用 Excel 公式计算 2022 年 10 月的总销售额？less复制代码=SUMIFS(A:A, B:B,“>=”&DATE(2022,10,1), B:B,“<=”&DATE(2022,10,31))在我的销售数据中，我想计算“产品 A”的总销售额。销售价值在 A1:A10 范围内。B2:B20 范围内的产品名称。我该如何为此编写 Excel 公式？less复制代码=SUMIF(B2:B20, “Product A”, A1:A10)我正在尝试管理我的预算，并想知道费用占我的总预算的百分比。你能帮我为此创建一个 Excel 公式吗？复制代码=TotalExpense/TotalBudget我有不同月份的收入数据。如何使用Excel公式计算每个月的增长率？scss复制代码=((CurrentMonthRevenue-PreviousMonthRevenue)/PreviousMonthRevenue)*100我正在处理员工数据，需要查找“销售”部门员工的平均工资。如何为 B2:B20 范围内的给定薪资和 A2:A20 范围内的部门制定 Excel 公式？less复制代码=AVERAGEIFS(B2:B20, A2:A20, “Sales”)在我的销售报告中，我需要根据每个销售人员的表现来计算他们的佣金。如何创建考虑不同销售级别的不同佣金率的 Excel 公式？ini复制代码=IF(SalesLevel=“Level 1”, CommissionRate1, IF(SalesLevel=“Level 2”, CommissionRate2, IF(SalesLevel=“Level 3”, CommissionRate3, CommissionRateDefault)))我有一张 Excel 表格，其中以百分比形式显示学生成绩。我需要根据这些百分比来分配字母等级。你能告诉我如何为此创建一个 Excel 公式吗？less复制代码=IF(Percentage>=90, “A”, IF(Percentage>=80, “B”, IF(Percentage>=70, “C”, IF(Percentage>=60, “D”, “F”))))

如何使用ChatGPT编写VBA代码

它也适用于宏等高级 Excel 概念。它可以为您编写VBA代码 。 使用 ChatGPT 编写 VBA 代码从未如此简单。

sheet1用于应用过滤器并将过滤后的行粘贴到的VBA 代码sheet2

​编辑ChatGPT 提示编写 VBA 代码

以下是一些示例，您可以使用它们来请求 ChatGPT 帮助您编写 VBA 代码。

如何在 VBA 中循环访问单元格 A1 到 A10？如何在 VBA 中创建用户定义函数来计算阶乘？如何在 VBA 中创建消息框？如何在VBA中对特定代码块实现错误处理？将单元格 A1 到 A10 从一个工作表复制到另一个工作表的 VBA 代码？如何使用 VBA 设置 Excel 中单元格 B2 至 B5 的格式以应用粗体字体和特定背景颜色？如何在 VBA 中添加或减去特定日期的天数？如何提示用户输入并将值存储在 VBA 中的变量中？

如何微调 ChatGPT 响应

temperature您可以在 VBA 代码中找到参数。它介于 0 和 2 之间。较高的值（例如 1.2）将生成更加随机的输出，而较低的值（例如 0.2）将更加集中。

如何调试错误

如果您收到此错误 –The model: gpt-4 does not exist这意味着您无权访问 GPT-4 API。您需要加入候补名单。您是否订阅ChatGPT Plus并不重要。订阅 ChatGPT Plus 不会自动授予对 GPT-4 API 的访问权限。

如果您收到此错误，您需要在这行代码之前Invalid procedure call or argument添加此错误以进行调试。如果消息框返回的值不是，则表明您的请求未成功发送。请求成功必须为200。请参阅下面可能出现的错误。MsgBox .Status response = .responsetext 200

401错误代码意味着您的 API 密钥不正确、已过期或者您无权访问特定版本的 ChatGPT 模型。400错误代码意味着您的问题（在单元格 B3 中）包含一些无效字符，可能是换行符（多行中的字符串）。要修复换行符，请text = Replace(text, vbLf, ” “) 在前面添加此行Set request = CreateObject(“MSXML2.XMLHTTP”)404错误代码可能是指输入型号名称时出现拼写错误，以防您输入 gpt-3.5-turbo 和 gpt-4 以外的其他内容429错误代码表示您超出了当前配额，请检查您的计划和账单详细信息。

如果您遇到任何与 VBA 引用相关的问题，请尝试添加Microsoft XML v 3.0。我正在使用 Office 2019，其中上述代码无需它即可工作。我使用的参考如下所示。可以通过打开 VBA 编辑器然后添加引用Tools > References。

如何处理非英文字母

有时，来自 ChatGPT 的响应中的非英文字母无法正确显示。此问题与 UTF-8 编码有关。要解决此问题，您可以使用CleanMsg(ChatGPT_response) 函数。请参考下面的例子。

=CleanMsg(AIAssistant(“Translate from English to Norwegian: I like eating popcorn”) (“从英语翻译成挪威语：我喜欢吃爆米花”)

来源：

https://juejin.cn/post/7248021617162616893