|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
这几天在学习VBA,看到ExcelHome代码宝中的有道翻译的代码,目前用得多的还是谷歌翻译。哪位大神能帮忙修一下吗?
谷歌翻译:https://translate.google.cn/
另外,有道翻译的代码中,目前只对英文翻译比较好,德文就不识别了
ExcelHome代码宝中的有道翻译的代码
Sub WebTranslation()
Dim objXMLHTTP As Object
Dim strURL As String
Dim strText As String
Dim rngSource As range
Dim avntSource As Variant
Dim i As Long
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
Set rngSource = range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
avntSource = rngSource.Value
strURL = "http://fanyi.youdao.com/translate"
With objXMLHTTP
For i = 1 To UBound(avntSource)
.Open "POST", strURL, False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "i=" & avntSource(i, 1) & "&from=AUTO&to=AUTO&doctype=json"
strText = .responseText
avntSource(i, 2) = Split(Split(strText, "tgt"":""")(1), """}")(0)
Next i
End With
rngSource.Value = avntSource
Set objXMLHTTP = Nothing
Set rngSource = Nothing
End Sub
|
|