如何从网页中提取文本？

Question

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

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

移动即。退出For…Next循环中的行并结束。否则，它在第一个实例之后关闭IE。