excel表格 将单元格的英语翻译成德语 vba代码

Sub Translate() Dim cell As Range Dim trans As String Dim objHTTP As Object Dim URL As String Dim langFrom As String Dim langTo As String

langFrom = "en"
langTo = "de"

For Each cell In Selection
    If Trim(cell.Value) <> "" Then
        URL = "https://translate.googleapis.com/translate_a/single?client=gtx&sl=" & langFrom & "&tl=" & langTo & "&dt=t&q=" & cell.Value
        Set objHTTP = CreateObject("MSXML2.XMLHTTP")
        objHTTP.Open "GET", URL, False
        objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
        objHTTP.send ("")
        trans = objHTTP.responseText
        trans = Mid(trans, 4, Len(trans))
        trans = Left(trans, InStr(trans, """") - 1)
        cell.Offset(0, 1).Value = trans
    End If
Next cell

End Su