![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルのマクロを使用して
グーグル検索の所定のキーワードを取り込むようにしたのですが
処理としまして、プログラムを起動すると
ユーザーフォームが起動して、テキストボックスがあり
テキストボックス内に検索したいキーワードを入力して
ボタンをクリックしたら
メモ帳に自動でキーワードを書き込まれるようにしたいです。
出来れば、検索結果の一番下のほうに
「他のキーワード」と言うのがありまして
ダイエットで検索すると
「他のキーワード」が
ダイエット日記
ダイエット方法
食べ合わせダイエット
骨盤ダイエット
ダイエット レシピ
ダイエット 運動
どうぶつダイエット
ダイエット ブログ
バナナ ダイエット
炭水化物ダイエット
といったキーワードが出てくるのを
メモ帳に自動で書き出すのと
「他のキーワード」で検索すると
そこにも「他のキーワード」がありますので
それもメモ帳に書き出すようにしたいです。
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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ダイエット中に食べすぎた時、...
-
Instagramの広告で医療ダイエッ...
-
ダイエットしてたら時間が長く...
-
岡田斗司夫はなぜまた太ったの...
-
親からダイエットなんてしなく...
-
年中「ダイエット中」と言って...
-
私はとてつもないデブでとてつ...
-
チューイングは危険ですか?
-
オリーブオイルと米油 どちらの...
-
ダイエット15キロ痩せたら。 16...
-
男性のダイエットで、 身長170...
-
男でも痩せたら変わる?
-
わたしは今丸顔なのですが痩せ...
-
彼氏がダイエット2~3ヶ月くら...
-
12キロ太り、スポーツクラブ...
-
食べるダイエットと食べないダ...
-
ファスティングから断食
-
20キロ近く太ってしまいきれる...
-
分かってますが・・・楽して痩...
-
ダイエット仲間とのダイエット
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Instagramの広告で医療ダイエッ...
-
岡田斗司夫はなぜまた太ったの...
-
インスタの医療ダイエットの無...
-
ダイエット中に食べすぎた時、...
-
チューイングは危険ですか?
-
親からダイエットなんてしなく...
-
私はとてつもないデブでとてつ...
-
ダイエット中の人と遊びたく有...
-
私は超薄味に慣れていて、外食...
-
年中「ダイエット中」と言って...
-
加藤大…について
-
同性の同僚が劇的に痩せたら
-
ダイエットしてたら時間が長く...
-
同棲していますが、セックスレ...
-
男性のダイエットで、 身長170...
-
ダイエット中の彼女に何と言えば
-
家庭科のレポートについて。ま...
-
太りすぎて 親戚のお姉に 強く...
-
島崎和歌子がやせた理由
-
痩せたい 1ヶ月後にライブがあ...
おすすめ情報