|
楼主 |
发表于 2016-1-18 21:32
|
显示全部楼层
爱词霸还是自己搞定了,呵呵
- Sub GetProTrans1()
- Dim html As New HTMLDocument, i, url, w
- With CreateObject("Microsoft.XMLHTTP")
- For i = 2 To Sheet1.Range("A1").CurrentRegion.Rows.Count
- w = Sheet1.Cells(i, 1).Value
- url = "http://www.iciba.com/" & w
- .Open "get", url, True
- .send
- While .readyState <> 4
- DoEvents
- Wend
- html.body.innerHTML = .responseText
- CopyToClipbox (.responseText)
- Sheet1.Cells(i, 2) = html.getElementsByClassName("base-speak")(0).innerText
- Sheet1.Cells(i, 3) = html.getElementsByClassName("base-list switch_part")(0).innerText
- Next
- End With
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|