Как я могу захватить URL-адреса, содержащиеся на веб-страницах?

Question

Я пытаюсь получить URL-адреса из внешней веб-страницы с помощью макроса. Вот мой текущий код:

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/, то сказать ему, чтобы захватить гиперссылку соответствующий тексту, и вставьте гиперссылку в ячейку в электронной таблице. Так, например, найдите «Продажи», затем вставьте URL-адрес, соответствующий «Продажи» в конкретной ячейке.

Answer 1

Невозможно выбрать элемент на основе его innerText, поэтому вам нужно будет перебирать список узлов привязки/ссылок и проверять каждый, чтобы узнать, является ли он тем, который вы ищете.

Например:

Dim objLink 

For Each objLink in IE.document.getElementsByTagName("a") 
    If StrComp(objLink.innerText, "sales", vbTextCompare) = 0 Then 

     ' Found the link matching our text. Display its URL... 
     Debug.Print objLink.href 
     Exit For 

    End If 
Next