「具体的には<table>タグの子要素<td>タグから値を取得する方法を教える」
'サンプル3.4.1_テキストボックス以外(テーブル)から値を取得する
Public Sub
getDataFromTable()
Dim ie As
InternetExplorer
Dim htdoc As
HTMLDocument
Dim TDs As Object
Dim TD As
HTMLTableCell
'操作対象Web画面を取得
Set ie =
Day2.getIE("単純なテーブルの例")
'ドキュメントを取り出す(参照設定:Microsoft HTML Object
Library)
Set htdoc =
ie.Document
'ドキュメントに含まれるすべてのTD要素を取り出す
Set TDs =
htdoc.getElementsByTagName("TD")
'すべてのTD要素内の値を出力する
For Each TD In TDs
'innerTextを出力
MsgBox TD.innerText
Next
End Sub