求大神 如何在EXCEL内置谷歌翻译

YZC51

请参考
Public Function EnToCh(rng As String)
    Dim xml
    Dim URL$, EngSentence$
    Set xml = CreateObject("MSXML2.XMLHTTP")
    aasc = Asc(rng)
    If aasc > 64 And aasc < 123 Then
        URL = "enN&tl=zh-CN&ie=UTF-8&prev=_m&q=" & rng
    Else
        URL = "zh-CN&tl=enN&ie=UTF-8&prev=_m&q=" & GetURL(rng)
    End If
    URL = "https://translate.google.cn/m?hl=en&sl=" & URL
    With xml
        .Open "GET", URL, False
        .send
        V = .responseText
        If InStr(V, "t0"">") > 0 Then
            EnToCh = Split(Split(V, "t0"">")(1), "<")(0)
        End If
    End With
End Function

YZC51

Function GetURL$(txt$)
'Dim a() As Byte
'a = StrConv(txt, vbFromUnicode, &H804)
    For i = 1 To Len(txt)
        txt1 = Mid(txt, i, 1)
        If Abs(Asc(txt1)) < 128 Then
            GetURL = GetURL & txt1
        Else
            GetURL1 = Application.Hex2Bin(Left(Hex(AscW(txt1)), 2), 8)
            GetURL1 = GetURL1 & Application.Hex2Bin(Right(Hex(AscW(txt1)), 2), 8)
            GetURL1 = Application.Replace(Application.Replace(GetURL1, 11, , 10), 5, , 10)
            GetURL2 = "%E" & Application.Bin2Hex(Left(GetURL1, 4))
            GetURL2 = GetURL2 & "%" & Application.Bin2Hex(Mid$(GetURL1, 5, 8))
            GetURL2 = GetURL2 & "%" & Application.Bin2Hex(Mid$(GetURL1, 13, 8))
            GetURL = GetURL & GetURL2
        End If
    Next
End Function

ahxiAdong

ExcelAPInet 发表于 2020-1-2 12:59
这里不可以留网址，可以百度Excel批量翻译或Excel网络函数库，很容易找到

谢谢！已经看到大神的作品。祝一切顺利。

好好学表格@

www.excelapi.com在这个网站下载一个插件就可以使用大部分简单的公式了