ExcelのvbaでHTMLの要素数を出力するには

質問

webサイト内で、classが"line-name"である要素の数を取得したく、
以下のようなコードを書きましたが、

型が一致しませんとのエラーが出て、うまく走りません。
修正点を教えていただけますでしょうか。
宜しくお願い致します。

-----以下コード-----

Sub class数取得()

Dim obIE As Object
Dim el As Variant

Set obIE = CreateObject("InternetExplorer.Application")
obIE.Visible = True

obIE.navigate "https://www.navitime.co.jp/transfer/railroadlist/?node=00005564&sNa...大宮(埼玉県)"

While obIE.readyState <> 4 Or obIE.Busy = True
DoEvents
Wend

Set el = obIE.document.getElementsByClassName("line-name").Length

Cells(1, 6).Value = el

End Sub

回答No.1

SI299792 · ベストアンサー

Set el = obIE.document.getElementsByClassName("line-name").Length
のSet を外して下さい。
obIE.document.getElementsByClassName("line-name").Length
は数字(long)なので、set があると入りません。

Dim el As Longにしても大丈夫です。

お礼

なるほど！
無事解決いたしました。
ありがとうございます。