[三流君]
[VBAで楽しく]
[VBA IE 操作]
三流君VBA:VBAからIE操作 NAMEが同じフォームの項目へデータをセットする
発行内容
VBAからIE操作 NAMEが同じフォームの項目へデータをセットする
こんにちは。AB型の変わり者 三流プログラマーのＫｅｎ３です。
今回は、
IE 操作系で名前が一緒のオブジェクトを操作してみます。
Excel VBA/Access VBAに慣れているので、
コントロール配列的に生成されているとは・・・気がつかなかった。
そんなお話です。
/*
* １. 今回のキッカケ
*/
最近下記のような質問を多数いただく(と言っても７件だけど)
----
>objIE.document.all.userid.Value = "Ken3"
>のところなのですが、たとえばソースのNameのuseridのところが
>二つある場合、エラーが出てしまいますが、
>名前がかぶっている場合の対処はどうしたらいいのでしょうか？
----
とか
----
>objIE.document.all.qword.Value = "*****"
>でデータがセットされません。
>原因を教えてください
----
objIE.document.all.フィールド名
でデータがセットできないのかぁ・・・何が原因なんだろう？？？
最近は、高度な質問の連続で、回答していない質問が貯まっていたり・・・
関係ないけど下記↓で愚痴って居たり。
三流君の愚痴
No.202 青は藍より出でて藍より青し(弟子に追い越される師匠)
http://www.ken3.org/guchi/backno/guchi202.html
↑質問者のレベルのほうが高くなった、そんなお話かな。
青は藍より出でて藍より青し
あおはあいよりいでてあいよりあおし
弟子が師匠よりもぬきんでることや、
教えた人よりも教えられた人のほうが
まさってしまうことのたとえ。
青色は藍から染料を取ったが(藍を原料にそめる)
その青がもともとの藍より青く美しくなることから。
※藍色よりさくら色のほうが好き・・なんてゴルフの話じゃないのでご注意を。
さらに関係ない宣伝:
楽天ゴルフ関係売れ筋↓
http://www.ken3.org/etc/ranking/golf.html
/*
* ２．現象を再現する
*/
世の中には、いろいろなHTML FORMがあります。
例えば、
ヘッダー上部にフォームで
[区分の選択][検索実行]
と作り、
中にデータを表示する。
[明細データ]
[明細データ]
[明細データ]
[明細データ]
で、上に戻らなくても再検索できるようにフッターに
[区分の選択][検索実行]
と、同じフォームを配置する、そんなパターンもアリですよね。
ここで、ヘッダーとフッターの名前を変更してくれれば楽なんだけど
別にHTML上は害がないのでコピーで同じフォームが２つ貼ってあったり。
http://www.ken3.org/cgi-bin/test/test087-1.asp
では、下記の入力フォーム
<FORM ACTION="test087-1.asp" METHOD="GET">
絞り込む検索条件を入れて、再検索ボタンを押してください。<br>
検索条件：<INPUT TYPE="TEXT" NAME="q" VALUE="<%=qqq%>">
<INPUT TYPE="submit" VALUE="再検索"><br>
※例)pc auto drink 500yenなどなど、ＵＲＬの一部を入力<br>
</FORM>
このフォームが上下に貼ってあります。
q=golfと検索条件をセットしたかったので、
下記のプログラムを実行しました。
Sub aaa()
Dim objIE As Object 'IEのオブジェクトを入れる器
Dim time10 As Date '時刻計算用
Dim strQ As String
strQ = InputBox("検索したいデータは？", "入力", "golf")
'IEオブジェクトの作成
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True '見えるようにする
'目的のページを表示する(表示させたい)
'アドレスを渡し表示する
objIE.Navigate "http://www.ken3.org/cgi-bin/test/test087-1.asp"
'2秒表示を待つ(強制的に待ってみる)
time10 = DateAdd("s", 2, Now())
Do While True '←無限ループかよ!!!
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'読みこみ完了まで待つ※手抜き
'最大10秒後を計算して、待つ
time10 = DateAdd("s", 10, Now())
Do While objIE.Busy = True
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'strQをフォームのNAME=Qに代入
objIE.document.all.q.Value = strQ
End Sub |
実行すれば、
objIE.document.all.q.Value = strQ
でセットされると思っていたが・・・
/*
* ３．オブジェクトへの道のりはいろいろ・・(n)添え字編
*/
原因は、
INPUT TYPE="TEXT" NAME="q"
と同じ名前の項目があるので、
document.all.q
でたどり着けないのかぁ・・・
そんな回答は、下記の１行です。
objIE.document.all.q(0).Value = "golf"
や
objIE.document.all("q")(1).Value = "auto"
など、配列の添え字でアクセスすることができます。
ハマったけど、回答を見るとみなさんなんだぁ〜って感じになると思います。
単に配列的なオブジェクトで生成されていたので、
document.all.qだとダメで、
.document.all.q(0)や.document.all("q")(1)でアクセス可能だったんですね。
Sub bbb()
Dim objIE As Object 'IEのオブジェクトを入れる器
Dim time10 As Date '時刻計算用
'IEオブジェクトの作成
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True '見えるようにする
'目的のページを表示する(表示させたい)
'アドレスを渡し表示する
objIE.Navigate "http://www.ken3.org/cgi-bin/test/test087-1.asp"
'2秒表示を待つ(強制的に待ってみる)
time10 = DateAdd("s", 2, Now())
Do While True '←無限ループかよ!!!
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'読みこみ完了まで待つ※手抜き
'最大10秒後を計算して、待つ
time10 = DateAdd("s", 10, Now())
Do While objIE.Busy = True
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'strQをフォームのNAME=Qに代入
objIE.document.all.q(0).Value = "golf" 'document.all.q(0)をテスト
objIE.document.all("q")(1).Value = "auto" 'document.all("q")(1)をテスト
End Sub |
/*
* ４．オブジェクトへの道のりはいろいろ・・Form(n)フォームを指定する
*/
別な考え方のアプローチもある。
好きなタレント：たなかれいな
だと、
田中麗奈 -- [森永 アロエヨーグルト][容疑者 室井慎次]
田中れいな -- モーニング娘。
と区別がつかないのかぁ・・・
.all(全体から)探さないで頭に.form(グループ)から探せって？
チョットたとえ話が変だけど、
フォームが２つあり、メンバー名も一緒なのが問題だったので、
フォーム＋メンバー名なら重複しないでしょって感じかな。
モーニング娘。田中れいな写真集ならオブジェクトへたどり着けるでしょ
またまた宣伝：
田中れいな写真集「れいな」DVD付→ http://h17-oct.holy.jp/ISBN/4847028902.html
ふざけてないで、サンプル書くと
objIE.document.Forms(0).q.Value = "(0)ならこっちだ"
objIE.document.Forms(1).q.Value = "(1)ならこっちです"
で、上下の各フォームにデータがセットできたと思います。
Sub ccc()
Dim objIE As Object 'IEのオブジェクトを入れる器
Dim time10 As Date '時刻計算用
'IEオブジェクトの作成
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True '見えるようにする
'目的のページを表示する(表示させたい)
'アドレスを渡し表示する
objIE.Navigate "http://www.ken3.org/cgi-bin/test/test087-1.asp"
'2秒表示を待つ(強制的に待ってみる)
time10 = DateAdd("s", 2, Now())
Do While True '←無限ループかよ!!!
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'読みこみ完了まで待つ※手抜き
'最大10秒後を計算して、待つ
time10 = DateAdd("s", 10, Now())
Do While objIE.Busy = True
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'フォーム(0)のNAME=Qに代入
objIE.document.Forms(0).q.Value = "(0)ならこっちだ"
'フォーム(1)のNAME=Qに代入
objIE.document.Forms(1).q.Value = "(1)ならこっちです"
End Sub |
/*
* ５．フォームに値をセットする場合、.Allよりも.Formsがいいのかなぁ？
*/
っな感じで、フォームに値をセットする時は、
.Allよりも.Forms(n)で指定するほうがいいのかなぁ？
.Submitする時も、フォームを指定しているから？？
パターン的には、値をセットしてから.Submitなので、
objIE.document.Forms(0).q.Value = strQ 'strQを０番目のフォームにセットする
objIE.document.Forms(0).Submit '０番目のフォームの送信ボタンを押す
こんな感じかな。
完成版、VBAのINPUT BOXから受け取った値をセット後Submit(検索する)。
Sub ddd()
Dim objIE As Object 'IEのオブジェクトを入れる器
Dim time10 As Date '時刻計算用
Dim strQ As String
strQ = InputBox("検索したいデータは？", "入力", "golf")
'IEオブジェクトの作成
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True '見えるようにする
'目的のページを表示する(表示させたい)
'アドレスを渡し表示する
objIE.Navigate "http://www.ken3.org/cgi-bin/test/test087-1.asp"
'2秒表示を待つ(強制的に待ってみる)
time10 = DateAdd("s", 2, Now())
Do While True '←無限ループかよ!!!
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'読みこみ完了まで待つ※手抜き
'最大10秒後を計算して、待つ
time10 = DateAdd("s", 10, Now())
Do While objIE.Busy = True
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'strQをフォームのNAME=Qに代入
objIE.document.Forms(0).q.Value = strQ 'strQを0番目のフォームにセットする
'データを送信する
objIE.document.Forms(0).Submit '０番目のフォームの送信ボタンを押す
End Sub |
/*
* ６．ラジオボタンの時、配列的にｎ番目は楽かもね
*/
フォーム内の項目で名前が同じデータがあったりします。
ラジオボタン関係がそんな感じなのかな。
http://www.ken3.org/cgi-bin/test/test029-1.asp
の書き込みテストでは、
<FORM ACTION="test029-2.asp" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="NO" VALUE="0">
<b>メルマガ区分選択:</b><br>
<INPUT TYPE="RADIO" NAME="KUBUN" VALUE="ASP" CHECKED>ＡＳＰで遊ぶ、失敗する<br>
<INPUT TYPE="RADIO" NAME="KUBUN" VALUE="VBA" >VBAで楽しく<br>
<INPUT TYPE="RADIO" NAME="KUBUN" VALUE="GUCHI" >愚痴系メルマガ<br>
<INPUT TYPE="RADIO" NAME="KUBUN" VALUE="24H" >コンビニのオモテとウラ<br>
<b>感想:</b>
<% Randomize : zz = Chr(&h22) & "TEST DATA " & Int(Rnd * 100) & Chr(&h22) %>
<INPUT TYPE="TEXT" NAME="MEMO" SIZE=60 VALUE=<%=zz%>><br>
<br>
<INPUT TYPE="SUBMIT" VALUE="書 込">
<INPUT TYPE="RESET" VALUE="クリア">
</FORM>
と
フォームが構成されており、
TYPE="RADIO" NAME="KUBUN"
が重複してます。
'上から３番目の愚痴系メルマガをチェックしたい時は、
objIE.document.Forms(0).kubun(2).Checked = True 'セレクト状態をtrueにする
や
objIE.document.all("kubun")(2).Checked = True 'セレクト状態をtrueにする
なんてこともできるんですね。
※まぁ、上から３番目、0,1,2の２を指定だと、順番変わったら使えないので、
For Each objITEM In objIE.document.Forms(0) 'フォームのオブジェクトでループ
'名前がKUBUNで値がVBAのラジオボタンを探す
If objITEM.Name = "KUBUN" And objITEM.Value = "GUCHI" Then
objITEM.Checked = True 'セレクト状態をtrueにする
End If
Next
と、↑みたいに値を探して、.Checked = Trueにする方法がいいのかなぁ？？？
Sub eee()
Dim objIE As Object 'IEのオブジェクトを入れる器
Dim time10 As Date '時刻計算用
'IEオブジェクトの作成
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True '見えるようにする
'目的のページを表示する(表示させたい)
'アドレスを渡し表示する
objIE.Navigate "http://www.ken3.org/cgi-bin/test/test029-1.asp"
'2秒表示を待つ(強制的に待ってみる)
time10 = DateAdd("s", 2, Now())
Do While True '←無限ループかよ!!!
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'読みこみ完了まで待つ※手抜き
'最大10秒後を計算して、待つ
time10 = DateAdd("s", 10, Now())
Do While objIE.Busy = True
DoEvents
If time10 < Now() Then Exit Do '現在時刻と比べる
Loop
'上から３番目のGUCHIをチェック(2)の.CheckedをTrueにする
objIE.document.Forms(0).kubun(2).Checked = True 'セレクト状態をtrueにする
'下記でもOKです.all("kubun")(2)を操作する
'objIE.document.all("kubun")(2).Checked = True 'セレクト状態をtrueにする
End Sub |
/*
* ７．終わりの挨拶
*/
今回は、
IEのオブジェクトで同じ名前だった時の対応方法でした。
ポイントは、
^^^^^^^^^^^^
.document.all.名前(n)
や
.document.all("名前")(n番目)
みたいに.allから配列的に使う方法
objIE.document.Forms(0).q.Value
や
objIE.document.Forms(1).q.Value
のように、先にフォームを指定する方法。
そんな話でした。
プログラム作りは
^^^^^^^^^^^^^^^^
う〜ん・・・
まぁ、人それぞれ、十人十色、百社百色だけどね。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
今回も逃げるように失礼します。
ＡＢ型の変わり者、三流プログラマーのＫｅｎ３でした。
フィードバック
VBA系の→[掲示板]←を覗く、質問を書き込む
評価・感想
ページフッター(リンクや広告など)
[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係 関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます
広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列
書籍の購入
Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？
コンピュータ書籍の発送がハヤイ専門店
 コンピュータの本・専門店
|
※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり
|
amazon.co.jpでキーワード別チェック
下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・