エクセルVBAのプログラミングについて質問です。 削除
Message#2 2014年10月23日(木)01時05分 From: 管理人 |
他の方と同じような質問だったので見落としていました。 yahoo検索結果のURLを取得するには以下を参考にしてください。 一応リスティング広告のURLは省くような設定にしています。 Sub test() Dim objIE As InternetExplorer Call ieView(objIE, "http://www.yahoo.co.jp") Call formText(objIE, "p", "★キーワード★") Call tagClick(objIE, "input", "検索") r=1 For i = 0 To objIE.document.Links.Length - 1 If InStr(objTag.outerHTML, "rd.listing.yahoo.co.jp") = 0 Then Cells(r, 2) = objIE.document.Links(i).href r = r + 1 End If Next End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。