excel调用谷歌翻译-ENTOCH

gooyeah

1. Public Function EnToCh(rng As String)
   
2.     Dim xml
   
3.     Dim url$, EngSentence$
   
4.     Set xml = CreateObject("MSXML2.XMLHTTP")
   
5.    'EngSentence = URLEncodePlus(rng.Text)
   
6.    'url = "https://translate.google.cn/m?hl=en&sl=enN&tl=zh-CN&ie=UTF-8&prev=_m&q=" & EngSentence
   
7.     url = "https://translate.google.cn/m?hl=en&sl=enN&tl=zh-CN&ie=UTF-8&prev=_m&q=" & rng
   
8.     With xml
   
9.       .Open "GET", url, False
   
10.       .send
    
11.        If InStr(.responseText, "<div dir=""ltr"" class=""t0"">") > 0 Then
    
12.             EnToCh = Split(Split(.responseText, "<div dir=""ltr"" class=""t0"">")(1), "</div><")(0)
    
13.         End If
    
14.     End With
    
15. End Function

点击复制（BT类链接可使用115网盘或迅雷网盘离线下载）