ie操作について教えてください
vbaで
alt="口座情報"
をクリックしたいのですが、うまく押せません。
ソースの一部は
******************************************************
<form name="frmSubmit">
<map id="Map" name="Map">
<area title="お問い合わせ 0120-456-858" onclick="return OpenLink();" href="javascript:void(0);" shape="rect" alt="お問い合わせ 0120-456-858" coords="273,13,463,40">
<!--area shape="rect" coords="426,13,469,40" alt="TOP" href="javascript:void(0);" onclick="return SubmitTask('RT', 'WEL', '00', '100', '');"-->
<area title="FAQ" onclick="return GetLinks();" href="javascript:void(0);" shape="rect" alt="FAQ" coords="487,13,529,40">
<area title="ヘルプ" onclick="return CallForHelp();" href="javascript:void(0);" shape="rect" alt="ヘルプ" coords="547,13,598,40">
<area title="ログアウト" onclick="return SubmitTask('RT', 'CDC', '49', '', '');" href="javascript:void(0);" shape="poly" alt="ログアウト" coords="612,17,687,17,689,19,689,34,687,36,612,36,610,34,610,19">
<area title="口座情報" onclick="return SubmitTask('RT', 'ACS', '00', '23', 'frmCurrencyAndBal');" href="javascript:void(0);" shape="poly" alt="口座情報" coords="87,79,0,79,0,61,2,56,5,53,82,53,85,56,87,60">
<area title="振込・振替" onclick="return SubmitTask('RT', 'CDC', '09', '', '');" href="javascript:void(0);" shape="poly" alt="振込・振替" coords="191,79,91,79,91,64,93,59,96,56,184,56,188,58,191,62">
<area title="資産運用" onclick="return SubmitTask('RT', 'CDC', '08', '', '');" href="javascript:void(0);" shape="poly" alt="資産運用" coords="284,79,195,79,195,64,197,59,200,56,279,56,283,60,284,63">
<area title="ローン" onclick="return SubmitTask('RT', 'HLI', '00', '100', '');" href="javascript:void(0);" shape="poly" alt="ローン" coords="355,79,288,79,288,64,290,59,295,56,341,56,350,56,355,63">
<area title="レート照会" onclick="return SubmitTask('RT', 'CDC', '10', '', '');" href="javascript:void(0);" shape="poly" alt="レート照会" coords="462,79,360,79,360,64,362,59,365,56,454,56,460,59,462,63">
<area title="お客さまサポート" onclick="return SubmitTask('RT', 'CDC', '11', '', '');" href="javascript:void(0);" shape="poly" alt="お客さまサポート" coords="607,79,465,79,465,64,467,59,472,56,600,56,605,58,607,63">
</map>
</form>
******************************************************
です。
'１個目の実験*****************
For Each myobj In objIE.Document.all.tags("area")
If TypeName(myobj) = "HTMLInputElement" Then
If myobj.alt = "口座情報" Then
myobj.Click
Exit For
End If
End If
Next
'2個目の実験*****************
For Each myobj In objIE.Document.all.tags("form")
If TypeName(myobj) = "HTMLInputElement" Then
If myobj.alt = "口座情報" Then
myobj.Click
Exit For
End If
End If
Next
'3個目の実験*****************
Dim objIMG As HTMLImg
Dim objDOC As HTMLDocument
Set objDOC = objIE.Document
For i = 0 To objDOC.images.Length - 1
Set objIMG = objDOC.images(i)
If objIMG.alt = "口座情報" Then
objIMG.Click
End If
Next
'4個目の実験*****************
For Each myobj In objIE.Document.all.tags("form")
'↓で実行時エラー'438 オブジェクトはこのプロパティまたは メソッドをサポートしていません
If myobj.alt = "口座情報" Then
myobj.Click
Exit For
End If
Next
'5個目の実験*****************
'ひっかからない
For Each myobj In objIE.Document.all.tags("area")
If myobj.alt = "口座情報" Then
myobj.Click
Exit For
End If
Next
をやってみたのですが、
どれも引っかからないです。
画像の「口座情報」をクリックしたいのです。ログインはｖｂａでできました。
どうすればいいでしょうか！？
ご教授よろしくお願いします。
