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

justdoit2003

excel利用VBA从网络字典自动取得英语单词的音标和中文含义，经过几天忙碌，终于完成了。提供给大家批评指正。
源代码没有加密，可以随意阅读。
20150205 自动从网络下载英语单词音标和含义(发布版).zip (30.34 KB, 下载次数: 3613)

2015-2-11 18:28 上传

点击文件名下载附件

VBA万岁

Mark一下，有空看看。

dg831451

这个不错，收藏了。

VBA万岁

VBA万岁 发表于 2015-2-12 09:39
Mark一下，有空看看。

整理一下：
20150205 自动从网络下载英语单词音标和含义(发布版).zip (289.19 KB, 下载次数: 1180)

2015-2-13 21:06 上传

点击文件名下载附件

bailanhong

为什么我运行提示错误？

justdoit2003

谢谢评分和奖励

bmdsjxyw

既然可以由英到中，那可不可以由中到英呢？可以这样双向就完美了。

admin3354

牛叉了，学习一下。

浮华、缠绕指尖

借代码修改了一下，功能不少，代码精减了不少，具体如下：

1. Private Sub CommandButton1_Click()  'FromSuper
   
2.       t = Time
   
3.       Application.Goto Sheet1.Range("A1")
   
4.       If OptionButton1.Value = True Then Down 1
   
5.       If OptionButton2.Value = True Then Down 2
   
6.       If OptionButton3.Value = True Then Down 3
   
7.       If OptionButton4.Value = True Then Down 4
   
8.       MsgBox "单词网络撷取结束，共耗时: " & Format(Time - t, "h时mm分ss秒")
   
9. End Sub

复制代码

1. Option Explicit
   
2. Sub Down(p As Integer)
   
3. On Error Resume Next
   
4. Dim html As New HTMLDocument, i, url, w
   
5.       With CreateObject("Microsoft.XMLHTTP")
   
6.             For i = 2 To Sheet1.Range("A1").CurrentRegion.Rows.Count
   
7.                   w = Sheet1.Cells(i, 1).Value
   
8.                   url = IIf(p = 1, "http://dict.youdao.com/search?q=" & w & "&keyfrom=dict.index", IIf(p = 2, "http://dict.baidu.com/s?wd=" & w, IIf(p = 3, "http://cn.bing.com/dict/search?q=" & w & "&go=%E6%8F%90%E4%BA%A4&qs=bs&form=CM", "http://www.iciba.com/" & w)))
   
9.                   Debug.Print url
   
10.                   .Open "get", url, True
    
11.                   .send
    
12.                   While .readyState <> 4
    
13.                         DoEvents
    
14.                   Wend
    
15.                   html.body.innerHTML = .responseText
    
16.                   Select Case p
    
17.                         Case 1      '有道
    
18.                               Sheet1.Cells(i, 2) = html.getElementsByClassName("baav")(0).innerText
    
19.                               Sheet1.Cells(i, 3) = html.getElementsByClassName("trans-container")(0).innerText
    
20.                         Case 2      '百度
    
21.                               Sheet1.Cells(i, 2) = Replace(html.getElementById("pronounce").innerText, w, "")
    
22.                               Sheet1.Cells(i, 3) = Replace(html.getElementsByClassName("tab-content")(0).innerText, Chr(10) & "以下结果由 金山词霸 提供", "")
    
23.                         Case 3      '必应
    
24.                               Sheet1.Cells(i, 2) = html.getElementsByClassName("hd_p1_1")(0).innerText
    
25.                               Sheet1.Cells(i, 3) = html.getElementsByTagName("ul")(1).innerText
    
26.                         Case Else   '爱词霸
    
27.                               Sheet1.Cells(i, 2) = html.getElementsByClassName("prons")(0).innerText
    
28.                               Sheet1.Cells(i, 3) = html.getElementsByClassName("group_pos")(0).innerText
    
29.                   End Select
    
30.                   Sheet1.Cells(1, 6).Value = i - 1 & "/" & Sheet1.Range("A1").CurrentRegion.Rows.Count - 1
    
31.             Next
    
32.       End With
    
33. End Sub

复制代码

justdoit2003

高手，佩服！好好学习。