excel利用VBA从网络字典自动取得英语单词的音标和中文含义

justdoit2003

根据大家的意见，抽空更新了一些内容。但是还是有的词典无法读取，需要进一步改进。
快过年了，祝大家新年快乐。

YZC51

学习老师的代码。谢谢老师！
Public Function bdfy(tmpWord, y)
    Dim s() As String
    Dim str_tmp As String, URL
    Dim str_base As String
    If Len(tmpWord) = 0 Then Exit Function
    '开启网页https://fanyi.baidu.com/?#en/zh/aged
    With CreateObject("MSXML2.XMLHTTP")
        URL = "https://www.baidu.com/s?wd=" & tmpWord & "&ie=UTF-8"
        On Error Resume Next
        .Open "GET", URL, False
        .send (Null)
        While .readyState <> 4
            DoEvents
        Wend
        str_base = .responseText
        .Close
    End With
    strtxt = Split(Split(str_base, "</em>_百度翻译</a>")(1), "<div class=""op_dict3_extra"">")(0)
    strtxt = Split(strtxt, "</table>")
    str1 = Replace(Replace(DelHtml(strtxt(0)), " ", ""), Chr(10), "")
    tmpPhonetic = Replace(Mid(str1, Len(tmpWord) + 1, 99), "美[", Chr(10) & "美[")
    For i = LBound(strtxt) + 1 To UBound(strtxt) - 1
        tt2 = Replace(DelHtml(strtxt(i)), " ", "")
        tt2 = Replace(tt2, Chr(10), "")
        hytmp = hytmp & vbCrLf & tt2
    Next i
    bdfy = Choose(y, Mid(hytmp, 2), tmpPhonetic)
End Function

YZC51

代码审核中，看图片

YZC51

请参考
20200130 自动从网络下载英语单词音标和含义(发布版).rar (78.79 KB, 下载次数: 513)

2020-1-30 11:20 上传

点击文件名下载附件

YZC51

请参考
Public Function EnToCh(rng As String)
    Dim xml
    Dim URL$, EngSentence$
    Set xml = CreateObject("MSXML2.XMLHTTP")
    aasc = Asc(rng)
    If aasc > 64 And aasc < 123 Then
        URL = "enN&tl=zh-CN&ie=UTF-8&prev=_m&q=" & rng
    Else
        URL = "zh-CN&tl=enN&ie=UTF-8&prev=_m&q=" & GetURL(rng)
    End If
    URL = "https://translate.google.cn/m?hl=en&sl=" & URL
    Debug.Print URL
    With xml
        .Open "GET", URL, False
        .send
        V = .responseText
        If InStr(V, "t0"">") > 0 Then
            EnToCh = Split(Split(V, "t0"">")(1), "<")(0)
        End If
    End With
End Function

justdoit2003

YZC51 发表于 2020-1-30 11:21
请参考

十分谢谢!等有空再试一试。

weiyingde

YZC51 发表于 2020-1-30 11:21
请参考

真是好东西，多亏老师深入的钻研，赞一个！！

YZC51

weiyingde 发表于 2020-2-13 12:42
真是好东西，多亏老师深入的钻研，赞一个！！

老师好！不客气。

weiyingde

YZC51 发表于 2020-2-13 12:50
老师好！不客气。

顺便问一声，这些函数或过程都是依赖网络的，我记得原来有一个借助电脑上安装的词霸之类的软件，实现英汉互译的实例，但现在不记得了，请问老师有否这方面的研究，若能给个实例学学，就太好了。翻了一下：https://blog.csdn.net/Lone1yCode/article/details/79540647
淡看不懂，不知是否依赖网络。

weiyingde

YZC51 发表于 2020-1-30 11:21
请参考

2、searchWordFromBaidu
    strtxt = Split(Split(str_base, "</em>_百度翻译</a>")(1), "<div class=""op_dict3_extra"">")(0)
弹出运行时错误'9',下标越界。
不知何故，请指教。