「TDタグからの値取得は、項目名の『次のTDタグ』を指定する手法」
'サンプル5.2.2_詳細画面転記処理
Private Sub
printCustomerData(ie As InternetExplorer, printrow As Integer)
:(変数宣言を略)
'すべてのTDタグを評価し、取得対象項目のデータを変数に格納
Set TDs =
ie.document.frames("Main").document.getElementsByTagName("TD")
For i = 0 To TDs.Length -
1
Select Case Trim(TDs(i).innerText)
Case "お客さまID": CID = TDs(i + 1).innerText
Case "氏名": CName = TDs(i + 1).innerText
Case "住所": CAddress = TDs(i + 1).innerText
Case "魔法": CMagic = TDs(i + 1).innerText
Case "使い魔": CFamiliar = TDs(i + 1).innerText
Case "営業担当": SalesDept = TDs(i + 1).innerText
End
Select
Next
'取得データをワークシートに転記
Sheet2.Cells(printrow,
1).Value = CID
Sheet2.Cells(printrow,
2).Value = CName
Sheet2.Cells(printrow,
3).Value = CAddress
Sheet2.Cells(printrow,
4).Value = CMagic
Sheet2.Cells(printrow,
5).Value = CFamiliar
Sheet2.Cells(printrow,
6).Value = SalesDept
'一覧画面に戻る
For Each Anchor In
ie.document.frames("Main").document.getElementsByTagName("A")
If
InStr(Anchor.innerText, "戻る") > 0 Then
Anchor.Click
waitNavigation ie
Exit Sub
End
If
Next
End Sub