テーブルの左上が枠番となっているテーブルを探したかったので、
Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT
みたいな感じて、
.Rows(0)で1行目、
.Cells(0)で1列目
の
.InnerTEXTで中の文字を取得できるので、
If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then
で判断してみました。
おまけで、
Wscript.ECHO objTABLE(n).Rows(2).Cells(1).InnerTEXT
Wscript.ECHO objTABLE(n).Rows(2).Cells(2).InnerTEXT
Wscript.ECHO objTABLE(n).Rows(2).Cells(3).InnerTEXT
を表示して、テストしてみました。
テスト結果 操作動画: http://www.youtube.com/watch?v=Ii42c0UBgdE
www.youtube.com
'起動済みの IPAT情報メインメニュー を 探す 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then 'URLをチェックする(アドレスを探す) If InStr(objWindow.document.URL, "info.ipat.jra.go.jp/p/s") > 0 Then Set objIE = objWindow '見つけたウインドウを(IE)を代入 Exit For End IF End If Next Set objShell = Nothing '見つけたかチェック If objIE Is Nothing Then msgbox "エラー IPAT情報 オッズ画面が 見つかりません" wscript.quit End If 'テーブルを抜き出す 'TABLEのタグを集める .getElementsByTagName("TABLE")を使用 Set objTABLE = objIE.Document.getElementsByTagName("TABLE") Wscript.ECHO "TABLEのタグは " & objTABLE.Length & "個です。" 'ループで頭から 中身を表示してみる For n = 0 To objTABLE.Length - 1 Wscript.ECHO n & "番目 .id=" & objTABLE(n).id '名前の確認 Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then Exit For 'ループを抜ける End If Next '↑みつけたテーブルからデータを抜きます Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT Wscript.ECHO objTABLE(n).Rows(1).Cells(2).InnerTEXT Wscript.ECHO objTABLE(n).Rows(2).Cells(1).InnerTEXT Wscript.ECHO objTABLE(n).Rows(2).Cells(2).InnerTEXT Wscript.ECHO objTABLE(n).Rows(2).Cells(3).InnerTEXT Wscript.ECHO objTABLE(n).Rows(2).Cells(4).InnerTEXT Set objTABLE = 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を操作する
で細々やっているので、よかったらお時間のある時にのぞきにきてください。