[三流君] [VBAで楽しく] [VBA IE 操作]
−−> No.105 VBAからIE操作 .document.forms(0).Submit でフォーム送信処理

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

概要:
ボタンに名前が付けられていないと、.Clickが使いにくかったので、
.document.forms(0).Submit を使用して、ファームの送信ボタンを押しました。

※メルマガ記事ではオブジェクトの参照設定をしていませんができれば、下記を参考に参照設定してください。
[Microsoft Internet Controls,Microsoft HTML Object Library を参照設定する](このほうが開発時、操作時に楽)
また、VistaとIE7の場合は、 [IE7 操作 Vistaで失敗]も参考にしてください。

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

メルマガ発行内容

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

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

どうも、三流プログラマーのKen3です。 今回は、 VBAからIE操作 で、 フォームの送信処理をやってみます。 たいした解説、回答内容じゃないのですが。

/* * 1.今回のキッカケ */

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

/* * 2.調べごと、下準備 */

やりたいことは、HTMLフォームにデータセットと送信ボタンクリックなので、 手前味噌的な紹介だと、 No.97 InternetExplorer.application操作 .Clickでクリック http://www.ken3.org/backno/backno_vba20.html#97 で、 http://www.ken3.org/cgi-bin/test/test068.html の下記の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  'IEオブジェクト参照用

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

    '文字列で指定したURLに飛ぶ
    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
こんな、短いプログラムで、自動ログイン処理が可能です。 ※なんとなく、オールスターの自動投票処理も簡単に出来るかもしれませんね。 なんて、ほざいてましたが、 ここで、1つ問題があります。 <INPUT TYPE="submit" NAME="btn01" VALUE="ログイン"> <INPUT TYPE="reset" VALUE="クリア"> SUMMITのボタンに、私は名前を付けましたが、 <INPUT TYPE="submit" VALUE="ログイン"> なんて感じで、名前は付けなくてもいいんですね。 なので、 'ボタンを押してみる objIE.document.all.btn01.Click 'クリックメソッドを実行 が、使えないフォームがあるんですよ。。。 ※名前が付いてないのでxxxx.Clickが出来ない。 そんなのHTML作っているヒトに、名前付けてもらえばいいじゃん? 名前付けるなんてスグでしょ? オイオイ、待ってよ・・・ 私、違法投票のプログラム作ってます、私が自動にクリックしたいので、 フォームのボタンに何か名前を付けてください よろしくお願いします・・なんて言えないでしょ。 自分でHTML側も作っていれば別だけど、 今ある物を、外部からIE通して操作するんだから、 自分の都合のよいように作ってくれないよ。 ※また、相手先の突然のレイアウト変更とかあったりして、  ハマるケースもありかなぁ。

/* * 3.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オブジェクトのドキュメントの0番目のフォームをSUBMITって感じかなぁ。 最後に1行書いただけですが、フォームのSUBMITテストです。 いろいろと自分の環境に合わせて、テストしてみてください。
Sub ie_test()

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

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

    '文字列で指定したURLに飛ぶ
    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 '見えるようにする(お約束)

    '文字列で指定したURLに飛ぶ
    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フォーム上でのテスト実行結果

/* * 4.終わりの挨拶 */

今回は、 IE操作、フォームの送信処理で、 objIE.document.forms(0).Submit と、 ドキュメント内のフォームオブジェクトに対して、 .Submit してみました。 IEお嬢様は、ナンパの攻略本が少ないから(資料が少ないから) なかなか、攻略するの大変そうです。 困ったときのキーを送っちゃえ、SendKeys攻撃が効かないと特に。 私最近は町にナンパしに行く元気ないので、調べてないです。 でも、皆さんが攻略できなかった、 あの子手ごわいよなんて話を聞くと、落としてみたくなったりして。 ※まわりくどいんだよ、気軽に質問ください、  IE操作、気になったら一緒に調べますよでいいじゃん(笑) ですね。町でナンパしたことないのに、 ナンパ師チャラ君達の心境をマネてもボロ出ちゃうよね。 何かの参考となれば幸いです。 Excel/Access大好き、三流プログラマーKen3でした。
関連項目(ただのバックナンバー紹介)
インターネットエクスプローラーの操作 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 も参考にしてください。

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

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

[三流君 VBAでWebBrowser IEを操作する] / [三流君 VBAで楽しくプログラミング] / [AB型の変わり者 三流プログラマー Ken3 三流君Top]

大分類:[Document.Forms(入力処理)] / [Document.Links(リンク情報)] / [Document.Images(画像情報)] / [Document.Frames(フレーム処理)]
サンプル・例題:[過去のメルマガ記事一覧] / [少し大きなIE操作サンプル] / [小さなコードでIE操作の動作確認]

F1でヘルプを見たり、デバック時にDebug.Print使ったり、イミディエイト ウインドウで簡単な確認したり。
なれると当たり前に操作している方法が↓かなぁ。
[F1ヘルプ マクロ記録ほか]・・・基本のF1を押してヘルプを見る方法など
[実行時エラー、デバッグモード]・・・デバッグの流れを簡単に(ハマった時はツライけど)
[イミディエイト ウインドウ と Debug.Print]・・・プログラム作成時に便利なイミディエイト ウインドウ
[VBA ウォッチ式とSTOPを使ってみた]・・・STOPで止め、ウォッチ式でオブジェクトの中身を確認する方法など
[参照設定のお話]・・・設定すると便利な(設定しないと使えない)、参照設定のお話

項目別に↓にプログラマーの本音?それとも建て前?的な記事をまとめました。お探しのジャンルを選択してください。
[プログラムは心? spirit]・・・プログラマー 心・気質・魂
[学ぶ study]・・・学習、技術の取得
[仕様書 doc]・・・仕様書・設計書関係の話

項目別に↓に人気の記事をまとめてみました。お探しのジャンルを選択してください。
[VBAでIE ウェブブラウザーを操作]・・・VBAでIE,WebBrowserを操作する サンプルです
[MSアクセス から エクセル を呼ぶ Excel.Application]・・・AccessからExcelを操作したりデータの書き出しなどです
[アウトルック メールの操作 Outlook.Application]・・・VBAからOutlookを使い、メール関係を処理するサンプルです
↑上記3つみたいなCreateObjectで他のアプリケーションを操作するサンプルが人気です。

Excel関係:
[エクセル ユーザーフォームを操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
[エクセルからアクセスを操作する]・・・ExcelからAccessのマクロを起動してみました、
[エクセル関係 関数、その他]・・・その他Excel関係です

Access関係:
[アクセス ユーザーフォーム/サブフォーム 操作]・・・アクセスでフォームを使ったサンプルです
[アクセス レポート操作]・・・レポートを操作してみました
[アクセス クエリーやその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です

その他:VBAの共通関数やテキストファイルの操作など
[テキストファイルの操作(Open,Close,Print,Input)]・・・普通のテキストファイルを使ったサンプルです

Blog:[三流君の作業日記]/ [objIEを使用したサンプルコードを見る]/ 広告-[通販人気商品の足跡]

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

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

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

あなたのお名前(ニックネーム):さん
返信は?: 不用(HP更新を待つ) , E-mail→ アドレス:に返事をもらいたい



(感想や質問・要望 メッセージはHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[三流君連絡先]に連絡してください。



[トップページへ 戻る] / [VBA TOP] / [WebBrowser IEの操作 TOPへ]