'サンプル5.2.1_オンライン画面のデータをワークシートに一覧化する
Public Sub お客さまデータ一覧化()
Dim ie As
InternetExplorer
Dim AllAnchors As
Object
Dim i, NextIndex, printrow
As Integer
'IE起動→オンライン画面へ遷移→一覧画面へ遷移
Set ie = getOnline
ie.document.frames("Footer").document.forms("Commands").elements("ShowList").Click
waitNavigation ie
'画面に対して処理(次の画面がある限り処理)
printrow = 3
Do
NextIndex = -1 '次の画面へのAタグインデックス値をリセット
'すべてのAタグに対して処理(インデックスを利用)
For
i = 0 To
ie.document.frames("Main").document.getElementsByTagName("A").Length
- 1
'Aタグコレクションへの参照を格納(再格納)
Set AllAnchors =
ie.document.frames("Main").document.getElementsByTagName("A")
'Cを含むリンクの場合クリックしてお客さま情報へ遷移
If InStr(AllAnchors(i).href, "C") > 0 Then
AllAnchors(i).Click
waitNavigation ie
'お客さま情報のシート転記
printCustomerData ie, printrow
printrow = printrow + 1
'次の画面へのリンクの場合はインデックスを保管しておく
ElseIf InStr(AllAnchors(i).innerText, "次へ") > 0 Then
NextIndex = i
End If
Next
'次のページに遷移
If
NextIndex >= 0 Then
ie.document.frames("Main").document.getElementsByTagName("A")(NextIndex).Click
waitNavigation ie
End
If
DoEvents
'次の画面へ遷移している場合はループ
Loop While NextIndex >=
0
End Sub