VBAでキーワード検索

質問

• VBAを使用してEXCEL（テキスト可）内に書かれた大量のキーワードをGoogle検索し、検索結果ページ内の目的の情報を取得してEXCELに出力する方法について教えてください。
• EXCEL2010かEXCEL2000に対応している場合に限り、VBAを使用してキーワード検索を自動化する方法を教えてください。
• 検索結果（1ページ目のみ）のリンクをクリックし、目的の情報を取得する方法に関して、VBAでの記述方法がわかりません。アドバイスお願いします。

回答No.2

shirokuma2014

そこから先はちょっと難しく、Web上にもあまり載っていません。
HTMLの知識とVBAの知識がかなりないと厳しいかと思います。

for each obj in objIE.document.getelementsbytagname("A")
obj.click
next

で全てのAタグをクリックします(この方法ではクリックできないリンクもあります)。

objIE.document.body.innerText

でページ内の文字列全てを取得します。

if instr(objIE.document.body.innerText,"○○")>0 then
　debug.print objIE.document.body.innerText
end if

で、文字列に○○があったら、ページ内の文字列全てを取得します。

あとは、HTMLソースを表示して中を解析し、
objIE.document.getelementbyid("").～
objIE.document.getelementsbyname("").～
objIE.document.getelementsbyclassname("").～
などで必要な部品を動かします。

これらを複合的に利用して記述します。

補足

ご回答ありがとうございます。

確かに難しいですね。組み合わせればできそうではありますが・・・。
検索でもヒントとなるサイトがなかなか見つかりませんでしたし。
だからこのQ&Aで解決できればと思っています。

もし可能でしたら、下記ソースコードに追記いただきますと助かります。
（VBAで検索した場合の例）

’Googleで「VBA」と検索する
Sub GoogleSearch()
Dim objIE As Object

'IE起動
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

'Googleに接続
objIE.navigate "http://www.google.co.jp"

'IEを待機
Call IEWait(objIE)

'検索窓に「VBA」と入力
objIE.Document.getElementById("q").Value = "VBA"

'5秒停止
Call WaitFor(5)

'検索ボタンを押す
Call IEButtonClick(objIE, "Google 検索")

'5秒停止
Call WaitFor(5)

'IE終了
objIE.Quit

Set objIE = Nothing
End Sub

’ボタンを押す関数
Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String)
Dim objInput As Object

For Each objInput In objIE.Document.getElementsByTagName("INPUT")
If objInput.Value = buttonValue Then
objInput.Click
Exit For
End If
Next
End Function

'IEを待機する関数
Function IEWait(ByRef objIE As Object)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
End Function

'指定した秒だけ停止する関数
Function WaitFor(ByVal second As Integer)
Dim futureTime As Date

futureTime = DateAdd("s", second, Now)
While Now < futureTime
DoEvents
Wend
End Function