Excel2007 Webｸｴﾘ機能についてご質問いたします｡ Webｸｴﾘを用いて､Google, Yahooの任意の検索結果の反映を確認する目的となります｡ここでの任意とは検索ｷｰﾜｰ…

Excel2007 Webｸｴﾘ機能についてご質問いたします｡

Webｸｴﾘを用いて､Google, Yahooの任意の検索結果の反映を確認する目的となります｡
ここでの任意とは検索ｷｰﾜｰﾄﾞとなり､この値はｾﾙ上にﾊﾟﾗﾒｰﾀとして定義しております｡

以下､作成したｸｴﾘとなります｡
Googleはうまくいくのですが､Yahooはｸｴﾘが実行される際に文字化けを起こしてしまい､うまくいきません｡

http://search.yahoo.co.jp/search/?p=["Yahoo", "Search Query"]
http://www.google.co.jp/search?q=["Google", "Search Query"]

添付画像はﾊﾟﾗﾒｰﾀに実際の値が入った例ですが､
Yahooは表示されているような文字化けがおこります｡

もし解決方法がありましたら､ご教示いただけますと幸いです｡
よろしくお願いいたします｡

yahooで漢字(2ﾊﾞｲﾄｺｰﾄﾞ)をうまく自動変換してくれないみたいなので､
http://search.yahoo.co.jp/search?p=%E6%B4%A5%E8%BB%BD%E3%83%AA%E3%83%B3%E3%82%B4
と渡すと､OKみたいです｡

なので､
【ﾊｳﾂｰ】Excel VBAでWebｻｰﾋﾞｽ - ExcelでJScriptの機能を利用しよう (1) はじめに | ﾊﾟｿｺﾝ | ﾏｲﾅﾋﾞﾆｭｰｽ
を参考にして､

津軽ﾘﾝｺﾞを%E6%B4%A5%E8%BB%BD%E3%83%AA%E3%83%B3%E3%82%B4に変換して､
q=の後ろにつなげて Webｸｴﾘｰに渡してみては？

'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 MAIN0405()

  '検索文字を入力 ※本当は､ここはｾﾙから取得ですね･･･
 Dim strWORD As String
 strWORD = InputBox("ｷｰﾜｰﾄﾞ=", "入力", "津軽ﾘﾝｺﾞ")

  '変換処理を呼ぶ
 Dim strPARA As String
 strPARA = JavaScript_encodeURI(strWORD)  'ｷｰﾜｰﾄﾞを渡し結果を受け取る
 
  '確認 手抜きで Shell でWebﾍﾟｰｼﾞを表示する
 Dim strURL As String
  'URL+変換したﾊﾟﾗﾒｰﾀｰでｻｰﾁする
 strURL = "http://search.yahoo.co.jp/search?p=" & strPARA
 Call Shell("explorer.exe """ & strURL & """", vbNormalFocus)

  'これが､うまく Webｸｴﾘｰで応用できたらいいんだけど･･･

End Sub

※ http://www.ken3.org/vba/backno/vba162.html を少し修正

うまいこと､Webｸｴﾘｰのﾊﾟﾗﾒｰﾀｰとして､渡せるといいなぁ･･と思いつつ失礼します｡

ごめんなさい､複雑なVBAの方へ脱線させてしまって､

文字が化けるので､文字ｺｰﾄﾞから攻めた方が良かったみたいです｡

Yahoo!ﾃﾞﾍﾞﾛｯﾊﾟｰﾈｯﾄﾜｰｸ - Yahoo!検索(ｳｪﾌﾞ検索)の検索ﾊﾟﾗﾒｰﾀ仕様

を参考に(他のｵﾌﾟｼｮﾝもみてください｡)

だまされたと思って､
http://search.yahoo.co.jp/search?ei=Shift_JIS&p=津軽ﾘﾝｺﾞ
↑を実行してみてください｡
原因が
http://search.yahoo.co.jp/search?p=津軽ﾘﾝｺﾞ
だと､文字化けなので､
文字を指定した､
ei=Shift_JIS のｵﾌﾟｼｮﾝを付けると､大丈夫な感じです｡

ﾃｽﾄ
http://search.yahoo.co.jp/search?ei=Shift_JIS&p=魚沼こしひかり
 http://search.yahoo.co.jp/search?ei=Shift_JIS&p=ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ
 http://search.yahoo.co.jp/search?ei=Shift_JIS&p=横浜

なので､
webｸｴﾘｰを作成するときに
ei=Shift_JIS 付きで作成してみてください｡
※VBAは忘れてください･･･(ぉぃぉぃ)