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

大漠狂沙老祖

我特贪心把字海，谷歌，有道揉到一起做了一个全能的翻译。英语词组显示读音及汉语注释。遇到罕见字显示拼音和解释。遇到非汉语翻译成汉语，遇到汉语则译成英语。点中单元格就将翻译内容显示的状态栏上面。解决了所有小bug，如遇到转义字符显示不正常等。用uncode码做识别，能自动转换只需要一个命令，代码也不长，用的是split过滤，unicode转utf-8，使用是Public Declare Function MultiByteToWideChar ，这样全部代码就非常简洁，不超过40行代码就可以全搞定。这些都是网友们奉献的，我只是拼装一下。

大漠狂沙老祖

你已经站在诸国语言译成中文，中文译成英语的大门口了，小小改动一下就可以实现，加油

于箱长

大漠狂沙老祖 发表于 2021-1-8 17:21
我特贪心把字海，谷歌，有道揉到一起做了一个全能的翻译。英语词组显示读音及汉语注释。遇到罕见字显示拼音 ...

我昨天晚上还在学习这个代码，您的代码呢？

大漠狂沙老祖

weiyingde 发表于 2020-2-12 20:32
老师好，我想把它引入word 模板中，红字的地方作修改（不修改显然不能运行）
却出现乱码：
Public Func ...

API中是有函数：MultiByteToWideChar直接实现unicode转utf-8，就是那个一大堆%的东西，不用自已折腾.Hex2Bin(Left(Hex(AscW。一个字节用Abs(Asc(txt1)) < 128，四个，三个两个字节呢，诸国语言都是可以用谷歌翻译成中文的，删掉过多的限制语句，更简洁，谷歌可以自动识别的。

大漠狂沙老祖

YZC51 发表于 2020-2-13 10:28
或者用下面的函数替换

Function encodeURI(strText As String) As String

这个方式会猝死，举个例子
Aponapa ma'ta' ngagam basa Madura saos?
这个轩换时会显示  缺少 ')'

算了算了算是

大漠狂沙老祖 发表于 2021-1-9 20:17
这个方式会猝死，举个例子
Aponapa ma'ta' ngagam basa Madura saos?
这个轩换时会显示  缺少 ')'

我下载下来不能用啊

ExcelAPInet

这个接口已经有限制了，翻译不了多少。在Excel中可以使用谷歌批量翻译函数，GoogleTranslate(text, [from_lanaguage], [to_lanaguage])。参数text指待翻译的文字，from_language指翻译后的语言种类，默认翻译成英文en, to_language指待翻译文字的语言种类，默认是中文zh-CN。该函数每批次翻译需10-30秒，每批次可处理100个翻译请求或字符合计小于4000。当出现“后台正在处理”或为空时，请按照发送的请求数量多少，稍后一段时间再刷新公式获得翻译结果。

zyming

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

大佬！请教一下，为啥我下载的附件中，你预设的两个单元格翻译都是0啊

stillcome

ExcelAPInet 发表于 2021-1-25 20:04
这个接口已经有限制了，翻译不了多少。在Excel中可以使用谷歌批量翻译函数，GoogleTranslate(text, [from_l ...

没有这个函数啊！

ExcelAPInet

需要安装Excel网络函数库的