EXCEL VBA TIPS

OMCカードの会員ページOMC Plus Top > ご利用明細 > 最近のご利用(未請求分)　>　詳細を見る
より買い物一覧をexcelに取り込みます
前提：OMC@Plus会員専用インターネットサービスのidがあること
　　　　ワークシート：accountにid,パスワードがあること。Id：1行1列、パスワート：2行1列
動作：”次の5件”のリンクがなくなるまでショッピングの明細をブラウズ
　　　　カレントのワークシートに一覧を取り込み
以下ソースです
Dim objIE0 As Object 'ルートのオブジェクト、操作コードではこの名称を使用します
Dim objIE1 As Object, objIE2 As Object 'FRAMEのオブジェクト、ネストが3重以上になる場合は、objIE3,objIE4・・・を追加してください
Dim s As String, nn As Integer
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" Then
If Window.Document.URL = "https://ca.omc-card.co.jp/member/omcplus_login.html" Then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s = True
Exit For
End If
End If
Next
If win_s = False Then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Visible = True
objIE0.navigate "https://ca.omc-card.co.jp/member/omcplus_login.html"
Do While objIE0.Busy = True
DoEvents
Loop
Do While objIE0.Document.readyState <> "complete"
DoEvents
Loop
End If
'---header end---
'---以下操作コード、必要な部分をコピーしてください---
objIE0.Document.all.sid_input.Value = Worksheets("account").Cells(1, 1).Value ' text index=2
objIE0.Document.all.pw_input.Value = Worksheets("account").Cells(2, 1).Value ' password index=3
objIE0.Document.links(0).Click 'javascript:checkInput(document.form1);
Call ie_wait(objIE0)
Dim meisai(6) As String
j = 0
Call link_click(objIE0, "text_inc", "ご利用代金明細照会")
Call link_click(objIE0, "text_inc", "詳細を見る")
s_pos = 2
x = 99
s = objIE0.Document.body.innerhtml
Do Until x = -1
s = strmid(s, "<TH>ご利用日</TH>", "")
Do Until InStr(s, "<TD class=left>") = 0
dd = strmid(s, "<TD class=left>", "<")
shop = strmid(s, "<TD class=left>", "<")
gaku = strmid(s, "<TD class=right>", "<")
Cells(s_pos, 1).Value = dd
Cells(s_pos, 2).Value = shop
Cells(s_pos, 3).Value = gaku
s_pos = s_pos + 1
Loop
x = link_click(objIE0, "text_inc", "次の5")
s = objIE0.Document.body.innerhtml
Loop