VBAからIE操作 .document.forms(0).Submit でフォーム送信処理

リンク 分類: [Document(文章)からデータを取得] / [Form入力処理] / [Linkリンク情報] / [Image画像情報] / [Frameフレーム処理] サンプル: [IEを使ったVBAのサンプル] / [小さなVBAでIE操作のコード]

メルマガ発行内容

やっと、下記、メルマガで発行した内容です。何かの参考となれば幸いです。
過去のメルマガ[IE操作系の記事一覧]もヨロシクです。

＜VBAからIE操作 .document.forms(0).Submit でフォーム送信処理＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、
VBAからIE操作
で、
フォームの送信処理をやってみます。

たいした解説、回答内容じゃないのですが。

/*
 * １．今回のキッカケ
*/

メールで下記の質問をもらいました。
----
 >それで、また質問なのですが、上記の環境と変わって、今はデータがPDF
 >ではなくHTMLからCSVで取得できます。そのさい、Accessから　IE　にHTML上の、
 >INPUUT窓に入力コードとEnterをSendkeys で送りますが、{Enter}がダメで、結
 >局マウスで実行ボタンをクリックしています。
 >
 >これは、ActiveX上でのことで、通常のIE上では、入力、Enterが効きます。
 >なにか、復壊コードとOSの関係かと思いますが、よろしくお願いします。
 >
 >マシン環境は、WINME　アクセス2000　IE6.0　です。
----

う〜ん、Enterが送られないのかぁ。
で、
通常のIE上はＯＫ、フォームに設置したActiveXコントロールは不可ってことか・・

/*
 * ２．調べごと、下準備
*/

やりたいことは、ＨＴＭＬフォームにデータセットと送信ボタンクリックなので、
手前味噌的な紹介だと、

No.97 InternetExplorer.application操作 .Clickでクリック
http://www.ken3.org/backno/backno_vba20.html#97
で、
http://www.ken3.org/cgi-bin/test/test068.html
の下記のＨＴＭＬに対して、

<center>
<h2>けんぞうのへんてこな世界へようこそ</h2>
<br>
<table bolder=1>
<FORM ACTION="test068-1.asp" METHOD="POST">
USER ID:<INPUT TYPE="text" NAME="userid" SIZE="12"><br>
パスワード:<INPUT TYPE="password" NAME="pass" SIZE="12"><br>
<INPUT TYPE="submit" NAME="btn01" VALUE="ログイン">
<INPUT TYPE="reset"  VALUE="クリア">
</FORM>
</table><br>
<a Href="test068-2.asp" TARGET="_top">新規ユーザー登録</a><br>
</center>

データをセットして、送信ボタンを押してみました。

Sub ie_test_click()

    Dim objIE    As Object  'ＩＥオブジェクト参照用

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")
    
    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ
    objIE.Navigate "http://www.ken3.org/cgi-bin/test/test068.html"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop

     '項目名を指定して、データをセットする
     objIE.document.all.userid.Value = "Ken3" 'ユーザー名
     objIE.document.all.pass.Value = "aaa"    'パスワード

     'データせっとできたので、
     'ボタンを押してみる
     objIE.document.all.btn01.Click  'クリックメソッドを実行

End Sub

こんな、短いプログラムで、自動ログイン処理が可能です。
※なんとなく、オールスターの自動投票処理も簡単に出来るかもしれませんね。

なんて、ほざいてましたが、
ここで、１つ問題があります。

<INPUT TYPE="submit" NAME="btn01" VALUE="ログイン">
<INPUT TYPE="reset"  VALUE="クリア">

SUMMITのボタンに、私は名前を付けましたが、
<INPUT TYPE="submit" VALUE="ログイン">
なんて感じで、名前は付けなくてもいいんですね。

なので、

     'ボタンを押してみる
     objIE.document.all.btn01.Click  'クリックメソッドを実行
が、使えないフォームがあるんですよ。。。
※名前が付いてないのでxxxx.Clickが出来ない。

そんなのHTML作っているヒトに、名前付けてもらえばいいじゃん？
名前付けるなんてスグでしょ？

オイオイ、待ってよ・・・
私、違法投票のプログラム作ってます、私が自動にクリックしたいので、
フォームのボタンに何か名前を付けてください
よろしくお願いします・・なんて言えないでしょ。

自分でＨＴＭＬ側も作っていれば別だけど、
今ある物を、外部からＩＥ通して操作するんだから、
自分の都合のよいように作ってくれないよ。

※また、相手先の突然のレイアウト変更とかあったりして、
　ハマるケースもありかなぁ。

/*
 * ３．IEオブジェクトを探り、Formsを発見
*/

さてと、どうしましょうかねぇ。
問題は、Enterキーだけなので、フォームをクリックできればなぁ。

