百度翻译API完整调用代码，亲测好用！

爱情orz面包

运行显示子过程或函数未定义，求问这个怎么处理呀

ExcelAPInet

现在百度翻译API接口已经集成到Excel网络函数库，安装函数库后，写翻译公式BaiduFanyi("Text","en","zh")就可以调用百度翻译API。

fcan

这个问题一直卡着

wzj8455002

用了一次没问题，第二次用就出乱码了不能翻译了是什么问题呀，我的是2016版本的excel

qlmgu

请问老师，文本训练的API也可以调用吗，谢谢您

Carlwantsmore

下载代码用了一下，非常好用，想研究下却发现超出了自己的极限

yang1992820

ivccav 发表于 2018-1-3 22:44
我也不懂这个API，百度翻译api需要字符编码转换（utf-8），需要md5加密算法，这些对vba来说，都是没有的 ...

VBA有，这是32位的MD5加密 ，调用如下的库进行加密

1. Function MD5Hash(Text As String) As String 'MD5 32位加密
   
2.     Dim md5 As Object
   
3.     Set md5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
   
4.    
   
5.     Dim byteArray() As Byte
   
6.     Dim hashArray() As Byte
   
7.     Dim i As Integer
   
8.     byteArray = StrConv(Text, vbFromUnicode)
   
9.     hashArray = md5.ComputeHash_2((byteArray))
   
10.    
    
11.     Dim result As String
    
12.     result = ""
    
13.     For i = LBound(hashArray) To UBound(hashArray)
    
14.         result = result & Right("0" & Hex(hashArray(i)), 2)
    
15.     Next i
    
16.     MD5Hash = result
    
17. End Function

复制代码

晴儿666

  Set js = CreateObject("ScriptControl"): js.Language = "JScript"
  运行时错误，没有注册类，怎么解决啊，电脑小白求指点。
上面那个代码显示黄色
谢谢

逍遥爱迪生

过去5年了，不知道还能不能用啊。

cxmtao

大神，拜读您的VBA调用百度翻译API的大作，非常详细有用，但是我没办法运行，提示没有注册的类，请教这个怎么解决，谢谢。卡在这个位置
   Set js = CreateObject("ScriptControl"): js.Language = "JScript"