VBAで店舗の電話番号を抽出する方法が知りたいです

Question

VBA初心者です。まだ勉強を始めたばかりなのですが、
例なのですが、TUTAYAのとある店舗のページの電話番号を抽出する方法が知りたいです。

今出来る事は、IEを自動的に表示させる事だけです。

Sub OpenURL()
    Dim ie As InternetExplorer
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "https://store-tsutaya.tsite.jp/storelocator/detail/2033.html"
End Sub

この後、該当する店舗のページを開いたら、
電話番号だけをエクセルに書き出したいのですが、どのように記述したら動きますでしょうか？

アドバイス頂けると助かります。よろしくお願いいたします。

Answer 1

ページが表示されるまで待機してからHTMLDocumentを参照し、欲しい情報を抽出すればいいです。
抽出する方法は検索対象のページのソースとにらめっこしながら考えてください。
コードを一部追記

Sub OpenURL()
    Dim ie As InternetExplorer
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "https://store-tsutaya.tsite.jp/storelocator/detail/2033.html"

    Do While ie.Busy = True Or ie.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop

    'Dim doc As HTMLDocument
    'Set doc = ie.document    'ここにページのデータが入ってる

    'Debug.Print doc.getElementsByTagName("dd")(21).textContent  '検索例

    Debug.Print ie.document.getElementsByTagName("dd")(21).textContent  '検索例
End Sub

Comments

[hinako.20180906]

>neconekocat様
申し訳ございませんが、私自身凄く素人な為、教えて頂いたソースコードではエラーが出て理解出来ませんでした。他にご回答頂けないようなので、ベストアンサーとさせて頂きますが、
残念ながら、参考になりませんでした。折角回答頂いたのですが、初心者にもう少し理解出来る形で、
アドバイス頂けたら助かります。折角のコメントに水を差す様で申し訳ございません。

[neconekocat]

どのようなエラーかわからないため、正しいかわかりませんがコードを修正しました。
回答にも書きましたが、「ページが表示されるまで待機する」という処理を記載しています。

また、参照設定が不足していてHTMLDocumentを扱えない可能性もあるので、直接参照するように変更しました。