削除

カートに入れるボタンを押す方法削除

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

の 'カートに入れるボタンを押す
の修正がわからないところです。

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