excel - Web ページからリンク/URL を取得する - Excel VBA

Question

Web ページで検索結果のリンクを取得するマクロを作成したいと考えています。私はこのように書いています

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

上記のコードは Web ページからすべてのリンクを取得しますが、必要なのは検索結果のリンクだけです。1 つの画像をアップロードしました。それが私の Web ページである場合、すべてのリンクではなく、検索結果のリンクのみを取得する必要があります。これを修正するのを手伝ってください