如何从网页中提取文字？

Question

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

1. 访问espacenet.com并打开需要标题的专利号。
2. 获取标题。
3. 将其放入所需单元格中的Excel工作表中。

这里的代码完全适用于第一个专利号，但在此之后立即出错。错误说： ＆＃34; 运行时错误＆＃39; -2147417848（80010108）＆＃39;：

自动化错误 调用的对象已与其客户端断开连接。 ＆＃34;

代码：

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循环并移至末尾。否则它在第一个实例后关闭IE。