イベントサイトのイベント情報をVBAで抽出するには
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#5 2014年11月17日(月)21時31分 From: 管理人 | 返事 削除 変更 |
| サブルーチンについては、本サイトのコンテンツをご確認ください。 Sub iichiDetale() Dim objIE As InternetExplorer Dim i As Integer, n As Integer r = maxRC Call ieView(objIE, "http://www.iichi.com/events") For i = 2 To r n = 4 Call ieNavi(objIE, Cells(i, 2)) 'イベントタイトル取得 For Each objTag In objIE.document.getElementsByTagName("h2") Cells(i, 2) = objTag.innerText Exit For Next 'イベントリンク取得 For Each objTag In objIE.document.getElementsByTagName("dd") Cells(i, n) = objTag.innerText Sheets("イベント2").Cells(i, n) = objTag.outerHTML n = n + 1 Next '画像データをダウンロードして保存 Call fileDL(objIE, "640x400", "iichi", i) Next i End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
