エクセルのマクロを使用して
グーグル検索の所定のキーワードを取り込むようにしたのですが
処理としまして、プログラムを起動すると
ユーザーフォームが起動して、テキストボックスがあり
テキストボックス内に検索したいキーワードを入力して
ボタンをクリックしたら
メモ帳に自動でキーワードを書き込まれるようにしたいです。
出来れば、検索結果の一番下のほうに
「他のキーワード」と言うのがありまして
ダイエットで検索すると
「他のキーワード」が
ダイエット日記
ダイエット方法
食べ合わせダイエット
骨盤ダイエット
ダイエット レシピ
ダイエット 運動
どうぶつダイエット
ダイエット ブログ
バナナ ダイエット
炭水化物ダイエット
といったキーワードが出てくるのを
メモ帳に自動で書き出すのと
「他のキーワード」で検索すると
そこにも「他のキーワード」がありますので
それもメモ帳に書き出すようにしたいです。
1層目の「他のキーワード」を書き出すとこまでは
出来たのですが、2層目の「他のキーワード」を書き出す方法がわかりません。
それと、マクロを書いているエクセルファイルを開いたら
自動でマクロを起動できるように出来ますでしょうか?
わかりにくい説明かもしれませんが
よろしくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
一例です。
Sub test1()
Dim myWind As Object
Dim myUrl As String
Dim tmp1 As Object
Dim tmp2 As Object
Dim kw() As Variant
Dim i As Integer
Dim j As Integer
myUrl = "http://www.google.co.jp/" 'Google
For Each myWind In CreateObject("Shell.Application").Windows
With myWind
If .locationURL = myUrl Then
.Document.forms(0).elements(1).Value = "ダイエット"
.Document.forms(0).elements(2).Click
Do While .Busy = True Or .ReadyState <> 4
DoEvents
Loop
If .locationURL Like "http://www.google.co.jp/search*" Then
Set tmp1 = .Document.getElementById("brs")
Set tmp1 = tmp1.getElementsByTagname("a")
ReDim Preserve kw(tmp1.Length - 1)
For i = 0 To tmp1.Length - 1
MsgBox "ダイエット" & ":" & tmp1(i).innertext
kw(i) = tmp1(i).innertext
Next i
For i = 0 To UBound(kw)
.Document.forms(0).elements(1).Value = kw(i)
.Document.forms(0).elements(2).Click
Do While .Busy = True Or .ReadyState <> 4
DoEvents
Loop
Set tmp2 = .Document.getElementById("brs")
Set tmp2 = tmp2.getElementsByTagname("a")
For j = 0 To tmp2.Length - 1
MsgBox kw(i) & " : " & tmp2(j).innertext
Next j
Next i
End If
End If
End With
Next myWind
End Sub
No.1
- 回答日時:
>1層目の「他のキーワード」を書き出すとこまでは
>出来たのですが、
どのような方法で実現なさっているのか、ご質問文からでは不明ですが、
検索結果のソースから『他のキーワード』みたいなものをキーにしてキーワードを取得していると仮定するなら、
表示されているキーワードのリンク先にserch以下のサーチがエンコードされて出ていますので、それを元に、順に同じことを繰り返せばよろしいのではないでしょうか?
あるいはリンク先を用いなくても、キーワードを取得しているので、そのままキーワードを入れ替えて同じ処理をしてもよろしいかと…
>それと、マクロを書いているエクセルファイルを開いたら
>自動でマクロを起動できるように出来ますでしょうか?
Workbook_Openなどのイベントで実行するようにしておけば可能です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) セルの値をグーグルで検索するエクセルVBAについて! 2 2022/08/01 21:41
- ヤフオク! ヤフオク タイトル 隠し技? 裏技? 1 2023/04/25 06:09
- Amazon アマゾンで出版中の本の販売部数を伸ばすためには、どうすれば良いですか? 4 2022/08/18 23:30
- その他(ブログ) ブログを始めたいと思うのですが、下記のような場合のおすすめブログサービスを教えてください。 収益化な 4 2023/04/10 10:01
- Excel(エクセル) エクセルVBAについて質問です。 2 2022/12/09 17:59
- 生物学 生物学と物理学、生物学と数学が交わる分野 について興味があるのですが、どう調べたらその分野について検 2 2022/10/02 14:05
- その他(パソコン・周辺機器) フォルダの中を特定のキーワードを含むファイルだけ探したいのに、そのキーワードが含まれてないファイルも 2 2023/04/07 11:56
- ダイエット・食事制限 ダイエットなどについて教えてほしいこと↓ ダイエットが続く方法ありますか?運動、ダンス、食事制限全て 4 2022/05/28 16:37
- SEO ひとつのキーワードで記事を書くというのが、いまいちわかりません。 ↓参考アドレス https://t 2 2022/11/04 08:46
- YouTube ユーチューブへの動画投稿にサムネイルを付ける方法は? 1 2022/07/21 23:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
皆さんならどう思いますか??...
-
ダイエットって辛いんですか?
-
チューイングは危険ですか?
-
皆さんダイエット中に何を食べ...
-
メディシンボールのダイエット ...
-
ダイエット中のご飯について ダ...
-
ダイエット歴一ヶ月の40歳男で...
-
糖尿病の薬によるダイエットの...
-
Instagramの広告で医療ダイエッ...
-
ダイエット中の人と遊びたく有...
-
就活 面接で学生時代に頑張った...
-
夕食の献立に悩んでいます。祖...
-
岡田斗司夫はなぜまた太ったの...
-
おばさんが痩せる意味ってなん...
-
私は超薄味に慣れていて、外食...
-
ダイエットやる気の出る言葉を...
-
ジョギング後の強烈な眠気や空...
-
三食きちんと食べて、間食をま...
-
今日 朝からずっと過食してしま...
-
お菓子VSご飯
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
チューイングは危険ですか?
-
Instagramの広告で医療ダイエッ...
-
男性のダイエットで、 身長170...
-
岡田斗司夫はなぜまた太ったの...
-
踏み台昇降、エアロバイク、ス...
-
男でも痩せたら変わる?
-
ダイエット中の人と遊びたく有...
-
おばさんが痩せる意味ってなん...
-
ダイエット中です 生チョコタル...
-
私はとてつもないデブでとてつ...
-
ダイエットしてたら時間が長く...
-
私は超薄味に慣れていて、外食...
-
糖尿病の薬によるダイエットの...
-
家庭科のレポートについて。ま...
-
就活 面接で学生時代に頑張った...
-
ダイエット相談です。 25キロ痩...
-
皆さんダイエット中に何を食べ...
-
ここ1週間で 体脂肪率が4%増え...
-
今時の子達はダイエットダイエ...
-
PFCバランス? 主食抜きダイエ...
おすすめ情報