Excel VBA質問スレ Part13

>>282
とりあえずヒントだけ。(環境依存な部分があるので、このままじゃ動かない)

Sub 件数取得()

　　kw = "ぬるぽ ガッ"

　　Set ObjHttp = CreateObject("Microsoft.XMLHTTP")
　　ObjHttp.Open "GET", "http://www.google.co.jp/search?hl=ja&q=" & kw, False
　　ObjHttp.Send
　　src = StrConv(ObjHttp.responseBody, vbUnicode)
　　Set ObjHttp = Nothing

　　src = Mid(src, InStr(InStr(src, "id=resultStats") + 24, src, "<b>") + 3)
　　src = Left(src, InStr(src, "</b>") - 1)

　　Debug.Print "「"; kw; "」のヒット件数="; src

End Sub