如何从网页中提取文本？

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

将ie.Quit 行移出For... Next 循环并移到末尾。否则在第一个实例后关闭 IE。