削除

VBAでIEの自動操作について削除

Message#2 2014年10月7日(火)11時20分
From: 管理人

サンプルを参考にしてください。
処理の内容としては、IEでyahooページを開いてから検索キーワード入力し検索をクリックします。

次にH3タグがタイトルタグになりますが、一番上はリスティング広告枠ですので、リスティング広告かどうかチェックするために「rd.listing.yahoo.co.jp」が含まれていないものを取得する処理にしています。
そして、その最初の処理が一番上のサイトとなりますので、innerTextプロパティでタイトル名を取得しています。

ここではデバックプリントを利用していますが、セルなどに変更してください。

化粧品も同じ処理で最後にIEを閉じて完成です。

Sub sample()

Dim objIE As InternetExplorer
Dim objTag As Object

'YahooをIEで開く
Call ieView(objIE, "http://www.yahoo.co.jp/")

'検索処理
Call formText(objIE, "p", "ダイエット")
Call tagClick(objIE, "input", "検索")

'リスティング広告を除いた一番最初のサイトタイトルを取得
For Each objTag In objIE.document.getElementsByTagName("h3")
If InStr(objTag.outerHTML, "rd.listing.yahoo.co.jp") = 0 Then
Debug.Print objTag.innerText
Exit For
End If
Next

Call ieView(objIE, "http://www.yahoo.co.jp/")

'検索処理
Call formText(objIE, "p", "化粧品")
Call tagClick(objIE, "input", "検索")

'リスティング広告を除いた一番最初のサイトタイトルを取得
For Each objTag In objIE.document.getElementsByTagName("h3")
If InStr(objTag.outerHTML, "rd.listing.yahoo.co.jp") = 0 Then
Debug.Print objTag.innerText
Exit For
End If
Next

'IEを閉じる
objIE.Quit

End Sub

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。