マクロにてセルクリックしたらそのWordをGoogle検索したいです。
FollowHyperlinkを使用するようなのですが、他のページからのコピペでもYahoo検索はできるのですが。
これをGoogle検索”http://www.google.co.jp/search?q=”にWordを追加すると途端にできなくなります。
他の方もGoogle検索のSampleコード載せてくれているのですが、それも同じようなエラーになります。
VBA
1Sub serchtest() 2 3Dim word As String 4Dim URL As String 5 6word = Selection.Text 7URL = "http://www.google.co.jp/search?q =" & word 8'---エラーメッセージ オブジェクトが必要です 9ActiveDocument.FollowHyperlink Address:=URL, NewWindow:=True 10 11End Sub
下記はそのまま書き込んでみました。
VBA
1Sub serchtest2() 2 3Dim strURL 4 5strURL = "http://www.google.co.jp/search?q=VBA" 6'---エラーメッセージ 必要な情報をダウンロードできません 7ActiveWorkbook.FollowHyperlink Address:=strURL, SubAddress:="", NewWindow:=True 8 9End Sub
strURLがネットで見つけた元々のURL"https://www.softel.co.jp/blogs/tech/"にするとちゃんと表示されます。
"http://www.google.co.jp”もちゃんと表示されます。
serchを入れると
’FollowHyperlink’は失敗しました。’_WorkBook’オブジェクト
他に付け足さなきゃいけない関数とかがあるのでしょうか?
検索はしてるのですが思った記事が見つからないです。
よろしくお願いします。
手元の環境ではうまく動きました。(MacのExcelですが・・・)
strURL は http://www.google.co.jp/search までにしておいて、
ActiveWorkbook.FollowHyperlink Address:=strURL, SubAddress:="", ExtraInfo:="q=VBA2", NewWindow:=True
このように、ExtraInfoとしてクエリを渡したらどうでしょうか?
tetsunosukeさん
ありがとうございます。
http://www.google.co.jp/searchまでならWEBは開きます。
ExtraInfoつけるとFollow・・・失敗しました。になりますね。。。
どうもURLの文字列をjavascriptでUTF-8にエンコードするとって記事を見つけたのでちょっとやってみます。
なるほど。例に出してもらっている VBA はうまくいくけど
日本語だとダメ、ということですか!
ExtraInfo:="q=VBA2でも試したのですがうまくいきませんでした。
プログラミングの問題ではない可能性もありそうですね。
同じメッセージでこういうのをみつけました。
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel2013/7460a759-b838-42de-bf02-d7f9b6e33ba4
依存とかそういうものなんでしょうかね???
回答1件
あなたの回答
tips
プレビュー