お奨め本の目次を見るだけでも勉強になったり
＜IE SELECTタグ OPTIONを選択する.Document.all(n).Selected=True＞
どうも、三流プログラマーのＫｅｎ３です。 今回は、 掲示板でもらった質問、 IEを起動してSELECTタグのoptionを選択 を少し、探ってみたいと思います。 いつものように、たいした解説、回答内容じゃないので、 暇つぶしに休み時間などに拾い読みしてください。 サンプルファイルは、 http://www.ken3.org/vba/lzh/vba110.lzh にtest110-book.xlsが保存されています。/* * １．今回のキッカケ */
掲示板に下記の質問をもらいました。 ---- > すみません。どうしても分からなかったので質問します。 > AccessからIEを起動してフォームに値を入れるというのは > 前回のめるまがでとても参考になりました。ありがとうございます。 > で、そこからなんですが、ドロップダウンの値を直接指定して入力 > することはできるんでしょうか。 > 【ソース例】 > <SELECT name="ken"> > <option value="1">1</option> > <option value="2">2</option> > <option value="3">3</option> > </SELECT> > Htmlソースは上の感じなんですが、これを > objIE.document.all.ken.value = "3" > と指定するとエラーが出ます。 > 指定の仕方が違うと思うのですが、検索しても分からなかったのです。 > プロの人だと「当たり前じゃねえか」と思われるかも知れませんが > 宜しくお願い致します。 ---- なんで、 > プロの人だと「当たり前じゃねえか」 なんて私は、思ったりしないんだけど、 あと、ご教授くださいとか多いんだろう？・・・・ それだけお偉いプログラマー様の回答者が世の中多いんだろうけど。。。 そんな偉いシステム屋さんと私も、同じ扱いを受けて光栄です そこまでレベル上げたいよね、 じゃなくって、なんか悲しいよね（涙） ※全体に言っている独り言なので、質問者の人には言ってないので、 気にしないでね（聞いてほしい独り言が多いってば・・・） 文句を言いたいのは、お偉い回答者さん達とそれを支える熱狂的なご教授信者さん まぁ、そんなこと言っててもダメってのがツライよね。 また、ある掲示板へ戦いにじゃなくって宣伝に行くかな（ある掲示板って？どこ？） えっ、ハヤク解説始めろって？ 質問の回答以外は聞きたくも無いって？ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ それが三流作者のメルマガの特徴なので。 いつもの前置きが長かったですね（謎？）/* * ２．語学力無いので、かなり苦戦する(笑) */
そんなの「当たり前じゃねえか」とは、言えないぐらいに苦戦しました（笑） いろいろと試行錯誤するが私も出来なかった。 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 一流読者の人に、私も、そんなの「当たり前じゃねえか」なんて言われてんだろうなぁ と思いつつ、調べ始めます。 ※なかなか最後まで行き着かないので、 先に回答の３．サンプルを見たほうがいいかも。 で、見てからこちらに戻ってきてください。 IE ドキュメントオブジェクトは、 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 私のパターンは、下記のリンクから探り始めてます。 http://msdn.microsoft.com/workshop/browser/webbrowser/reference/properties/document.asp を見ると、 Microsoft Visual Basic programs that early bind to the HTMLDocument object can reference it through the IHTMLDocument, IHTMLDocument2, and IHTMLDocument3 interfaces. HTMLDocument objectは、 IHTMLDocument IHTMLDocument2 IHTMLDocument3 なんて、インターフェース？を持ってんの？だからなに？ ※ここから下も勝手な和訳が続くので適当に読んでね。 （Ken3の独り言が続く（笑）） IHTMLDocument2 に .allがあって http://msdn.microsoft.com/workshop/browser/mshtml/reference/ifaces/document2/get_all.asp を見ると、 You can use the IHTMLElementCollection::length property to determine the number of element objects in the collection, and the IHTMLElementCollection::item or IHTMLElementCollection::tags function to retrieve individual objects or collections of objects from the collection. You can 何いってんのか、わかんないよ。 日本に来たら、日本語話せよとコンビニ店長時代ならレジ打ったあと言ってたけど、 .comに来たら、英語ぐらい読めと言われそう・・・ なんて話は置いといて、 IHTMLElementCollection って、Elementのコレクションがあるんだってさ。 オブジェクトって階層構造になっていて、 コレクションが階層構造になっているのと、 一番下にプロパティやメソッドがあるので、 それをイメージしながら探ると、英語読めなくても探れると思う。 ※ExcelならExcelアプリの下にブックがあってシートにセル、 セルは値や書式を持っている（プロパティ）、 セルのクリアやコピーの動作（メソッド）がある なんてのが基本です。 ＊途中のブックにたいして、Saveなどのメソッドもあり、 一番下だけにプロパティ・メソッドがあるんじゃないことも注意かなぁ。 Document.All は、そんなコレクションからできてるんだってさ。 ^^^^^^^^^^^^^^^^^ だからなんだっつうの・・・オレは三流プログラマーだってばさ、 英語なんか読めないよ。 ハヤクサンプルソースまでたどり着きたい・・・ で、ここがＤＨＴＭＬのオブジェクトだって・・・ http://msdn.microsoft.com/workshop/author/dhtml/reference/objects.asp おっ、ここに、ＨＴＭＬでよく見かけるタグが存在する。 やっとたどり着いた？ ※ここ、新たなブックマーク候補です。 ここから調べると、タグ単位で探りやすそうです。 相変わらず英語だけど、いろいろと出てきた。 input Creates a variety of form input controls. input type=button Creates a button control. input type=checkbox Creates a check box control. input type=hidden Transmits state information about client/server interaction. などなど、いろいろあるけど、 目的のオブジェクトは、 ~~~~~~~~~~~~~~~~~~~~~~ SELECT タグのOPTIONでしたね。 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ option Denotes one choice in a SELECT element. http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/option.asp にやっと書いてありました。 Syntax HTML <OPTION SELECTED ... > Scripting OPTION.selected [ = bSelected ] Possible Values bSelected Boolean that specifies or receives one of the following values.false Default. Item is not selected as the default. true Item is selected as the default. よくわかんないこと書きやがって、、、 えっと、 OPTION.selected = bSelected と代入しろだって？ で、bSelected Booleanだって？ だったら初めから、 OPTION.selected = True/Falseって書けよ、、と怒り出すぞオイ。/* * ３．サンプルを作成して、テストする */
http://www.ken3.org/vba/test110.html に、下記のテスト用ＨＴＭＬを書きました。 <html> <head> <title>IE SELECT への セットをテストするためのＨＴＭＬ</title> </head> <body bgcolor=#ffffff text=#000000> <hr> <h1>IE SELECT への セットをテストするためのＨＴＭＬ</h1> <hr> <FORM ACTION="http://www.ken3.org/cgi-bin/test/test041-1.asp" METHOD="POST"> <font color="blue">TYPE=SELECT の入力テスト</font><br> <br> あなたの好きなセリーグの球団は？ <SELECT name="ken"> <option value="1">阪神</option> <option value="2">中日</option> <option value="3">ヤクルト</option> <option value="4">巨人</option> <option value="5">広島</option> <option value="6">横浜</option> </SELECT><br> <br> 感想： <SELECT name="kansou"> <option value="3">IE最高</option> <option value="2">ＭＳは日本語技術情報ハヤク作れ</option> <option value="1">イヤもっと英語力付けろ</option> <option value="0">メルマガふざけないで・・・まじめに書け</option> </SELECT> <br> <INPUT TYPE="submit" NAME="btn" VALUE="送信"> <INPUT TYPE="reset" VALUE="入力し直す"> </FORM> </body> </html> <SELECT name="ken"> と 項目名はkenにして６球団を選択 <option value="1">阪神</option> <option value="2">中日</option> <option value="3">ヤクルト</option> <option value="4">巨人</option> <option value="5">広島</option> <option value="6">横浜</option> </SELECT><br> <SELECT name="kansou"> と 項目名はkansouにして３〜０を選択 <option value="3">IE最高</option> <option value="2">ＭＳは日本語技術情報ハヤク作れ</option> <option value="1">イヤもっと英語力付けろ</option> <option value="0">メルマガふざけないで・・・まじめに書け</option> </SELECT> Excelでテストルーチンを作成。 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ６番の横浜を選択してみます。
Sub ie_test()
Dim objIE As Object 'ＩＥオブジェクト参照用
'インターネットエクスプローラーのオブジェクトを作る
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True '見えるようにする(お約束)
'文字列で指定したＵＲＬに飛ぶ
objIE.Navigate "http://www.ken3.org/vba/test110.html"
'表示終了まで待つ
Do While objIE.Busy = True
'何もしないループ（笑）
DoEvents
Loop
'項目名を探して、データをセットする
Dim i As Integer
'全ての項目を調べる
For i = 0 To objIE.Document.all.Length - 1
'インプットのタグか？.tagnameを見る
Debug.Print i & ":" & objIE.Document.all(i).tagname
If objIE.Document.all(i).tagname = "OPTION" Then
'さらに、値が６(横浜)かチェックする
If objIE.Document.all(i).Value = "6" Then
'ここまで調べて、チェックを付ける
objIE.Document.all(i).Selected = True
End If
End If
Next i
End Sub |
↑中日とＭＳは日本語技術情報ハヤク作れが選択されたバグ。
さてと、どうしましょうかねぇ。
また、止めてオブジェクトを見てみます。
If objIE.Document.all(i).Value = "6" Then
で、止めて、中身を確認してみます。
確認方法の詳細は
No.52 InternetExplorer.application .document.body.innerText
http://www.ken3.org/backno/backno_vba11.html#52
を参照してください。
止めて、オブジェクトを見てみると、
おっ、.Textってのがあるよ。
↑オブジェクトの中身
.textに横浜と球団名が出てるから、これを使用して、
中日を選択するには、
'全ての項目を調べる
For i = 0 To objIE.Document.all.Length - 1
'インプットのタグか？.tagnameを見る
Debug.Print i & ":" & objIE.Document.all(i).tagname
If objIE.Document.all(i).tagname = "OPTION" Then
'さらに、値が２とテキストが中日かチェックする
If objIE.Document.all(i).Value = "2" _
And objIE.Document.all(i).Text = "中日" Then
'ここまで調べて、チェックを付ける
objIE.Document.all(i).Selected = True
End If
End If
Next i
と、
objIE.Document.all(i).Value = "2" _
And
objIE.Document.all(i).Text = "中日"
の条件でチェックしました。
なんか情けないよねぇ、、、だとすると、
<option value="0">メルマガふざけないで・・・まじめに書け</option>
をチェックするときは、
If objIE.Document.all(i).Value = "0" _
And objIE.Document.all(i).Text = "メルマガふざけないで・・・まじめに書け" Then
'ここまで調べて、チェックを付ける
objIE.Document.all(i).Selected = True
End If
と書くの？
選択肢のテキストが変わったら、使えないよね・・・
また、
好きな球団横浜、
嫌いな球団ＸＸ
をチェックするプログラム作りたかったら？
SELECTのタグが違っても、同じ値をセットしてしまうよ・・・
以下のようにSELECT タグの下をチェックするのがスマートだと思います。
Sub setSelect(objElement As Object, nValue As String)
' Webフォームのコンボボックスを選択する
For Each objOpt In objElement.tags("OPTION")
If objOpt.Value = strValue Then
objOpt.Seleted = True
End If
Next
End Sub
' 呼び出し
set objElement = objIE.Document.GetElementsByName("ken")(0)
Call setSelect(objElement, "1")
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |