VBA IE操作、指定したボタンのクリック

具体的には、ヤマト運輸のビジネスメンバーズのHPです。
https://bmypage.kuronekoyamato.co.jp/bmypage/ser …

以下のコードで、それぞれのボックス（IDやパスワードなど）を入れることができました。
D3～D6セルに　IDなどログインに必要な情報をいれてあります。
しかし、その下部分にある　ログイン　のボタンをクリックする方法が見つからず困っています。

Sub ボタン1_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate Range("D3").Value
objIE.Visible = True
Do Until objIE.Busy = False
DoEvents
Loop
objIE.Document.frm.CSTMR_CD.Value = Left(Range("D4").Value, 12)
objIE.Document.frm.CSTMR_CLS_CD.Value = Right(Range("D4").Value, 3)
objIE.Document.frm.LOGIN_USER_ID.Value = Range("D5").Value
objIE.Document.frm.CSTMR_PSWD.Value = Range("D6").Value

objIE.Document.frm.？？？.Click

End Sub

ログインのボタンに特に名前の指定がないようなのですが、この場合に
ボタンをクリックする方法をご存知の方、ご指導ください。

No.1 回答者： weboner 回答日時： 2015/01/21 12:58

<dd class="login"><a href="javascript:void(0);" onClick="javascript:func_request_Link('LOGIN'); return false;"><img src="

https://bmypage.kuronekoyamato.co.jp/bmypage/scr … alt="ログイン" title="ログイン" class="imgover" /></a></dd>

ちゃんとtitle="ログイン"と名前がついていますよ

この回答へのお礼

ありがとうございます。
一応ですが、総当たり作戦で

For Each x In objIE.document.Forms(0).All
If x.Title = "ログイン" Then
x.Click
End If
Next
で目的は達成できました。
もう少し、スマートな方法をご存じでしたら
ご指導お願いします。

お礼日時：2015/01/22 13:10