[IT] excel调用谷歌翻译-ENTOCH

167 主题	205 帖子	5万积分

Rank: 9 Rank: 9 Rank: 9

发表于 2020-7-9 17:17:19 | 显示全部楼层 |阅读模式

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
url = "https://translate.google.cn/m?hl=en&sl=enN&tl=zh-CN&ie=UTF-8&prev=_m&q=" & rng
With xml
.Open "GET", url, False
.send
If InStr(.responseText, "<div dir=""ltr"" class=""t0"">") > 0 Then
EnToCh = Split(Split(.responseText, "<div dir=""ltr"" class=""t0"">")(1), "</div><")(0)
End If
End With
End Function

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

相关纪录片推荐

GMT+8, 2024-11-22 13:56 , Processed in 0.100276 second(s), 26 queries , Gzip On.

免责说明：本站所有纪录片视频、图文介绍等均来自于互联网网友分享，纪录片部落仅支持web页面展示和文字介绍，绝不提供在线观看和存储服务，也不参与录制、上传、压片。若本站收录内容无意侵犯贵司版权，请发邮件【a885185#163.com】联系本站，我们将在第一时间回复邮件、同时删除侵权内容。谢谢！

		自动登录	找回密码
密码			立即注册