VBAでIEのsubmitボタンをクリック

今回は、フォームの処理ボタンで利用されるsubmit（送信ボタン）をクリックする制御方法を解説します。
こちらについてもいくつか方法がありますので説明していきます。

フォームsubmitボタンをクリックマクロ１

Sub sample()

  Dim objIE  As InternetExplorer
  Dim objForm As HTMLFormElement

  'InternetExplorerでテスト用フォームページを起動
  Call ieView(objIE, "http://www.vba-ie.net/code/test.html")
  
  Set objForm = objIE.document.forms("form1")

  'submitボタンをクリック
  objForm.submit

End Sub

テスト用フォームページのソース

※必要な項目のみ抽出しています。

実行結果

こちらでは「submitメソッド」を利用して、フォームを実行させています。
フォームのaction先が「?」で設定されているため、結果としてhttp://www.vba-ie.net/code/test.html?を返しています。

しかし、こちらの本来の処理としては、javaScriptを設定しており、以下のようなメッセージを表示させる処理となっています。

「submitメソッド」はよく利用される方法ですが、今回のようなjavaScriptで処理している送信ボタンの場合は、異なった結果になってしまうこともあるので、「submitメソッド」で処理するよりは「Clickメソッド」で処理をした方が無難な選択となります。
それでは、「Clickメソッド」での処理を解説していきます。

フォームsubmitボタンをクリックマクロ２

Sub sample()

  Dim objIE  As InternetExplorer
　Dim objTag As Object

  'InternetExplorerでテスト用フォームページを起動
  Call ieView(objIE, "http://www.vba-ie.net/code/test.html")

　'送信(submit)をクリック
  For Each objTag In objIE.document.getElementsByTagName("input")

  　If InStr(objTag.outerHTML, "送信") > 0 Then

　　　'送信ボタンクリック
　　　objTag.Click

　　　'IEが完全表示されるまで待機
　　　Call ieCheck(objIE)

　　　'ループ脱出
　　　Exit For
            
　　End If
　Next

End Sub

実行結果

今回、新しい形式のプログラムとなっています。
こちらは後ほどサブルーチン化させる部分になりますので、しっかり押さえておきましょう。

For Each objTag In objIE.document.getElementsByTagName("input")
（省略）
Next

If InStr(objTag.outerHTML, "送信") > 0 Then
（省略）
End If

こちらは、outerHTMLプロパティのエレメント内で「送信」という文言が含まれていたら処理をするという内容になっています。
もう少し細かく説明するとInStr関数は、指定した文字（objTag.outerHTML）の中から指定した文字列（"送信"）を検索して、見つかった位置を返します。
見つからない場合は0を返し、見つかった場合は1以上の値を返すため、0より大きい場合に処理をするという仕組みです。

これにより、該当する項目だけ処理をさせることができます。

'送信ボタンクリック
objTag.Click

'IE（InternetExplorer）が完全表示されるまで待機
Call ieCheck(objIE)

'ループ脱出
Exit For

こちらの内容は簡単ですね。
該当するエレメントを「Clickメソッド」で処理をします。
クリックをすると本来ページが更新されますので、ieCheckサブルーチンで待機処理をしています。
最後のExit Forは目的が達成したので、ループから脱出します。
この方法は、今後多く目にするので、しっかり押さえましょう。

次の「resetボタンをクリック」の制御方法ついて解説していきます。