Vba 粘贴从网页中刮取的URL

所以我想把网页上的一堆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列的下一个空行中。

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

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

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