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

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

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サブルーチンになります。こちらの構文と引数の内容は以下になります。尚、引数はすべて参照渡しで渡されます。

引数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に代入演算子で格納したら処理が完了します。