如何从网页中提取文本？
如何从网页中提取文本？
提问于 2014-06-04 06:50:27
我有一张excel表格，里面列满了专利号。我需要提取每个相应专利的标题，并将其放在专利号旁边的单元格中。因此，代码应该执行以下操作：
- 访问espacenet.com并打开所需的专利号码。
- 把标题拿来。
- 将其放在所需单元格的excel工作表中。
这是为第一个专利号完美工作的代码，但在第一个专利号之后立即给出一个错误。错误上写着：“运行时错误'-2147417848 (80010108)'：
被调用对象与其客户端断开连接的自动化错误。“
守则：
Sub tryextraction()
Dim ie As New InternetExplorer
Dim num1 As Integer
Dim num0 As Integer
Dim sdd As String
Dim doc As HTMLDocument
num1 = ActiveSheet.UsedRange.Rows.Count
'ie.Visible = True
For num0 = 2 To num1
ie.navigate "http://worldwide.espacenet.com/searchResults?compact=false&PN=" & Range("A" & num0).Value & "&ST=advanced&locale=en_EP&DB=EPODOC"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
sdd = Trim(doc.getElementsByTagName("a")(88).innerText)
ie.Quit
Range("B" & num0).Value = sdd
Next num0
End SubStack Overflow用户
回答已采纳
发布于 2014-06-04 08:38:08
将您的ie.Quit行从For... Next循环中移到最后。否则，其关闭IE后的第一个实例。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/24030844
复制相关文章
相似问题
腾讯云开发者
