打开excel
    方法一：台式电脑按快捷键Alt+F11,笔记本用FN+Alt+F11
    方法二：单击视图->宏

    1. Public Function GglTranslate(strInput As String, FrmLng As String, ToLng As String) As String
    3.     Dim strURL As String
    4.     Dim objHTTP As Object
    5.     Dim objHTML As Object
    6.     Dim objDivs As Object, objDiv As Object
    7.     Dim strTranslated As String
    9.     ' send query to web page
    10.     'strURL = "https://translate.google.cn/m?hl=" & FrmLng & _
    12.     strURL = "https://translate.google.cn/m?hl=zh-CN" & _
    13.         "&sl=" & FrmLng & _
    14.         "&tl=" & ToLng & _
    15.         "&ie=UTF-8&prev=_m&q=" & strInput
    17.     Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding
    18.     objHTTP.Open "GET", strURL, False
    19.     objHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/90.0.4430.212 Safari/537.36"
    20.     objHTTP.send ""
    21.     ' create an html document
    22.     Set objHTML = CreateObject("htmlfile")
    23.     With objHTML
    24.         .Open
    25.         .Write objHTTP.responseText
    26.         .Close
    27.     End With
    29.     Set objDivs = objHTML.getElementsByTagName("div")
    31.     For Each objDiv In objDivs
    33.         If objDiv.className = "result-container" Then
    34.             strTranslated = objDiv.innerText
    35.             If strTranslated <> "" Then GglTranslate = strTranslated
    37.         End If
    39.     Next objDiv
    43.     Set objHTML = Nothing
    44.     Set objHTTP = Nothing
    46. End Function