EXCEL VBAでYahoo検索結果からリンクの抽出をしたいです。 削除
Message#2 2014年11月7日(金)08時40分 From: 管理人 |
Yahooリスティング広告のURLを確認すると「rd.listing.yahoo.co.jp」というURLが付いていますので、こちらの場合は除外する処理を加えます。 以下は参考プログラムですので、一度ご確認ください。 ※以下はサブルーチンになりますのでそれぞれご確認ください。 ieView ieNavi formText tagClick Sub sample() Dim objIE As InternetExplorer Sheets("Sheet1").Select Call ieView(objIE, "http://www.yahoo.co.jp") x = 1 For i = 1 To 30 Call ieNavi(objIE, "http://www.yahoo.co.jp") Call formText(objIE, "p", Cells(i, 1)) Call tagClick(objIE, "input", "検索") For Each objTag In objIE.document.getElementsByTagName("h3") If InStr(objTag.outerHTML, "rd.listing.yahoo.co.jp") = 0 Then int1 = InStr(objTag.outerHTML, "href") int2 = InStr(int1, objTag.outerHTML, "<b>") URL = Mid(objTag.outerHTML, int1 + 6, int2 - int1 - 9) Sheets("Sheet2").Cells(x, 1) = URL x = x + 1 End If Next Next i objIE.Quit End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。