Step 5　キーワードでGoogle検索する

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

Step 5　キーワードでGoogle検索する

前回ヤフーで検索に成功しました、次にグーグルで検索してみます。

実行結果画面

Googleで100件検索させるURLは実際にIEで条件設定し入力し取得しました。
その検索文字を入れ替えアドレスを設定します。

「エクセル　VBA」で検索させると成功しました。100件表示されました。
下がその画面です。
IE検索画面

テストコード

下記のコードを入力してください。

Private Sub ExGoogleCheck(skw As String)
    Dim skwutf As String
    Dim surl As String

    skwutf = ExEncodeToUTF8(skw)
    '100件検索表示
    surl = "http://www.google.co.jp/search?as_q="
    surl = surl & skwutf
    surl = surl & "&hl=ja&num=100&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=&cr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=&as_rights="
    tIEobj.navigate surl

    MsgBox "Google Open"
End Sub

下記のコードに変更してください。

Private Sub CommandButton1_Click()
    If ExCreateIEobject Then
        ExGoogleCheck Cells(6, 4)

        ExCreateIEobjectClose
    End If
End Sub

Topへ