「中身が『ラーメン』という<td>が見つかったら、
『次の<td>タグの中身を取得』、というロジックになっている」
'サンプル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
Next
End Sub