从 vba 打开网站时，谷歌翻译无法在 IE 中进行翻译

谷歌翻译不翻译文本（日语到英语）。当打开网站并使用以下代码输入文本时，该函数始终返回“”：

Function OutlookGetTransItem(IE As Object, URL As String, trans_text As String) As String
Dim t As Date

If trans_text = "" Then OutlookGetTransItem = trans_text: Exit Function

Const MAX_WAIT_SEC As Long = 5

With IE
    .Visible = True
    .navigate URL

    While .Busy Or .ReadyState < 4: DoEvents: Wend

    .Document.querySelector("#source").Value = trans_text

    Dim translation As Object, translationText As String
    t = Timer
    Do
        On Error Resume Next
        Set translation = .Document.querySelector(".tlid-translation.translation")
        translationText = translation.innerText
        On Error GoTo 0
        If Timer - t > MAX_WAIT_SEC Then Exit Do
    Loop While translationText = vbNullString
    OutlookGetTransItem = translationText
End With
End Function

当我尝试手动单击网站上的翻译箭头/按钮时，IE 会出现此错误： SCRIPT5025：要解码的 URI 不是有效的编码 翻译_m.js (207,484)

这是我要导航到的 URL：

这是我设置的文本trans_text该文本取自 Outlook 电子邮件，使用其.body财产：

关系各位

いつもお世话になっております。 「111117_NAM_L42L_TR2k2_3悪_第1部第2部.pdf（议事板书）」を送付いたします。よろしくお愿い致します。

结论：途中 下记13件の课题がありﾌｫﾛｰを実施する

ｴﾝ担,ﾌﾟﾛｾﾝ ・课题対応を実施する事（Dﾚﾝｼﾞｱｲﾄﾞﾙ回転検讨、ｱｲﾄﾞﾙ振动ﾃﾞｰﾀ入手、制御不具合対応、全ROM定数ﾁｪｯｸ、燃料PUMP未合调查，冷房性能未达対応） ・T/M IPのFKとFKk2との比较を提示する事 ・ ｻｰﾓｽﾀｯﾄのﾒｰｶｰを再确认すること ・始动ｴﾝｽﾄﾁｪｯｸﾘｽﾄの再ﾁｪｯｸを実施する事（ｴﾝｽﾄ余率,ﾊﾟｰｼﾞの判断,AF/M电源属性） 始动ISC
・不悬残项目の対応を実施する事（车両振动、始动即Rｾﾚｸﾄｴﾝｽﾄ、A/F回転総ﾁｪｯｸ、常温始动軽质确认、かぶり、ｾﾚｸﾄｱｲﾌﾗ,PCVﾊﾝﾁﾝｸﾞ确认,即始动确认,押し出され确认） ・H1を最终仕様でまとめる事 ・各相场ﾁｪｯｸﾃﾞｰﾀの古いL42Lのﾗｲﾝを削除する事 ・ﾌﾞﾚｰｷｴﾝｽﾄ回転低下时の车両振动への影响を确认する事 ・低温始动时のTpを确认する事 ・ｸﾗﾝｷﾝｸﾞ回転数の0℃の目标値の出所を确认する事 台上适合 ・H2全ROM定数ﾁｪｯｸを実施する事 ・不悬残项目の対応を実施する事（R/Lｻｰｼﾞ、暖机中ﾗﾌｱｲﾄﾞﾙ、ﾛｼﾞｯｸﾊﾞｸﾞ后の确认、ﾌﾞﾛｯｸ_ﾍｯﾄ変更后のﾉｯｸ确认） ・BCV确认のTH/Cつまりﾃﾞｰﾀの再确认を実施する事（ｱﾙﾐﾎﾞｱ化）

稍微更改您的 URL，让浏览器处理 URL 的编码。我正在从单元格中读取您的文本。当网站进行翻译时，它会生成一个新的 URL，其中的查询字符串参数为text=<your string to translate>;所以添加text=到您的起始 URL 并连接到您的短语中进行翻译。

请记住，您需要在某个时候关闭 IE 实例。我不喜欢以这种方式将 IE 作为对象传递，并且可能希望将其保存在一个在类中生成 IE 对象的类中Class_Initialize()。然后，您可以使用子中的变量实例化该类。

我经常忘记我认为现在合适的导航方法是.navigate2.

Option Explicit

Public Sub test()
    Dim ie As InternetExplorer, trans_text As String
    Const URL As String = "https://translate.google.com/#view=home&op=translate&sl=ja&tl=en&text="
    Set ie = New InternetExplorer
    trans_text = [A1].Value
    Debug.Print OutlookGetTransItem(ie, URL, trans_text)
    ie.Quit
End Sub

Public Function OutlookGetTransItem(ByVal ie As Object, ByVal URL As String, ByVal trans_text As String) As String
    Dim t As Date

    If trans_text = vbNullString Then OutlookGetTransItem = trans_text: Exit Function

    Const MAX_WAIT_SEC As Long = 5

    With ie
        .Visible = True
        .navigate2 URL & trans_text

        While .Busy Or .readyState < 4: DoEvents: Wend

        Dim translation As Object, translationText As String
        t = Timer
        Do
            On Error Resume Next
            Set translation = .document.querySelector(".tlid-translation.translation")
            translationText = translation.innerText
            On Error GoTo 0
            If Timer - t > MAX_WAIT_SEC Then Exit Do
        Loop While translationText = vbNullString
        OutlookGetTransItem = translationText
    End With
End Function