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

最近の書き込み件数：今日 0件、昨日 0件
未読分：6件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#6 2016年4月23日(土)09時30分
From: ジャッカル

返事削除変更

if文通過してクリック処理までいってるか確認した？

そこまでいってなかったらその前でだめってことだね。

Message#5 2016年4月21日(木)22時55分
From: アルパカ

返事削除変更

ご返答ありがとうございました。
残念ながら、クリックはできませんでした^^;
なかなか思い通りにはいかないですね。
>
> こんな感じですかね。

Message#4 2016年4月20日(水)17時32分
From: VBAマスター

返事削除変更

アルパカのメッセージ(#3)への返事

> ご返答ありがとうございます。
>
> 具体的なコード教えていただきたいです。
> よろしくお願いします。

For Each objInput In objIE.document.getElementsByTagName("img")
If instr(objInput.outerthml,"カードに入れる")>0 Then
objInput.Click
Exit For
End If
Next

こんな感じですかね。

Message#3 2016年4月19日(火)23時01分
From: アルパカ

返事削除変更

ご返答ありがとうございます。

具体的なコード教えていただきたいです。
よろしくお願いします。

Message#2 2016年4月17日(日)18時41分
From: VBAマスター

返事削除変更

ボタンのソースを見るとinputタグではなくimgタグで作成されているようですね。

クリック処理はinputタグを選択しているので、該当するものがないんだと思います。
また、ボタンはvalue値がないので、instrで「カードに入れる」が含まれているものをクリックするとしたほうがいいかもしれないですね。

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

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