在 Excel VBA 宏中使用 Google 翻译

各位......多年来，我一直在我的 Excel 宏之一中使用以下函数来帮助我将照片标题从英语撰写为法语。今天上午它开始抛出一个错误，该错误指向.Send下面代码中的命令：

Public Function getGoogleTranslation(strSource As String, strSourceLang As String, strDestLang As String) As String
Dim strURL As String, x As String

strURL = "http://translate.google.com/translate_a/t?client=t&text=" & _
         Replace(strSource, " ", "%20") & _
         "&hl=en&sl=" & strSourceLang & _
         "&tl=" & strDestLang & "&multires=1&pc=0&rom=1&sc=1"

With CreateObject("msxml2.xmlhttp")
    .Open "get", strURL, False
    .send
    x = .responseText
End With

getGoogleTranslation = Replace(Replace(Split(x, ",")(0), "[", ""), """", "")

End Function

当我将 strURL 的内容直接复制/粘贴到 IE 中时，我第一次收到验证码和一条评论，表明他们正在检查“机器人”。第二次就直接成功了。他们一定是设置了cookie？？

有没有办法解决？或者另一种在宏中翻译简单短语的方法？

谢谢....RDK

好的，谷歌翻译完成了！即使像我这样小的 VBA 使用也不再是免费的。现在通过 VBA 使用 Microsoft Translator。刚刚在 Microsoft Azure Marketplace 上注册，每月免费获得 200 万个字符。

我已经使用这个系统几个月了，它的效果和谷歌翻译一样好。不完美，但足够好......RDK