ExcelからVBAでWebページ上のボタンを操作してデータ(csv)をダウンロードできません

Question

前提・実現したいこと

ExcelからVBAで以下のサイトのWebデータ(csv)をダウンロードしようと思っています。
https://financials.morningstar.com/ratios/r.html?t=0P0000AEXV&culture=en&platform=sal
このページの右上の「Export」ボタンをクリックして財務データをダウンロードしたいと思っています。
よろしくお願いいたします。

発生している問題・エラーメッセージ

実行時エラー'91':オブジェクト変数またはWithブロック変数が設定されていません

となってダウンロードできません。

該当のソースコード

Sub モニスタダウンロード3()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate "https://financials.morningstar.com/ratios/r.html?t=0P0000AEXV&culture=en&platform=sal"
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    ie.Visible = True
    '操作するボタンのidを指定します
    Dim btnObj As HTMLInputElement
        Set btnObj = ie.document.getElementsByClassName("large_button")(0)
    'ボタンのクリックイベントを実行します
    btnObj.Click
End Sub

試したこと

IDやTagNameなどでも試してみましたがうまくいきません。

補足情報（FW/ツールのバージョンなど）

VBAの参照設定-VBAProject
Microsoft HTML Object Libraly
Microsoft Internet Controls

Answer 1

こちらで試してみましたが、どうも待ちのループを抜けた後に直ぐにボタン参照をしても取得できないようですね。
というわけでボタンが取得できるまで待つループを追加してみました。

Sub モニスタダウンロード3()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate "https://financials.morningstar.com/ratios/r.html?t=0P0000AEXV&culture=en&platform=sal"
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    ie.Visible = True
    '操作するボタンのidを指定します
    Dim btnObj As HTMLInputElement
    Do
        Set btnObj = ie.document.getElementsByClassName("large_button")(0)
        If Not btnObj Is Nothing Then Exit Do
        DoEvents
    Loop
    'ボタンのクリックイベントを実行します
    btnObj.Click
End Sub

Comments

[A.Sousei]

ttyp03さん、ありがとうございます❣❣❣
思った通りの結果を得られました。
素晴らしいです。
全く思いつかなかった観点でした。
ありがとうございます。