エクセルのセルの文字をyahooで検索

質問

エクセルのセルに記載されている文字をyahooで検索したいと思っています。

VBA初心者です。色々サイトを見たのですがエラーばっかりで前に進まなかったので
質問させていただきます。

<流れとしては…>

(1)エクセルVBAでマクロを起動させるとyahooを自動的に開く
(2)セルに記載されている文字をコピーしてyahooの検索できる枠にペースト
(3)yahooの「検索」ボタンを自動的に押して検索結果の画面まで進む

を目標にしてマクロを作成したいと思っています。

<出来上がりは…>
(1)エクセルVBAでマクロを起動させるとyahooを自動的に開く
⇒こちらはネットで調べて起動することができました。

(2)セルに記載されている文字をコピーしてyahooの検索できる枠にペースト
⇒Sheet1のA1に記載されている文字をコピーする所まで進みました。
　 yahooの検索の枠にペーストしたいです。

(3)yahooの「検索」ボタンを自動的に押して検索結果の画面まで進む
⇒yahooの検索ボタンを押してそのまま検索結果の画面を開きたいです。

===[マクロ文]==================================================

　 'yahooで自動で検索'
CreateObject("wscript.shell").Run "http://www.yahoo.co.jp/"

Sheets("Sheet1").Select
ActiveSheet.Range("A1").Select
Selection.Copy

====ここまで==================================================

この先が調べてもどうマクロを組んでよいのか不明でしたので
質問させて下さい。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

んと？

sub macro1()
CreateObject("Wscript.Shell").Run "http://search.yahoo.co.jp/search?p=" & worksheets("Sheet1").range("A1")
end sub

お礼

解答ありがとうございました。
エラーなく見れましたのでベストアンサーに選ばせていただきました。

回答No.2

matsu_jun

hiro7thさん、kelthinさん、こんばんわ

kelthinさんの回答は、いつも参考になります。
私も同じことを考えていたのですが、先を越されてしまいました。
ただ今回は、日本語の検索に対応していないように思われます。

日本語に対応させるためには、以下のように記述します。

Sub macro1()
　　With CreateObject("ScriptControl")
　　　　.Language = "JScript"
　　　　URL$ = .CodeObject.encodeURI(Worksheets("Sheet1").Range("A1"))
　　End With
　　CreateObject("Wscript.Shell").Run "http://search.yahoo.co.jp/search?p=" & URL
End Sub

一度お試しください。

お礼

7503508さん
回答ありがとうございます。いけるかな？と思って実行して見ましたが
URL$の所でエラーが出てしまうようでした。
kelthinさんの方法でクリアになったのですが、もう少し基本的な動きを
知りたいです。
たとえば、ソースのこの部分を書き込めば検索枠にペーストされ
この部分を書き込んだら「検索」ボタンが押されたことになるという感じで…

yahoo以外でも活用していきたいと思っておりまして、ご助言いただければ
と思っております。

伝わりづらかったらスミマセン。。