从网页上刮掉的粘贴网址

Question

所以我正在寻找将一堆网址从网页转储到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 

这是我迄今为止所有的！我不知道如何完成循环！我想要的代码粘贴它找到页面上的下一个空行中列F.

每一个新的URL

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时间。