グーグルで検索してURLをスクレイピングで取り出す

Question

グーグル検索のスクレイピングに関してご質問です。
下記画像の赤枠のURLを抜き出したいです。

現在下記のようなコードを書いているのですがうまく値を抜き出せません。
お忙しいところ恐縮ですがこちらに関してご教示いただけますと幸いです。

Sub listPost()
 
Dim objIE As InternetExplorer 'IEオブジェクトを準備
On Error Resume Next

For i = 1 To 2
    Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット
    k = 0 + i * 10

    'URLを取得
    objIE.Visible = True 'IEを表示
    objIE.navigate "https://www.google.co.jp/search?q=site%3Bhttps%3A%2F%2Fshachomeikan.jp&oq=site%3Bhttps%3A%2F%2Fshachomeikan.jp&aqs=chrome..69i57j5.4784j0j7&sourceid=chrome&ie=UTF-8#q=site:https://shachomeikan.jp/corporations/&start=" & k 'IEでURLを開く"
    
    Do While objIE.Busy = True Or objIE.readyState <> READYSTATE_COMPLETE '読み込み待ち

        DoEvents

    Loop

    Dim htmlDocURL As HTMLDocument 'HTMLドキュメントオブジェクトを準備
    Set htmlDocURL = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット

    Dim elList As Object
    Set elList = htmlDocURL.getElementsById("ires") 'class="buttonArea"のdiv要素を掴む


    'ここから
    

    Dim el As IHTMLElement
    For Each el In elList
        For t = 0 To 2
            Worksheets("Sheet1").Range("A" & exlrow + 1).Value = el.getElementsByClassName("_NId")(0).getElementsByClassName("srg")(0).getElementsByClassName("g")(t).getElementsByClassName("rc")(0).getElementsByClassName("s")(0).getElementsByClassName("f kv _SWb")(0).innerText
           
        Next t
    Next el

    'ここまで

    objIE.Visible = False
    objIE.Quit
Next i

End Sub

Answer 1

Set elList = htmlDocURL.getElementsById("ires") 'class="buttonArea"のdiv要素を掴む

まず、この部分、コードとコメントが矛盾しています。
どちらが正しいのですか。

コードが正しいとすると、getElementsById は一つの要素しか返しません。htmlでは id は重複できないという仕様ですので。
ですので、

    Dim el As IHTMLElement
    For Each el In elList

    '中略

    Next el

というようにFor Each でループ処理はできません。
単純に下記のようにしてください。

Dim el As IHTMLElement
Set el = htmlDocURL.getElementsById("ires") 'class="buttonArea"のdiv要素を掴む

For t = 0 To 2
    '中略
Next t

getElementsById についての詳細は下記を参照してください。

id属性要素を取得するGetElementById | IE操作の自動化
http://www.vba-ie.net/element/getelementbyid.html#a12

実際のURLでは確認してませんので、コードだけを見てのアドバイスです。

Comments

[memomemo]

ありがとうございます！
idの取得などいまいちわからず大変参考になりました。

あとはinnerTextで取得する部分がうまくいってないので色々試してみます！