イベントサイトのイベント情報をVBAで抽出するには 削除
| 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
