Internet Explorer自動操作

VBAでIE操作「Webページの要素数を数える」【ExcelVBA】

VBAでIE自動操作する際、要素数を数えたい場合があります。
ページの要素が可変だった場合に、処理を分岐させたい場合などに使います。

Webページの指定要素数を数えるサンプルコード

Public Sub test()
    Dim objIE As Object
     
    '■IE起動→該当ページへ遷移
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.navigate "https://vba-create.jp/"
     
    Call Call_IE_WaitTime
     
    Debug.Print objIE.document.getElementsByTagName("a").Length
    '1からではなく0からカウントします。
    '10の数値の場合0~9の10個の要素が存在します。
End Sub

注意点

  • Option Base1に限らず、スタートは1ではなく0です。

関連記事

その他

Internet Explorerを使用して、Webスクレイピングは敷居が高い風に捉えられますが、
上記のように、パーツ化して組み合わせ処理するだけです。

Web上のデータを触りたい要望は会社様でも個人様でも多いと思います。
VBA IE操作を覚えて効率化しませんか?
作成が大変であれば弊社で代行開発も可能です。お気軽にお問い合わせください。

 

コメント

タイトルとURLをコピーしました