ttp://www.google.co.jp/notebook/public/02825526613829070739/BDQgBDQoQ05S_pIMk?hl=ja AutoWeb()Set myIE = CreateObject("InternetExplorer.Application") myIE.Visible = True 'IEを表示する'------------------- 'ページへ移動 myIE.Navigate (") Call myloop(myIE) '表示されるまで待ち合わせ'------------------- '検索文字をセット myIE.Document.w.p.Value = "スイーツ" myIE.Document.w.submit '検索ボタンを押す Call myloop(myIE) '------------------- For Each mytag In myIE.Document.getElementsByTagName("div") If InStr(1, mytag.innerText, "件目 / 約") 0 Then myKEN = InStr(1, mytag.innerText, "件目 / 約") myKEN2 = InStr(myKEN + 1, mytag.innerText, "件")myKEN3 = Mid(mytag.innerText, myKEN + 6, myKEN2 - myKEN - 7) MsgBox "約" & myKEN3 & "件" Exit For End If Next'------------------- myIE.Quit: Set myIE = Nothing 'IE終了 MsgBox "完了"End Sub Sub myloop(myIE) Do Until myIE.busy = False And myIE.readyState = 4 LoopEnd Sub基本はこんな組み合わせですが あとはページによります どこのページですか補足にmyIE.Document.getElementById("ID名").Value = "検索" IDがあればIDで呼び出して 値を設定することができますHTMLソースを見てINPUTタグを探しますFORMタグを探してSubmitしますやってみてから 分からないことを質問してください
|