vba - 粘贴从网页中抓取的 URL

Question

因此，我希望将网页中的一堆 URL 作为列表转储到 excel 中。我之前将项目转储到列表框中，但我发现列表框很难使用！

将 URL 收集到 excel 的列中后，我希望 excel 单击每个链接并找到页面上的电子邮件地址。这是我目前拥有的编码...

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

url_name = Sheet1.Range("A2")
If url_name = "" Then Exit Sub

IE.Navigate (url_name)

Do
DoEvents
Loop Until IE.ReadyState = 4

Set AllHyperLinks = IE.Document.GetElementsByTagName("A")

For Each hyper_link In AllHyperLinks

Range("x":"F").Value = hyper_link

这就是我到目前为止所拥有的一切！我不确定如何完成循环！我希望代码将它在页面上找到的每个新 URL 粘贴到 F 列的下一个空行中。

Answer 1

您可以通过这种方式完成循环：

Dim IE As Object, LR As Long, i As Long
LR = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
For i = 2 To LR
url_name = Sheet1.Range("A" & i).Value
If url_name = "" Then Exit Sub

IE.Navigate (url_name)

Do
DoEvents
Loop Until IE.ReadyState = 4

Set AllHyperLinks = IE.Document.GetElementsByTagName("A")

For Each hyper_link In AllHyperLinks

Range("x":"F").Value = hyper_link

Next hyper_link
Next i

请注意，如果您有大量数据，这将花费 LOOOONGGGG 时间。