vba查找网页中的超链接

需要添加对Microsoft Internet Controls的引用：

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = True

ie.Navigate "https://example.com"

Do While ie.Busy Or ie.ReadyState < 4: DoEvents Loop

Dim links As Object

Set links = ie.Document.GetElementsByTagName("a")

For Each link In links

If link.getAttribute("href") <> "" Then

Debug.Print link.innerText & " - " & link.getAttribute("href")

End If

Next

ie.Quit

Word文档中的超链接：

Dim hlink As Hyperlink

For Each hlink In ActiveDocument.Hyperlinks

Debug.Print hlink.TextToDisplay & " - " & hlink.Address

Next

Excel单元格中的超链接：

Dim cell As Range

For Each cell In Range("A1:A100")

If cell.Hyperlinks.Count > 0 Then

Debug.Print cell.Text & " - " & cell.Hyperlinks(1).Address

End If

Next

需配合Selenium的VBA接口（需安装WebDriver）：

Dim driver As New WebDriver

driver.Start "https://example.com"

Dim elements As WebDriverElementCollection

Set elements = driver.FindElementByTagName("a")

For Each element In elements

Debug.Print element.Text & " - " & element.GetAttribute("href")

Next