Excel VBA 自动翻译机器人

带上它，不会英语也不怕(多语言翻译)

作者：江苏大侠-Office中国

虽然现在在线翻译工具很多，网上一抓一大把，但免不了要把翻译的内容复制出来，再打开翻译网址，再粘贴过去，但如果你在贸易公司，而且英语水平还不给力，碰巧老板要你下班前翻译一大段的内容，还要把中英文放进Excel里发给他，你肯定把老板在心里骂了几十遍，但有了这个自动多语言翻译函数，保证你立马可以下班，准时陪女朋友晚上去烛光晚餐：

有些专业术语翻译稍有不对的，再手工稍修改一下，就可向老板交差了，不过，别太早交作业哦

老板以为你能力超强，下次任务就Double了。

Excel翻译函数的详细VBA代码如下：

主要是利用微软的翻译接口，提交相关的来源语言ID与目标语言ID，及要翻译的文本就可以了。

虽然调用简单，但却很实用哦。让你在职场能够让妹纸对你刮目相看哦。

Public Function fanyi(nr)

    On Error Resume Next

    DoEvents

    languageFrom = "": sText = nr: languageTo = dyy(UserForm1.ComboBox1.Text)

    ID = "708BEDCB01828123DC7B6C6A6AB12EF82DFBB611"

    sURL = "http://api.microsofttranslator.com/V2/Ajax.svc/Translate?oncomplete=&appId="  & ID + "&from=" & languageFrom + "&to=" & languageTo & "&text=" & sText

    Set oH = CreateObject("WinHttp.WinHttpRequest.5.1")

    oH.Open "get", sURL, False

    oH.Send

    fanyi = Replace(Mid(oH.ResponseText, 3, Len(oH.ResponseText) - 3), """", """")

    If fanyi = "" Then fanyi = nr

End Function