また、久々に得体の知れないIEお嬢様のオブジェクトを探るか、、、
ウオッチ式を入れてと、
おっ、Formsってそれらしいのがあるよね。
これ使えそうですね。

↑オブジェクトの中から、Formsを発見。

探り方の詳細は、
[No.52 InternetExplorer.application .document.body.innerText]
( http://www.ken3.org/backno/backno_vba11.html#52 を参照)
で、彼女（オブジェクト）の中身を探る方法を少し書いてます。

よし、さっそくテストしてみるか。
     'フォームをクリックする？
     objIE.document.forms(0).Click
と入れて実行。

オイオイ、何も起こんないよ、
ホントに動作してるのか？

これって、フォームをクリックしてるんじゃない？
ボタンならクリックでいいけど、
フォームは、submit でしょ？

そっか、では、テストで、
     'フォームをSubmitする？
     objIE.document.forms(0).Submit
でどうだ・・・

おっ、ログインできた。

objIE.document.forms(0).Submit

.forms(0)と、頭のフォームと番号で指定しているのが、
情けないけど、このフォームに対して、
.Submitでリターンキーを押した結果が得られます。

objIE.document.forms(0).Submit
IEオブジェクトのドキュメントの０番目のフォームをＳＵＢＭＩＴって感じかなぁ。

最後に１行書いただけですが、フォームのSUBMITテストです。
いろいろと自分の環境に合わせて、テストしてみてください。

Sub ie_test()

    Dim objIE    As Object  'ＩＥオブジェクト参照用

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")
    
    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ
    objIE.Navigate "http://www.ken3.org/cgi-bin/test/test068.html"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop

     '項目名を指定して、データをセットする
     objIE.document.all.userid.Value = "Ken3" 'ユーザー名
     objIE.document.all.pass.Value = "aaa"    'パスワード

     'フォームをSubmitする
     objIE.document.forms(0).Submit

End Sub

あっ、質問は、Accessのフォーム上に配置した
ActiveXコントロールだった。

処理同じだけど
WebBrowser0
って名前で、Web Browser コントロールを挿入。

コマンドボタンが押されたら、

Private Sub コマンド1_Click()

    Me!WebBrowser0.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ
    Me!WebBrowser0.Navigate "http://www.ken3.org/cgi-bin/test/test068.html"

    '表示終了まで待つ
     Do While Me!WebBrowser0.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop

     '項目名を指定して、データをセットする
     Me!WebBrowser0.Document.all.userid.Value = "Ken3" 'ユーザー名
     Me!WebBrowser0.Document.all.pass.Value = "aaa"    'パスワード

     'フォームをSubmitする
     Me!WebBrowser0.Document.Forms(0).Submit

End Sub

単に、objIEがMe!WebBrowser0になっただけ
と
CreateObjectがなくなった（フォームにあらかじめ配置しているので）
そんな感じでした。


↑Accessフォーム上でのテスト実行結果

/*
 * ４．終わりの挨拶
*/

今回は、
IE操作、フォームの送信処理で、
objIE.document.forms(0).Submit
と、
ドキュメント内のフォームオブジェクトに対して、
.Submit してみました。

IEお嬢様は、ナンパの攻略本が少ないから（資料が少ないから）
なかなか、攻略するの大変そうです。
困ったときのキーを送っちゃえ、ＳｅｎｄＫｅｙｓ攻撃が効かないと特に。

私最近は町にナンパしに行く元気ないので、調べてないです。
でも、皆さんが攻略できなかった、
あの子手ごわいよなんて話を聞くと、落としてみたくなったりして。
※まわりくどいんだよ、気軽に質問ください、
　IE操作、気になったら一緒に調べますよでいいじゃん（笑）

ですね。町でナンパしたことないのに、
ナンパ師チャラ君達の心境をマネてもボロ出ちゃうよね。

何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

関連項目(ただのバックナンバー紹介)

インターネットエクスプローラーの操作
http://www.ken3.org/cgi-bin/group/vba_ie.asp
で、下記のリンクまとめてます。

No.50 IE起動 CreateObject("InternetExplorer.application")
No.52 InternetExplorer.application .document.body.innerText
No.53 文字列を探す、InStr関数の使い方
No.70 InternetExplorer.application .document.all(0).innerHTML
No.71 IE操作 リンク先を取出す .Document.links(i).href

も参考にしてください。

ページフッター リンクや広告、質問送信など

三流解説を読んでいただき、どうもです。ここから下は、三流君宛のメッセージ送信や 三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、※質問や感想は、気軽に送ってくださいね。

質問や要望など メッセージを送る(三流君に連絡する)

三流プログラマーのKen3 が 皆さんの質問にお答えします
と カッコつけて言っても、実力不足ですべての質問に回答することはできないのが現実なのですが、できる範囲で 三流的な逃げ手 や 解決方法 を探します(回答します)。

感想や質問・要望・苦情など 三流君へメッセージを送る。
時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。