VBA IDが可変するボタンクリックの方法。

Question

前提・実現したいこと

下記のHTML内の「カートヘ」のボタンをVBAでクリックし実行したいのですが、
●●●●●●の部分が商品ページによって変化するため変数にしたいのですがエラーとなります。

質問は
1)下記のHTMLの「カートヘ」をクリックする方法
2)ページによって異なるIDに対応する方法
の二点です。

<ul class="bookMenu2"> <li class="addCart"> <a href="javascript:void(0);" class="cart dialogBtn_cart" id="●●●●●●">カートへ</a></li> <input type="hidden" class="cms●●●●●●CheckBox" value="●●●●●●"> </ul>

●●●●●●　の部分は商品番号となっており商品により変化します。

発生している問題・エラーメッセージ

エラーメッセージ

実行エラー438
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

該当のソースコード

ソースコード
For Each cart_button In objIE.document.getElementsByTagName("input")
 If cart_button.Value = "●●●●●●" Then
   cart_button.Click
   Exit For
 End If
 Next

試したこと

試しに●●●●●●の部分を変数でなく値を直接入れてみましたがエラーになります。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[kenshirou]

ちなみに、そのサイトでは機械的なアクセス（ユーザーが実際にクリックするのではなく、プログラム的にクリック等を実行すること）は許可されているのでしょうか？
もし許可されていない場合は、何らかの法に抵触する恐れがあります。

Answer 1

クリック対象のHTMLタグが

<a href="javascript:void(0);" class="cart dialogBtn_cart" id="●●●●●●">カートへ</a>

なのであれば、これはaタグなので、このタグを検索したいのであれば、

For Each cart_button In objIE.document.getElementsByTagName("input")

ではなく、

For Each cart_button In objIE.document.getElementsByTagName("a")

です。

これを踏まえると、「カートへ」と書かれたaタグを探してクリックしたいのであれば、

For Each cart_button In objIE.document.getElementsByTagName("a")
    If cart_button.InnerText = "カートへ" Then
        cart_button.Click
        Exit For
    End If
Next

のようになるでしょう。
ただ、（実際のHTMLの内容を見ていないのですが）もしかしたら、cart_button.InnerTextで得られる文字列の前後に改行文字やスペース文字が含まれている場合があるかも知れませんので、それらを考慮して文字列比較をした方が良いと思います。