イベントサイトのイベント情報をVBAで抽出するには 削除
| Message#2 2014年11月14日(金)14時43分 From: 管理人 |
| リンクだけということなので、HTMLソースを見てみると「class="title"」がリンク特有のキーワードのようですね。 あとは、そのリンクだけを抽出していくのと、ページ分をループさせるだけなので、特に難しいことはないと思います。 ieViewなどのサブルーチンについては、本サイトを学習してください。 Sub iichiList() Dim objIE As InternetExplorer Dim i As Integer, n As Integer n = 2 Call ieView(objIE, "http://www.iichi.com/events") For i = 1 To 146 Call ieNavi(objIE, "http://www.iichi.com/events?page=" & i) 'イベントリンク取得 For Each objTag In objIE.document.getElementsByTagName("a") If InStr(objTag.outerHTML, "class=""title") > 0 Then Cells(n, 2) = objTag.href n = n + 1 End If Next Next i End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
