みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ACCESSを使ってIEを起動しgoogle検索

Win7 sp1 64bit、ACCESS 2013、IE11を使用しています。
IEを起動し、テキストボックスに入力されている値(全角文字)を使って
Google検索を行うフォームを作り、使用していました。
最近、Google検索の結果が、急に文字化けするようになってしまい
対処方法が分からなくなっています。
ソースコードは次の通りです。


Dim objIE As Object
Dim varRet As Variant

Set objIE = CreateObject("InternetExplorer.Application")
varRet = "http://www.google.com/search?q=" & [テキストボックス] & "&num=50&hl=ja&filter=0&lr=lang_ja&ie=Shift_JIS"

If varRet <> "" Then
 objIE.Navigate varRet
objIE.Visible = True
End If
Set objIE = Nothing


PC再起動、キャッシュやクッキーなど、IEの閲覧履歴を全て削除しても
改善できませんでした。

何処かGoogleの仕様が変わったのでしょうか。
文字コードの変換?をコードに追加する必要があるのでしょうか。
対処方法について、ご教授願います。

投稿日時 - 2014-12-20 00:41:07

QNo.8864150

困ってます

質問者が選んだベストアンサー

varRet に入れているURL文字列の末尾に &oe=shift_jis
を追加してみてください。
それでもだめなら、参考URLの記事をみて他の値も試
してみましょう。

参考URL:http://www13.plala.or.jp/bigdata/google.html

投稿日時 - 2014-12-20 13:25:13

お礼

回答ありがとうございます。
パラメータをshift_jisにすると化けるようですが
パラメータを逆に"なし"→"自動判別"で解決しました。
ありがとうございました。

投稿日時 - 2014-12-20 18:08:33

このQ&Aは役に立ちましたか?

7人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問