|
概要: |
リンク 分類:
[Document(文章)からデータを取得]
/ [Form入力処理]
/ [Linkリンク情報]
/ [Image画像情報]
/ [Frameフレーム処理]
サンプル:
[IEを使ったVBAのサンプル]
/ [小さなVBAでIE操作のコード]
やっと、下記、メルマガで発行した内容です。何かの参考となれば幸いです。
過去のメルマガ[IE操作系の記事一覧]もヨロシクです。
こんにちは。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 |
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 |
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 |
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 |
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操作 Name=が同じデータを(n)で処理とFormsを指定して処理]を見てください
三流解説を読んでいただき、どうもです。ここから下は、三流君宛のメッセージ送信や 三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、※質問や感想は、気軽に送ってくださいね。
|
[三流君 VBAでWebBrowser IEを操作する] / [三流君 VBAで楽しくプログラミング] / [AB型の変わり者 三流プログラマー Ken3 三流君Top]
大分類:[Document.Forms(入力処理)]
/ [Document.Links(リンク情報)]
/ [Document.Images(画像情報)]
/ [Document.Frames(フレーム処理)] | |
|
F1でヘルプを見たり、デバック時にDebug.Print使ったり、イミディエイト ウインドウで簡単な確認したり。 項目別に↓にプログラマーの本音？それとも建て前？的な記事をまとめました。お探しのジャンルを選択してください。 項目別に↓に人気の記事をまとめてみました。お探しのジャンルを選択してください。 Excel関係: Access関係: その他：VBAの共通関数やテキストファイルの操作など Blog:[三流君の作業日記]/
[objIEを使用したサンプルコードを見る]/
広告-[通販人気商品の足跡] |
三流プログラマーのKen3 が 皆さんの質問にお答えします
と カッコつけて言っても、実力不足ですべての質問に回答することはできないのが現実なのですが、できる範囲で 三流的な逃げ手 や 解決方法 を探します(回答します)。
感想や質問・要望・苦情など 三流君へメッセージを送る。
時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。