JRA IPATで情報を取得 1.2 情報メニューを押す

上で見つけた、IEから、情報メニューを押したかったので、
.getElementsByTagName("A")
で、
リンクのAタグを集めて、
.OuterHTMLで中身のソースを確認、
中に、情報メニューがあるか？(InStr関数で探し)
If InStr(objA(n).OuterHTML, "情報メニュー") > 0 Then
で判断してみました。

操作動画 : http://www.youtube.com/watch?v=w5KsIonPHZ0
www.youtube.com

コード

'↑上で見つけたIPAT　投票メニューから 情報メニュー を 押す

    'Aのタグを集める .getElementsByTagName("A")を使用
    Set objA = objIE.Document.getElementsByTagName("A")

    'ループで頭から表示してみる
    For n = 0 To objA.Length - 1
        '※.InnerHTMLじゃなくて、.OuterHTMLでAの全体を見る
        '情報メニューのリンクを探す、ソースの文字を探す
        If InStr(objA(n).OuterHTML, "情報メニュー") > 0 Then
            objA(n).Click  'クリックする
            Exit For  'ループを抜ける
        End If
    Next

    Set objA = Nothing  'オブジェクト変数解放

JRA IPAT単勝オッズ取得 開発の流れ と 全体の流れ
は
JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ
http://ken3hitori.g.hatena.ne.jp/bbs/30
↑の流れを見て、笑ってください・・・
JRA IPATを操作する他のサンプル・類似処理は、
・JRA IPAT ログイン処理
・JRA IPAT 入金処理 - 三流君ken3のひとりグループ
です。また、VBA IE操作の解説は
三流君VBAでIE操作 InternetExplorer.Applicationを操作する
で細々やっているので、よかったらお時間のある時にのぞきにきてください。