VBAを利用したWebブラウザ操作(aタグクリック)

Question

VBAを利用してWebブラウザ(IE)を操作するシステムを作成中です。
aタグをクリックする際の処理がうまく動作致しません。
色々サイトを調べていると以下のようなコードで実装できると記載がありました。
しかし、私がクリックしたいaタグには文字が記載されていません。
その場合はIf分の条件はどのように設定したらリンクを正しく押下することができるのでしょうか？ForEach以外での実装方法もありましたら教えていただきたいです。

For Each objTag In objIE.document.getElementsByTagName("a")
　‘該当箇所
    If InStr(objTag.outerHTML, "aタブに書かれた文字列“) > 0 Then 
        objTag.Click
        Exit For
    End If
Next

<tr="*" id="**" class="***">
    <td style="****" >
           <input type="hidden" value="*****">
      <a href="******" onclick="*******">
        <span class="*******">
      </a>
   </td>
・・・・・・・・

</tr>

Comments

[meg_]

> VBAを利用してWebブラウザ(IE)を操作するシステムを作成中です。
ブラウザにIEを使用される理由は何でしょうか？
IEは非推奨なので回答つきにくいかと思いますが。

また、「うまく動作致しません。」とはどういうことでしょうか？具体的に説明なさった方が回答者に伝わるかと思います。

[hatena19]

対象ページには複数のaタグがあり、そのなかの一つ(あるいはいくつか)のaタグが目的のものであるということでしょうか。
目的のものかどうかは、人間の目からみて、どのように判断できますか。判断できる方法があるなら、それをプログラムに翻訳すればいいです。どのように判断できるか、提示してください。
例えば、子要素のクラス名で判断するとか、親要素のID名、クラス名から判断するとか。

[hawawa]

ID="**"のTrタグ内、一番最初のaタグでいいのだろうか？
それならインデックスでの指定もできますが

Answer 1

outerHTMLは、そのオブジェクトのタグを含め、配下のすべてのHTMLを
返します。
したがって、outerHTMLで特定のaタグを同定するならaタグ内の
"<a " から"</a>"までのHTMLテキスト全体がキー(比較値）になります。
このためリンク文字はなくても判断できます。

↓以下追加（質問者さんの提示されたコードを見直したらInstrが使用されていましたので）
完全一致で判断するなら上記のとおり"<a " から"</a>"のテキストを
指定しますが、テキスト内の一部分(たとえばURLとかonclickの関数名など)によって
そのａタグがユニークに判断できるのであれば、Instrでその部分を
検出するだけでも良いと思います
↑追加終了　

具体的には
質問者さんが提示されているHTMLの
－－－－－－－－－－－－－－－－－－
<a href="******" onclick="*******">
<span class="*******">
</a>
－－－－－－－－－－－－－－－－－－
がキーになります。

ただし注意点です。
outerHTMLで得られるHTMLは、元のHTMLファイルのソースとは必ずしも
一致しませんので注意してください。
これはブラウザがHTMLソースを取り込んだ際、内部でテキストを正規化
するからです。
このためたとえばブラウザの「ソースの表示」で表示されるHTMLを
比較値に設定してもうまくいきません。

outerHTMLで得られるHTMLを確認するには
開発者ツールを開き(目的のページを開いた状態でF12キーを押す)、
DOM Explorerで目的のaタグの部分を探し、HTMLを取り出してください

なお、それでも上手くいかない場合は
以下のように一度outerHTMLを印刷するなどして確認してください。

For Each objTag In objIE.document.getElementsByTagName("a")
  debug.print(objTag.outerHTML)
Next