質問: nothing end sub を実行してvbaでie操作をしたいのですが、うまくできません。 【質問1】 objie.document.forms(0).submit はエラーにならないのですが、検索ボタンがクリックされず(検索結果は表示されず) 詳細検索画面 http://www.jorudan.co.jp/norikae/cgi/nori.cgi?rf=top&eok1=&eok2=&pg=0&eki1=%e6%9d%b1%e4%ba%ac&eki2=%e5%93%81%e5%b7%9d&dym=201207&ddd=24&dhh=14&dmn1=3&dmn2=2&cway=0&csg=1 に進んでしまいます。 objie.document.links(0).clickにしてもダメでした。 【質問2】 出発地、到着地の指定はできたのですが日時の指定ができません。 2012/08/01 8時00分をプルダウンに入れたいのですが、 objie.document.allをどのようにすればいいのでしょうか? ご教授よろしくお願いします。 ソースを見ると、 select_day();select_time(); となっていて、nameがありません。
回答: iwateryokou26さん はじめまして。 以下のコードでできると思います。 > objie.document.links(0).clickにしてもダメでした。 検索ボタンにも名前がついているので直接クリック命令をした方が良いと思います。 > 出発地、到着地の指定はできたのですが日時の指定ができません。 このエリアはjavascriptで処理しているようで、htmlには表示されません。 http://eki.jorudan.co.jp/com/js/com_v1.js?0301 を分析する必要がありますね。 sub 乗換案内() const readystate_complete as long = 4 dim objie as object set objie = createobject("internetexplorer.application") with objie .visible = true .navigate "http://www.jorudan.co.jp/" do while (.busy = true) or (.readystate <> readystate_complete) doevents loop end with with objie.document.all .eki1.value = "東京" ' 出発地 .eki2.value = "品川" ' 到着地 .dym.value = 201208 ' 年月 .ddd_slc.value = 1 ' 日 .dhh.value = 8 ' 時 .dmn1.value = 0 ' 分(10分単位) .dmn2.value = 0 ' 分( 1分単位) .s.click ' 検索クリック end with set objie = nothing end sub