VBAのIE制御

Function linkClick(objIE As InternetExplorer, _
                   keywords As String) As String
                  
  Dim objLink As Object

  For Each objLink In objIE.document.Links

    If InStr(objLink.outerHTML, keywords) > 0 Then

      objLink.Click
      
      Call ieCheck(objIE)
      
      Exit For

    End If

  Next

End Function

※ドラッグ(スワイプ)すると全体を確認できます。

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

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

引数keywordsは必須項目で、抽出する要素の一意のキーワードを文字列で指定します。「抽出する要素の一意のキーワード」というのは、抽出したい要素データ内で他とまったく被らないキーワードのことを指します。

例えば下記の場合、「こちらは一意のアンカーテキストです。」というキーワードは他では利用されていないキーワードですので、こちらを「一意のキーワード」と判断します。他にも「アンカーテキストです。」「です。」も一意のキーワードとして利用することもできます。

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

<a href="#a1">こちらは一意のアンカーテキストではありません。</a>
<a href="#a2">こちらは一意のアンカーテキストではありません。</a>
<a href="#a3">こちらは一意のアンカーテキストです。</a>
<a href="#a4">こちらは一意のアンカーテキストではありません。</a>
<a href="#a5">こちらは一意のアンカーテキストではありません。</a>

Dim objLink As Object

※ドラッグ(スワイプ)すると全体を確認できます。

こちらは、変数宣言でメモリ領域を割り当てるDimステートメントを利用してオブジェクト変数objLinkに「オブジェクト型(Object)」を変数宣言しています。

先に説明すると、データ型はオブジェクト型(Object)を利用せず、より具体的なデータ型を宣言するほうがよいとされています。理由としては、補助入力機能など利便性のよさなどが挙げられます。

こちらについては本来であれば、「HTMLLinkElement型」または「HTMLDocument型」などを指定するのがよいのでしょうか処理速度の観点からいうと必ずしもよいというわけではなりません。

他にもいくつか検証したのですが、以下のようにHTML関連のデータ型を選択した場合とオブジェクト型(Object)ではどれもオブジェクト型(Object)を選択した方が処理速度が速い結果となりました。

ですので、こちらで解説している内容のほとんどはオブジェクト型(Object)を選択しています。特に変更してもらっても問題ありませんので、自由に変更してください。

  For Each objLink In objIE.document.Links

   （処理省略）

  Next

※ドラッグ(スワイプ)すると全体を確認できます。

こちらでは、DocumentオブジェクトのLinksプロパティを利用して文書ドキュメント内のすべてのa要素コレクションを取得しています。こちらをFor Each～Nextステートメントのコレクションに設定し、すべてのa要素の要素数だけループ処理を行っています。

   If InStr(objLink.outerHTML, keywords) > 0 Then

      objLink.Click
      
      Call ieCheck(objIE)
      
      Exit For

    End If

※ドラッグ(スワイプ)すると全体を確認できます。

こちらでは、If～Then～Elseステートメントを利用して要素内の文書ドキュメントに引数keywordsのキーワードが含まれていないかチェックしています。

キーワードが含まれているかをチェックするには、指定したキーワードで最初に見つかった文字位置を返すInStr関数を利用しています。要素の文書ドキュメントに「次へ」のキーワードが含まれている場合は必ず「0」以上の値を返すので、比較演算子を利用して「0」以上の場合を条件式としています。

そして、要素オブジェクトのClickメソッドを利用して指定した要素のリンクをクリックします。この時に注意しなければいけないのは、クリックした先のページが完全に読み込まれるまで待機処理を行う必要があります。そこで完全に読み込まれるまで待機処理を行うieCheckサブルーチンにInternetExplorerオブジェクトを設定して、待機処理を行います。

尚、ページが完全に読み込まれるまでの待機処理については「指定したURLをIEで起動する」で詳しく解説していますので、確認してください。

クリック処理が完了するとループ処理をする必要がありませんので、ループ処理を回避するExit Forステートメントを利用してループから抜け出します。

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次