VBA调用百度翻译API

工具的下载和部署方法，与下帖相同。

https://www.cnblogs.com/ryueifu-VBA/p/14013069.html

本帖介绍Translate函数，该函数包括q、from、to这三个参数，分别表示翻译之前的文本、源文本语言、目标语言。

所有支持的语言标识符，请参考 http://api.fanyi.baidu.com/product/111

直接上代码了。下面的程序把中文翻译为英文，再把英文翻译成日文。

Sub Fanyi()
    Dim B As New API.Baidu
    Dim en As String, jp As String
    en = B.Translate(q:="我今天肚子疼，不想上班。", from:="zh", to:="en")
    Debug.Print en
    jp = B.Translate(q:=en, from:="en", to:="jp")
    Debug.Print jp
End Sub

立即窗口结果为：