如何从网页中提取文本？

我有一个填充专利号码的专栏表格。 我需要提取每个相应专利的标题，并将其放置在专利号旁边的单元格中。 所以，代码应该执行以下操作：

1. 访问espacenet.com并打开需要标题的专利号码。
2. 取得标题。
3. 将其放置在所需单元格的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 Sub 

Answer 1

将您的ie.Quit行移出For... Next循环并结束。 否则，其closuresIE后的一审。