VBAからIE操作 yahoo路線の検索条件を変更したい

Question

excelに入力フォームを作成し、excelのシート上に記載する社内の旅費精算の簡略化を目指しています。
VBAでInternetExprolerを操作してyahoo路線から必要な路線情報を取得するコードを書こうとしています。
出発駅や時間など検索条件の操作を試みているのですが、一部のセレクトボックスの操作がうまくできません。
コードをみて原因がわかるようであれば回答をお願いしたい次第です。

VBA
コード
Dim IE As Object
'IE起動
Set IE = CreateObject("InternetExplorer.Application")

'IEの操作設定
IE.Visible = True

'サイトを開く
IE.Navigate "transit.yahoo.co.jp"

'IE読込待ち
Do While IE.Busy Or IE.ReadyState < 4
DoEvents
Loop

IE.document.getElementById("y").Value = "2020"
IE.document.getElementById("m").Value = "11"
IE.document.getElementById("d").Value = "10"
IE.document.getElementById("hh").Value = "09"
IE.document.getElementById("mm").Value = "00"

'検索
IE.document.forms("search").submit

'IE読込待ち
Do While IE.Busy Or IE.ReadyState < 4
DoEvents
Loop

乗換案内の日時の操作を試みているのですが、
IE.document.getElementById("mm").Value = "00"

の検索条件の”分”の操作がうまくいかず検索結果では現在の時刻の分数で検索されてしまいます。

"分"の部分のみセレクトボックスの選択ができないような状態です。
IE.document.getElementById("mm")(5).Selected = True
IE.document.all("mm")(2).Selected = True
のように必要部分のコードを変えてみてもどうにもうまくいきません。

該当部分の要素を検索すると以下の通りです。

<select id="mm"> <option value="00">00分</option> <option value="01">01分</option> <option value="02">02分</option> 　　　　　　・ 　　　　　　　・ <option value="58">58分</option> <option value="59">59分</option> </select>

原因がわかる方がいればご回答をよろしくお願い致します。

Answer 1

検索ボタンのクリックにm1、m2追加処理があり、実際にはこちらが使われています。

    $("#searchModuleSubmit").click(function() {
        var a = $("#mm").children("option:selected").val();
        if ($(':hidden[name="m1"]')[0]) {
            $(':hidden[name="m1"]').remove();
            $(':hidden[name="m2"]').remove();
        }
        $("#mm").after('<input type="hidden" name="m1" value="' + a.charAt(0) + '">');
        $("#mm").after('<input type="hidden" name="m2" value="' + a.charAt(1) + '">');
        $("input").attr("autocomplete", "on");
    });

したがって、SubmitではなくClickするようにしてください。

'IE.document.forms("search").Submit
IE.document.getElementById("searchModuleSubmit").Click

Comments

[tanaka_ganbare]

検索をClickで実施したところ希望どうり動作させることができました。
ありがとうございます。

Answer 2

下記のようにソースを変更してください。

'検索 変更前
'IE.document.forms("search").submit
'変更後
IE.document.getElementById("searchModuleSubmit").Click

Step実行していくと値は入っているのですが、
Submitすると値が送られないようです。
（Yahoo路線側の実装？なのだと思いますが、どう動作しているかまでは調べておりません。）

Comments

[tanaka_ganbare]

希望通りの動作に変更することができました。ありがとうございます。

Answer 3

入力間違い削除しました。

Answer 4

OPTIONの選択は、SELECT要素では操作できないと思います。
該当のOPTIONエレメントを直接操作してください。

具体的には、たとえばOPTIONの6番目の要素(=05分)を選択するのであれば、

ie.document.getElementById("mm").getElementsByTagName("OPTION")(5).Selected = True

となります。

ちなみに、他にすでに選択されている要素がある場合、上記によって、
そちらは自動的にfalseになります。

Answer 5

分(mm)の入力はプルダウンメニューですから、値(.value)を設定するのではなく、該当する選択枝をSelectedにすれば良いのだと思います。

具体的なコードについては、Excel VBAでIEを操作　セレクトメニューを選択　の記事の説明が判りやすいと思います。