【エクセルVBAでIE操作】ページ内のリンク先URLが取得できません。

Question

VBAでIE（検索エンジンはGoogle）で
「（検索エンジンの）検索結果タイトルとそのURLを取得する」
というマクロを組み、タイトルは回収できたのですがURLについては

[object HTMLSpanElement]

と表示され取得ができていない状況です。

参照：イミディエイトウィンドウ

[object HTMLSpanElement]飲食店情報の掲載で広告・集客効率アップ！食べログ店舗会員 ...
[object HTMLSpanElement]飲食店情報の掲載で広告・集客効率アップ！食べログ店舗会員 ...
[object HTMLSpanElement]集客効果だけじゃない！飲食店がグルメサイトから脱却する ...
[object HTMLSpanElement]【完全版】食べログとは？導入のメリット登録方法・集客方法 ...
[object HTMLSpanElement]食べログを導入するメリット・デメリットとは？ - 集客作戦 ...
[object HTMLSpanElement]あなたの店はまだやってない？集客アップのための食べログ ...
[object HTMLSpanElement]食べログ 掲載（プラン、掲載料金）のご案内｜ ヒトサラ
[object HTMLSpanElement]飲食店集客｜利用者の多い人気グルメサイト大手4社を徹底 ...
[object HTMLSpanElement]食べログでの集客サービス（有料プラン）の登録なら｜総合 ...
[object HTMLSpanElement]食べログは集客効果なし？集客効果をアップさせるには ...

コードは以下の通り記載しております。

Sub goo_srch_scrap_url()
    ie.Visible = True
    ie.navigate "google.com"
    Call waitie(ie)
  
Dim doc As HTMLDocument: Set doc = ie.document
Dim keyword As String: keyword = "食べログ　集客"
doc.getElementById("q").Value = keyword
doc.forms(0).submit
Application.Wait [Now()] + TimeValue("00:00:02")

Dim el As HTMLHeadElement
Dim anchor As HTMLAnchorElement
For Each el In doc.getElementById("rso").getElementsByTagName("h3")
        Set anchor = el.Children(0)
        Debug.Print anchor.href, anchor.innerText
    Next el
    
    Call waitie(ie)
    
End Sub

どのように修正すればURLが取得できますでしょうか。

お分かりの方、ご回答いただけますと幸いです。
宜しくお願いいたします。

Answer 1

parentElement を使えば取得できます。

Debug.Print anchor.parentElement.parentElement.href & vbTab & anchor.innerText
'Debug.Print anchor.href, anchor.innerText

Comments

[Sugisan]

ご丁寧かつ簡潔にご説明頂きありがとうございました！
ご案内頂いた通りコードを書きましたら解決できました！