Step 8　Googleの検索結果の総件数を取得

Yahoo・Googleの検索順位チェックソフトを作ってみよう

Step 8　Googleの検索結果の総件数を取得

検索すると上部分に「エクセル　VBA の検索結果約 3,030,000 件中 1 - 100 件目 (0.21 秒)」と表示されます。
この約から件中までの数値を抜き出せば総件数が分かります。
ソースを見ると、「 」からその次の「」を見つければ、MID関数で取り出すことができると分かります。
これを実行しているのが下記のコードです。

テストコード

下記のコードを追加してください。

Private Sub ExGoogleSearch(shtml As String)
 Dim ln1 As Long
 Dim ln2 As Long
 Dim ln3 As Long
 Dim s1 As String
 Dim s2 As String

 '検索件数を調べる
 ln3 = 0
 ln1 = InStr(1, shtml, " ")
 If ln1 > 0 Then
 ln2 = InStr(ln1, shtml, "")
 If ln2 > 0 Then
 s1 = Mid(shtml, ln1 + Len(" "), ln2 - (ln1 + Len(" ")))
 '件数
 ln3 = s1
 End If
 End If
End Sub

Topへ