VBAでのIE操作 getElementsByClassNameでのエラー（オブジェクト変数または With ブロック変数が設定されていません。）

Question

VBAでIEを操作し、nexco西日本のサイト（https://search.w-nexco.co.jp/route.php）から
高速料金を取得するexcelファイルを作成しようとしています。

class属性のテキストをgetElementsByClassName(0).innertextで取得しようと試みているのですがうまくいきません。
以下のコードを実行すると「オブジェクト変数またはWithブロック変数が設定されていません。」という、
エラーが表示されてしまいます。ただ、デバックから継続すると、必要な情報を表示することができますが。
初めにエラーが表示される原因がわかりません。原因がわかる方がいればご指摘をお願いします。

↓浜松西や豊田JCTなどの情報を取得したい。

Dim IE As Object, Obj As Object
'IE起動
Set IE = CreateObject("InternetExplorer.Application")
  
'IEの操作設定
IE.Visible = True

'サイトを開く
IE.Navigate "https://search.w-nexco.co.jp/route.php"

'IE読込待ち
Do While IE.Busy Or IE.ReadyState < 4
    DoEvents
Loop

'出発地
IE.document.getElementsByClassName("iptTxt grid175 clearfix")(0).Value = "浜松西"
IE.document.getElementsByClassName("iptTxt grid175 arrive clearfix")(0).Value = "名古屋西"

'検索
For Each Button In IE.document.getElementsByClassName("submit-btn")
    If Button.Value = "検索する" Then
    Button.Click
    Exit For
    End If
Next

Do While IE.Busy Or IE.ReadyState < 4
    DoEvents
Loop

MsgBox IE.document.getElementsByClassName("point")(0).innerText

End Sub

Answer 1

豊田ＪＣＴ等の情報は、JSで出力しているようです。
ただし、IE読込完了（IE.Busy Or IE.ReadyState < 4）の条件が成立した直後であっても、JSの処理が終わっていないのでしょう。
もう少し待つとIE.document.getElementsByClassName("point")のタグが識別できるようになります。

Answer 2

Dim IE As Object, Obj As Object
'IE起動
Set IE = CreateObject("InternetExplorer.Application")

'IEの操作設定
IE.Visible = True

'サイトを開く
IE.navigate "https://search.w-nexco.co.jp/route.php"

'IE読込待ち
Do While IE.Busy Or IE.readyState < 4
    DoEvents
Loop

'出発地
IE.document.getElementsByClassName("iptTxt grid175 clearfix")(0).Value = "浜松西"
IE.document.getElementsByClassName("iptTxt grid175 arrive clearfix")(0).Value = "名古屋西"

'検索
For Each Button In IE.document.getElementsByClassName("submit-btn")
    If Button.Value = "検索する" Then
    Button.Click
    Exit For
    End If
Next

Do While IE.Busy Or IE.readyState < 4
    DoEvents
    Application.Wait Now + TimeValue("0:00:05")
Loop

MsgBox IE.document.getElementsByClassName("point")(0).innerText

'IE読込待ち
Do While IE.Busy Or IE.readyState < 4
DoEvents
Loop
を 抜けても
描画が終了していないからでは
Javascript(?)

Answer 3

確か、document→Documentにするとうまくいくはずです。
ちょっとWSHとDOMで変わるんじゃなかったかな

Comments

[tanaka_ganbare]

自動的に小文字に変換されてしまいます。
大文字にする方法あるんですか？

[impepc]

そうなんですね。
VBSのつもりで言っていました。すみません。

これを見るとvalueが小文字ですねぇ。
https://www.vba-ie.net/sp/form/text.php
一度、
Set a = IE.document.getElementsByClassName("iptTxt grid175 clearfix")(0)
a.value = "浜松町"

としてみては？