'サンプル3.4.2_テキストボックス以外(テーブル)から値を取得する(特定値)
Public Sub
getDataFromTable2()
Dim ie As
InternetExplorer
Dim htdoc As
HTMLDocument
Dim TDs As Object
Dim TD As
HTMLTableCell
Dim i As Integer
'操作対象Web画面を取得
Set ie =
Day2.getIE("単純なテーブルの例")
'ドキュメントを取り出す(参照設定:Microsoft HTML Object
Library)
Set htdoc =
ie.Document
'ドキュメントに含まれるすべてのTD要素を取り出す
Set TDs =
htdoc.getElementsByTagName("TD")
'すべてのTD要素内の値をチェック(Lengthは要素数なので、indexとしては-1が必要)
For i = 0 To TDs.Length -
1
'要素をひとつ取得
Set
TD = TDs(i)
'innerTextをチェック(ここではわかりやすさのため、直接評価する)
If
TD.innerText = "ラーメン" Then
'次のTDタグに金額があるのでi+1番目のinnerTextを表示
MsgBox TDs(i + 1).innerText
'ループを抜ける
Exit For
End
If
DoEvents
Next
End Sub