Excel2007 Webクエリ機能についてご質問いたします。

あまり 複雑にすると怒られそうですが、
パラメーター入力で、認識しないみたいなので、

Webクエリーをはじめに作成してから、
編集処理をマクロ記録してみます。
URLの編集場所、記録されたコードを探し、アレンジしてみました。

Option Explicit

'VBA から javaScriptのencodeURIを使うテスト
' 先に http://news.mynavi.jp/articles/2012/03/25/vba/index.html を見てください。
'エンコード元の文字列を受け取り、javaScriptのencodeURIで変換して返す
Function JavaScript_encodeURI(strMOJI As String) As String

    '検索文字をJavaScriptのencodeURI関数で作る
    Dim strPARA As String  'パラメーター
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"  'JavaScriptを指定(書き間違えないでね)
    strPARA = sc.CodeObject.encodeURI(strMOJI) 'encodeURI関数を呼ぶ
    Set sc = Nothing
    
    Debug.Print strPARA
    JavaScript_encodeURI = strPARA  '変換結果を返す

End Function

Sub A1クエリーの更新()

    'A1から検索文字を受け取る
    Dim strWORD As String
    strWORD = Range("A1")  'A1を変換したいので。

    '変換処理を呼ぶ
    Dim strPARA As String
    strPARA = JavaScript_encodeURI(strWORD)  'キーワードを渡し結果を受け取る
    
    '記録したクエリー更新にする
    Range("A5").Select   'クエリーの頭を選択して、、URLを変え更新。芸がないけど・・
    With Selection.QueryTable
        .Connection = "URL;http://search.yahoo.co.jp/search/?p=" & strPARA
        .Refresh BackgroundQuery:=False  '↑でセット後 更新する
    End With

    'これが、うまく Webクエリーで応用できたらいいんだけど・・・
    'んっ？、もう一つの Google検索と連動しないと、面白くないのかなぁ・・・

End Sub

http://www.youtube.com/watch?v=M6zRbnXfEc0

↑最後、保存キャンセルで失敗して録画が止まってしまいました・・・参考程度に見てください。

テストで作ったファイルです
http://d.hatena.ne.jp/ken3memo/files/Book0405.zip
↑名前を付けて保存後、ファイルをテストしてみてください。