「興奮してつい悪ノリしちゃったんだけど、内容の解説お願いしてもいいかな……」
'サンプル5.2.1_オンライン画面のデータをワークシートに一覧化する
Public Sub お客さまデータ一覧化()
:(変数宣言と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