エクセルVBAでIEのURLをコピーするには

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2014年10月22日(水)08時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

Message#1 2014年10月19日(日)06時46分
From: ミランダ

返事削除変更

エクセルVBAについて質問です。
エクセルシートのA列に検索キーワード一覧があります。
VBAを使ってyahooページを開き検索テキストボックスにA列の検索キーワードを格納します。
検索ボタンをクリックして検索結果ページが表示されます。

ここまではエクセルVBAを使ってIE操作で自動化できたのですが、ここから検索結果のURLをコピーする方法が分かりません。

検索結果のURLをB列に貼り付けていきたいのですが、どうしたらいいでしょうか？

よろしくお願いいたします。