【エクセルVBAでIE操作】alt属性・src属性を利用して画像ボタンをクリックする

こんにちは！ITライターのもり（@moripro3）です！

エクセルVBAでIEを操作するシリーズをお届けしています。
前回の記事では、name属性を利用して画像ボタンをクリックする方法をお伝えしました。

【エクセルVBAでIE操作】name属性を利用して画像タイプの送信ボタンをクリックする

エクセルVBAでInternet Explorerを操作する初心者向けのシリーズ。今回は「画像タイプの送信ボタン」をname属性を使用してクリックする方法についてお伝えします。

今回の記事では、inputタグのalt属性またはsrc属性を利用して画像ボタンをクリックする方法を紹介していきます。

(おさらい)name属性を利用して画像ボタンをクリックする方法
inputタグのコレクションを取得する
For Each～Next文でinputタグを順番に取得する
1. alt属性の値を利用してクリックする方法
2. src属性の値を利用してクリックする方法
まとめ
連載目次：エクセルVBAでIEを操作してWEBスクレイピング

(おさらい)name属性を利用して画像ボタンをクリックする方法

「画像ボタン」の題材は、前回に続きＳＭＢＣ日興証券オンライントレードのログインページです。

このログインボタンは画像ファイルで作成されています。

ログインボタンのHTMLがこちら。

そして、name属性を利用したクリック処理のコードがこちらです。
getElementsByNameメソッドでオブジェクト（ボタン）を取得しています。

Dim loginBtns As IHTMLElementCollection
Set loginBtns = htmlDoc.getElementsByName("logIn")

Dim loginBtn As IHTMLElement
Set loginBtn = loginBtns(0) 'コレクションの1番目の要素を取得

loginBtn.Click

name=”logIn”の要素タグをコレクションに格納し、目的のオブジェクト（ボタン）を取り出して、Clickメソッドでクリックするという流れです。

inputタグのコレクションを取得する

それではここからが本題です！
まずは、alt属性を利用する方法・src属性を利用する方法の「共通処理」から紹介します。

getElementsByTagNameメソッドで、HTML全体からinputタグを取得します。

HTMLDocumentオブジェクト.getElementsByTagName(タグ名)

IHTMLElementCollection型のコレクション変数を用意し、getElementsByTagNameメソッドの返り値を格納します。

今回はinputタグを取得するので、getElementsByTagNameメソッドの引数に“input”と文字列型で指定します。

Dim inputTags As IHTMLElementCollection
Set inputTags = htmlDoc.getElementsByTagName("input")

【イメージ】

For Each～Next文でinputタグを順番に取得する

コレクション変数（inputTags）に格納されているinputタグを、順番にオブジェクト変数にセットしていきます。

オブジェクト変数にはIHTMLElement型の変数を用意します。

For Each オブジェクト変数 In コレクション
　‘処理
Next オブジェクト変数

コードがこちらです。

Dim inputTag As IHTMLElement
For Each inputTag In inputTags
    '処理
Next

【イメージ】

これで、inputタグを一つずつチェックしていくための準備ができました。

この先、alt属性を利用するか、src属性を利用するかで処理が分かれます。
それぞれの方法を紹介していきますね。

alt属性の値を利用してクリックする方法

alt属性とは、画像の代替となるテキストを指定する属性です。
何らかの理由で画像ファイルが表示されない場合に、代わりに表示される文言です。

HTMLでinputタグのalt属性の値を確認します。

<alt="ログイン">

Ifステートメントでinputタグのalt属性の値をチェックします。
もし、目的のボタン（alt=”ログイン”）であれば、Clickメソッドを実行します。

Dim inputTags As IHTMLElementCollection
Set inputTags = htmlDoc.getElementsByTagName("input")

Dim inputTag As IHTMLElement
For Each inputTag In inputTags
    
    If inputTag.alt = "ログイン" Then
        inputTag.Click
        Exit For
    End If

Next

【イメージ】

目的のボタンをクリックできたら、それ以上For文を繰り返す必要はないので、Exit Forステートメントでループを抜けます。

src属性の値を利用してクリックする方法

src属性とは、表示する画像ファイルを指定する属性です。
画像ボタンには、必ずsrc属性で画像ファイルが設定されています。

画像ボタンをクリックしたいけれど、name属性もalt属性も設定されてない・・・そんな時にこの方法を使いましょう。（少し処理が長くなるので、最終手段としてご利用ください！）

HTMLでinputタグのsrc属性の値を確認します。

<src="/common_2015/img/login_help_btn_001.gif">

画像ファイル(.gif)のパスが指定されていますね。

ここで注意するのがパスの指定です。
この画像ファイルのパスは相対パスであるため、alt属性のように完全一致検索では取得できません。

そこで、Instr関数を使用して部分一致検索します。

Instr(検索対象の全体の文字列,検索文字列)

引数1：inputタグのsrc属性
引数2：画像ファイルの相対パス

返り値はこちらです。

検索文字列が見つかった場合→1以上の数値
検索文字列が見つからなかった場合→0

Instr関数の返り値を利用して、目的のオブジェクトを取得できたか判定し、クリックします。

Dim inputTags As IHTMLElementCollection
Set inputTags = htmlDoc.getElementsByTagName("input")

Dim inputTag As IHTMLElement
For Each inputTag In inputTags
    
    If InStr(inputTag.src, "/common_2015/img/login_help_btn_001.gif") > 0 Then
        inputTag.Click
        Exit For
    End If

Next

こちらも同じく、目的のボタンをクリックしたらExit Forステートメントでループを抜けます。