Я хочу написать макрос, который будет принимать ссылки на результаты поиска на веб-странице. Я написал так

Sub webpage()

Dim internet As InternetExplorer

Dim internetdata As HTMLDocument

Dim internetlink As Object

Dim internetinnerlink As Object

Set internet = CreateObject("InternetExplorer.Application")

internet.Visible = True

internet.Navigate ("URL")

Do While internet.Busy

  DoEvents

Loop

Do Until internet.ReadyState = READYSTATE_COMPLETE

  DoEvents

Loop

Set internetdata = internet.Document

Set internetlink = internetdata.getElementsByTagName("a")

i = 1

For Each internetinnerlink In internetlink

ActiveSheet.Cells(i, 2) = internetinnerlink.href

i = i + 1

Next internetinnerlink

End Sub

Выше код берет все ссылки с веб-страницы, но мне нужны только ссылки на результаты поиска. Я загрузил одно изображение, если это моя веб-страница, мне нужно взять только ссылки на результаты поиска, а не все ссылки. пожалуйста, помогите мне исправить это