分享EXCEL批量英译中谷歌翻译，无需安装插件即可实现

yhe1989

YZC51 发表于 2019-11-20 20:40
优化下
Public Function EnToCh(rng As String)
    Dim xml

显示编译错误，咋回事呢

lsdongjh

基本上所有的翻译，都提供免费的API，而且都支持 JSON 等多种方式输出，如果感兴趣，去相应的官网看一下，其实非常简单的

yhe1989

YZC51 发表于 2019-11-20 20:38
请参考

怎么没效果呢

keer08

不错，学习

gaoyuyu

Public Function EnToCh(rng As String)
    Dim xml
    Dim URL$, EngSentence$
    Set xml = CreateObject("MSXML2.XMLHTTP")
   'EngSentence = URLEncodePlus(rng.Text)
   'url = "https://translate.google.cn/m?hl=en&sl=enN&tl=zh-CN&ie=UTF-8&prev=_m&q=" & EngSentence
    Debug.Print Asc(rng)
    aasc = Asc(rng)
    If aasc > 64 And aasc < 123 Then
        URL = "https://translate.google.cn/m?hl=en&sl=enN&tl=zh-CN&ie=UTF-8&prev=_m&q=" & rng
    Else
        URL = "https://translate.google.cn/m?sl=zh-CN&tl=en&q=" & GetURL(rng)
    End If
    With xml
      .Open "GET", URL, False
      .send
      'Sheet1.Cells(2, 3) = .responseText
       If InStr(.responseText, "result-container") > 0 Then
            EnToCh = Split(Split(.responseText, "result-container"">")(1), "</div><")(0)
        End If
    End With
End Function
谷歌会经常屏蔽，这个只能对单个单元格进行处理，存在换行就比较麻烦

大鹏的清晨

哎哟喂先森 发表于 2019-11-20 23:05
牛逼牛逼。。我终于知道原因了

我下载下来的附件不行，可以帮我重新上传一个中英互译的文件吗

dongdonggege

YZC51 发表于 2019-11-20 20:38
请参考

学习下，谢谢。

游乐缘

感谢分享，留名学习

xionghang0

这个现在还能用吗，我修改了也还是显示0

gwjkkkkk

谢谢楼主分享。。。