在运行中出现了一个错误，请论坛内的高人指点一二！

2001927f

我在讯飞星火上面所要了一段在excel 2016版上的VBA代码，这里面主要是对一些因为资料在电子表格内进行翻译。

——————————————————————————————————————————————————————————

Microsoft Translator API的步骤：

• 启用开发者选项卡：

  • 打开Excel。
  • 点击“文件”>“选项”。
  • 在Excel选项对话框中，选择“自定义功能区”。
  • 在右侧的“主选项卡”列表中，勾选“开发工具”选项。
  • 点击“确定”。
    

• 打开VBA编辑器：

  • 在Excel中按Alt + F11键打开VBA编辑器。
    

• 插入新模块：

  • 在VBA编辑器中，点击“插入”>“模块”，创建一个新的模块。
    

• 编写VBA代码：

  • 在新模块中，粘贴以下代码：        复制代码
    Sub TranslateText()    Dim sourceText As String    Dim targetLanguage As String    Dim translatedText As String    Dim apiKey As String    Dim url As String    Dim objHTTP As Object    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")    ' 设置要翻译的文本和目标语言    sourceText = Range("A1").Value ' 假设要翻译的文本在A1单元格    targetLanguage = "zh-CN" ' 将英文翻译成中文    ' 替换为您的Microsoft Translator API密钥    apiKey = "YOUR_MICROSOFT_TRANSLATOR_API_KEY"    ' 构建请求URL    url = "https://api.cognitive.microsofttranslator.com/translate?api-version=3.0&to=" & targetLanguage & "&textType=plain&isVertical=false"    ' 发送HTTP请求    With objHTTP        .Open "POST", url, False        .setRequestHeader "Ocp-Apim-Subscription-Key", apiKey        .setRequestHeader "Content-Type", "application/json"        .send "[{""Text"":""" & sourceText & """}]"        Dim response As String        response = .responseText    End With    ' 解析JSON响应并获取翻译后的文本    Dim json As Object    Set json = ParseJson(response)    translatedText = json(1)("translations")(1)("text")    ' 将翻译后的文本放入B1单元格    Range("B1").Value = translatedTextEnd Sub
       
    

• 添加JSON解析函数：————这里面关于添加JSON解析函数我就直接复制到上面这行代码下面了（我不太明白这个添加解析函数的操作步骤，也许我的操作步骤有问题）

  • 在新模块中，粘贴以下代码以解析JSON响应：        复制代码
    Function ParseJson(jsonString As String) As Object    Dim jsonObject As Object    Set jsonObject = JsonConverter.ParseJson(jsonString)    Set ParseJson = jsonObjectEnd Function
       
    

• 运行宏：

  • 关闭VBA编辑器并返回Excel。
  • 在“开发工具”选项卡中，点击“宏”按钮。
  • 在宏列表中找到并选择“TranslateText”宏，然后点击“运行”。
  • ————————————————————————————————————————————————————
  • 后来点击运行后也找到了“TranslateText”宏，但是运行的时候给我错误提示
  • 
    
  
  

kevinchengcw

不要用serverxmlhttp，改用xmlhttp试下

语虚何以言知

先不说ai给的代码对不对
目测你没有去获取到微软的apikey

2001927f

语虚何以言知 发表于 2024-9-27 10:09
先不说ai给的代码对不对
目测你没有去获取到微软的apikey

恩。能否帮忙用其他办法解决这个问题吗？