カートに入れるボタンを押す方法
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2016年4月14日(木)23時16分 From: アルパカ | 返事 削除 変更 |
| 下記のリンクにあるショッピングサイトの真ん中の”カートに入れる”ボタンを自動で押したいのですが、どのようにすればいいのかわからず悩んでいます。ご教示お願いいたします。 エクセルＶＢＡですが、 Sub sample() Dim objIE As InternetExplorer Dim timeOut As Date Dim objTag As Object 'IE(InternetExplorer)のオブジェクトを作成する Set objIE = CreateObject("InternetExplorer.Application") 'IE(InternetExplorer)を表示する objIE.Visible = True '指定したURLのページをIEで起動する objIE.navigate "http://shop.hikaritv.net/shopping/commodity/plala/1000004888/" '完全にページが表示されるまで待機する timeOut = Now + TimeSerial(0, 0, 20) Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Sleep 1 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 20) End If Loop timeOut = Now + TimeSerial(0, 0, 20) Do While objIE.document.readyState <> "complete" DoEvents Sleep 1 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 20) End If Loop 'カートに入れるボタンを押す Call IEButtonClick(objIE, "カートに入れる") End Sub 'ボタンを押す関数 Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String) Dim objInput As Object For Each objInput In objIE.document.getElementsByTagName("INPUT") If objInput.Value = buttonValue Then objInput.Click Exit For End If Next End Function の 'カートに入れるボタンを押す の修正がわからないところです。 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
