
セルの値を好きなブラウザでGoogle検索する
https://vbabeginner.net/google-search-cell-values/
このページのサンプルコード
------------------
Sub WebSearch()
Dim sApl '// ブラウザのパス
Dim sWord '// 検索キーワード
Dim sUrl '// Googleの検索URL
'// ブラウザのフルパスを指定
' sApl = "C:\Program Files\Internet Explorer\iexplore.exe"
' sApl = "C:\Program Files\Mozilla Firefox\firefox.exe"
sApl = "C:\Program Files\Google\Chrome\Application\chrome.exe"
'// 検索URLを指定
sUrl = "www.google.co.jp/search?q="
'// 検索キーワードを取得
sWord = ActiveCell.Value
'// ブラウザを起動してGoogle検索を行う
Call Shell(sApl & " " & sUrl & sWord)
End Sub
------------------------------------------
これを参考に、セルの値をグーグルで検索したいのですが、なぜかセルの中にキーワードを複数入れるとクロームのタブがキーワード数開いて検索されます。
例えば、セルの値には・・
「ダイエット 痩せる 方法」
このキーワードが入っているとします。
(スペースは半角)
マクロを実行すると、クロームのタブが3つ開きます。
1つ目のタブは・・・
www.google.co.jp/search?q=ダイエット
2つ目のタブ・・・
痩せる/
3つ目のタブは・・・
方法/
1つ目のタブはダイエットで検索されるのですが、なぜか、2つ目と3つ目のタブは「このサイトにアクセスできません」と出ます。
ちなみに全角のスペースキーを入れると正しく
「ダイエット 痩せる 方法」
このキーワードで検索されます。
そこで質問ですが、半角キーのスペースでも1つのタブで複数キーワードを検索したいのですが、どうすればいいでしょうか?
できれば、スペースが全角と半角、どちらでもできるようにしたいのですが・・・。
どの辺りをいじればいいのか分からないで、教えていただけないでしょうか?
No.2ベストアンサー
- 回答日時:
こんにちは。
原因は#1様の解説の通りですが、Excel には EncodeURL ワークシート関数が用意されています。以下の様にしてみて下さい。
'// 検索キーワードを取得
sWord = WorksheetFunction.EncodeURL(ActiveCell.Value)
多分 Excel2007 以降で使えると思います。それ以前の古いバージョンの Excel だと CreateObject("ScriptControl") を使った方法がありますが、Windows10 など最近の OS だと動かないかもしれません。
No.1
- 回答日時:
セパレーターを指定していないので、タブで開きに行ってますね。
半角スペースは、第一パラメータと第二パラーメータを分けるセパレーターになります。
で、分けられると
C:\Program Files\Google\Chrome\Application\chrome.exe www.google.co.jp/search?q=1つ目
C:\Program Files\Google\Chrome\Application\chrome.exe 2つ目
C:\Program Files\Google\Chrome\Application\chrome.exe 3つ目
という形でChromeが起動され別タブが開くのです。
全角スペースはセパレーターではないので、全角スペースを含む一つのパラメータとして認識されます。
・・・
では、半角スペースの場合はどうすれば良いのか……。
半角スペースを
”%20”
に置き換えましょう。
第一パラメーター%20第二パラメーター%20第三パラメーター
のようにするのです。
sWordに含まれる半角スペースを置換すればOK。
・・・
あるいは、sWord全体をダブルクォーテーションで囲んでしまう。
"第一パラメーター 第二パラメーター 第三パラメーター"
こうする。
(こっちのほうが簡単)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Safari(サファリ) iPhone 初心者にGoogle を使わないで 快適に検索するコツ方法を教えてください 4 2023/03/10 20:53
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- その他(SNS・コミュニケーションサービス) Yahoo!とGoogle検索のしくみの違いを教えてください 2 2022/08/14 01:53
- ライフスタイル・ヘルスケア URLを開くアプリが見つかりません 2 2022/09/16 12:09
- SEO 検索候補に見られたくないキーワードがある 2 2022/09/19 17:34
- Google Maps iPhoneのGoogle検索窓を通常の大きさに 戻す方法を教えて頂けませんか?(切実) 日本全国の 2 2022/10/02 02:08
- Excel(エクセル) 指定値をマクロで検索&シート移動 2 2022/04/27 23:29
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- ヤフオク! ヤフオク タイトル 隠し技? 裏技? 1 2023/04/25 06:09
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
youtubeのサムネイルを縦4列配...
-
Safariで、「プライベート」の...
-
新しいタブと新しいウィンドウ...
-
Accessで独自メニューバーまた...
-
[Ctrl]押しながら[w]でタブが消...
-
firefoxで新しいウィンドウで開...
-
パソコン バツを押すと全部消え...
-
グーグルクロームで右クリック...
-
エクセルでタブ全ての日付を変...
-
イラレで、見失ったウインドウ...
-
ブラウザの使い方についてとい...
-
QRコードで複数セルに一括入力...
-
このページはセドの ドメインパ...
-
UNIX標準出力で表示されるタブ...
-
Outlook /クイック操作の表示...
-
Photoshopで画像を開くと全画面...
-
このサイトのログイン状態の保...
-
QRコードで読み取って飛んだ先...
-
エクセル2010 入力規則 日本語...
-
「Missing Plug-in」について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
youtubeのサムネイルを縦4列配...
-
Safariで、「プライベート」の...
-
新しいタブと新しいウィンドウ...
-
Firefoxで設定を「前回のウィン...
-
Excel tab入力方法
-
グーグルクロームで右クリック...
-
QRコードで複数セルに一括入力...
-
QRコードで読み取って飛んだ先...
-
firefoxで新しいタブを今開いて...
-
acrobatで、タブに表示されるフ...
-
Android でタブを複製する方法...
-
Accessで独自メニューバーまた...
-
Photoshopで画像を開くと全画面...
-
パソコン バツを押すと全部消え...
-
iPadでiCloud ドライブ内のファ...
-
セルの値をグーグルで検索する...
-
firefoxで新しいウィンドウで開...
-
メモ帳のタブ幅を変更する方法
-
TeraPadをタブ化したい
-
画面下のタブが重なって表示される
おすすめ情報
銀鱗さん
回答ありがとうございます。
当方、VBAのことがほとんど分かっていない状態です。もう少し詳しく教えていただけないでしょうか?
出来たらコードを教えてもらうと嬉しいです。
それと、セルの値ですが、キーワードはいつも3つだけとは限りません。
2つの時もあれば、4つの時もあります。
すいませんが、よろしくお願いします。