如何获取网页中包含的网址？

Question

我尝试使用宏从外部网页中获取网址。这是我目前的代码：

Sub GoToWebSite()

Dim IE As Object

Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.Application")

With IE

    .Navigate "www.website.com/careers/"

    .Visible = True
End With

Application.ScreenUpdating = True 
Set IE = Nothing

End Sub

从这里开始，我想为宏提供一个特定的URL，告诉它在www.website.com/careers/中搜索特定文本，然后告诉它抓取与文本对应的超链接，并粘贴超链接在电子表格的单元格中。例如，搜索＆＃34;销售＆＃34;然后粘贴对应于＆＃34; Sales＆＃34;的URL在特定的细胞中。