Step 4　キーワードでYahoo検索する

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

Step 4　キーワードでYahoo検索する

実際にIEをオープンし、キーワードの検索画面を表示させます。
ヤフーとグーグルで実行予定ですが初めにヤフーで検索してみます。

実行結果画面

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

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

テストコード

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

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

    skwutf = ExEncodeToUTF8(skw)
    '100件検索表示
    surl = "http://search.yahoo.co.jp/search?_adv_prop=web&x=op&ei=UTF-8&fr=op&va="
    surl = surl & skwutf
    surl = surl & "&va_vt=any&vp_vt=any&vo_vt=any&ve_vt=any&vd=all&vst=0&vf=all&yuragi=on&fl=0&n=100&submit=%E6%A4%9C%E7%B4%A2"
    tIEobj.navigate surl

    MsgBox "Yahoo Open"

End Sub

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

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

        ExCreateIEobjectClose
    End If
End Sub

Topへ