在ExcelHome代码宝中的，有道翻译的代码，能修改为谷歌翻译吗？

allon_xu

这几天在学习VBA，看到ExcelHome代码宝中的有道翻译的代码，目前用得多的还是谷歌翻译。哪位大神能帮忙修一下吗？
谷歌翻译：https://translate.google.cn/

另外，有道翻译的代码中，目前只对英文翻译比较好，德文就不识别了

ExcelHome代码宝中的有道翻译的代码
Sub WebTranslation()
    Dim objXMLHTTP As Object
    Dim strURL As String
    Dim strText As String
    Dim rngSource As range
    Dim avntSource As Variant
    Dim i As Long
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    Set rngSource = range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
    avntSource = rngSource.Value
    strURL = "http://fanyi.youdao.com/translate"
    With objXMLHTTP
        For i = 1 To UBound(avntSource)
            .Open "POST", strURL, False
            .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
            .send "i=" & avntSource(i, 1) & "&from=AUTO&to=AUTO&doctype=json"
            strText = .responseText
            avntSource(i, 2) = Split(Split(strText, "tgt"":""")(1), """}")(0)
        Next i
    End With
    rngSource.Value = avntSource
    Set objXMLHTTP = Nothing
    Set rngSource = Nothing
End Sub

zpy2

http://e.anyoupin.cn/eh3/?bingtranslate~Guten Morgen!
=webservice("http://e.anyoupin.cn/eh3/?bingtranslate~Guten Morgen!")
http://e.anyoupin.cn/eh3/?bingtranslate~Guten Morgen!
=webservice("http://e.anyoupin.cn/eh3/?bingtranslate~" & a1)
德语试试这个函数吧

allon_xu

zpy2 发表于 2022-3-18 08:44
http://e.anyoupin.cn/eh3/?bingtranslate~Guten Morgen!
=webservice("http://e.anyoupin.cn/eh3/?bingtr ...

收到，谢谢很有用