VBAでid属性からデータを抽出するためのサブルーチン「classValue」

VBAのIE(InternetExplorer)制御に便利なサブルーチンを紹介しています。

「classValueサブルーチン」の詳しい解説については、以下より確認してください。

データ抽出やインターフェースの自動化にしても必ず最初は指定したURLをIEで起動させるところから始まります。 こちらの処理は何度も利用されるプログラムですので、そのような処理をサブルーチン化させると色々なメリットが生まれます。ここでは、そのようなサブルーチン化のメリットも含めて解説しています。

サブルーチンとは

サブルーチンとは、プログラム処理の中で繰り返し利用されるルーチン作業をモジュール化(部品化)してまとめたものになります。また、呼び出す側をメインルーチンと呼ぶのに対して「サブルーチン」と呼ばれます。

メリット

繰り返し利用されるルーチン作業をモジュール化(部品化)することで、同じ処理のプログラムを何度も書く手間が省け、プログラムも全体的に見やすくなります。これによりプログラムソースの可読性や保守性を高く保つことができます。

関連性の高いサブルーチン

Function classValue(objIE As InternetExplorer, _
                 className As String, _
                 tagName As String, _
                 valueType As String) As String


  For Each objDoc In objIE.document.getElementsByClassName(className)

    With objDoc

      If LCase(.nodeName) = tagName Then
    
        Select Case valueType

          Case "innerHTML"

            classValue = .innerHTML

          Case "innerText"
             
            classValue = .innerText
      
          Case "outerHTML"
 
            classValue = .outerHTML

          Case "outerText"

            classValue = .outerText

        End Select

        Exit For

      End If
    
    End With

  Next

End Function

こちらは戻り値を返すFunctionステートメントに引数を4つ設定しているclassValueサブルーチンになります。こちらの構文と引数の内容は以下になります。尚、引数はすべて参照渡しで渡されます。

classValue("IEオブジェクト","class属性の名前","タグ(ノード)の名前","データ取得のプロパティ名")
構文classValue(objIE,className,tagName,valueType)
引数名データ型内容値の事例初期値省略
objIEInternetExplorerInternetExplorerオブジェクトを指定します。objIE,
objIE2
×
classNameString抽出するclass属性の名前を文字列で指定します。"classtest2"×
tagNameString抽出するタグ(ノード)の名前を文字列(小文字)で指定します。"p","a","li"×
valueTypeStringデータ取得のプロパティ名を文字列で指定します。データ取得のプロパティは「innerHTML」「innerText」「outerHTML」「outerText」の4つになります。詳細については、「HTMLコードを取得する」を参照してください。"innerHTML",
"innerText",
"outerHTML",
"outerText"
×

引数objIEは必須項目で、文書ドキュメントを抽出するnternetExplorerオブジェクトを指定します。InternetExplorerオブジェクトを引数に設定することで、複数のオブジェクトを処理することができます。

引数classNameは必須項目で、抽出するclass属性の名前を文字列で指定します。

引数tagNameは必須項目で、抽出するタグ(ノード)の名前を文字列(小文字)で指定します。

尚、引数className引数tagNameの組み合わせは「一意」の要素を選択する必要があります。「一意」というのは、他に同じものがなく1つしかないことを指します。

class属性はページ内で同じ名前のものを何度でも利用してもよいことになっています。仮に同じclass属性が存在した場合は、どちらかを判断するために更に処理が必要となりますので、ここでは1つしかない組み合わせを選択します。

以下の事例で言えばclass属性「classtest2」の要素はいくつか存在しますが、class属性「classtest2」のp要素は1つしか存在しませんので、class属性「classtest2」のp要素は「一意」と判断します。

こちらの詳細については、「文書ドキュメント取得の処理の考え方」を確認してください。

<p class="classtest1">****</p>
<div class="classtest2">****</div>
<div class="classtest2">****</div>
<p class="classtest2">抽出したい要素class</p>
<p class="classtest1">****</p>

引数valueTypeは必須項目で、データ取得のプロパティ名を文字列で指定します。データ取得のプロパティは「innerHTML」「innerText」「outerHTML」「outerText」の4つになります。

詳細については、「HTMLコードを取得する」を確認してください。

  For Each objDoc In objIE.document.getElementsByClassName(className)

   (処理省略)

  Next

こちらでは、getElementsByClassNameメソッドに「引数classNmae」を設定して指定したclass属性の要素コレクションを取得しています。こちらをFor Each~Nextステートメントのコレクションに設定し、指定したclass属性の要素数だけループ処理を行っています。

    With objDoc

      If LCase(.nodeName) = tagName Then
    
        Select Case valueType

          Case "innerHTML"

            classValue = .innerHTML

          Case "innerText"
             
            classValue = .innerText
      
          Case "outerHTML"
 
            classValue = .outerHTML

          Case "outerText"

            classValue = .outerText

        End Select

        Exit For

      End If
    
    End With

こちらではまず、1つのオブジェクトに対して処理をまとめるWithステートメントのオブジェクト名に「objDoc」を設定しています。こちらは先ほど取得したclass属性の要素コレクションのオブジェクトになります。

次にIf~Then~Elseステートメントを利用して指定したnameid属性のタグ(ノード)の名前が引数tagNameの場合に要素を抽出します。

タグ(ノード)の名前を取得するにはnodeNameプロパティを利用しますが、LCase関数タグ(ノード)の名前を小文字に変換しています。ここまで確認した中ではnodeNameプロパティは大文字で返すのですが、イレギュラーを排除するために念のため小文字に変換しています。

そして複数の条件分岐を設定するSelect Caseステートメントを利用して引数valueTypeの設定値で条件分岐させています。

こちらでは、innerHTML・innerText・outerHTML・outerTextプロパティを利用して抽出する要素のどの部分の文書ドキュメントを抽出させるかを選択しています。そして、取得した値を戻り値classValue代入演算子で格納したら処理が完了します。