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
をやってみたのですが、
どれも引っかからないです。
画像の「口座情報」をクリックしたいのです。ログインはｖｂａでできました。
どうすればいいでしょうか！？
ご教授よろしくお願いします。
お礼
お久しぶりです。お返事遅くなって申し訳ございません。 With objIE.Document.getElementById("MAP") With objIE.all.map With objIE.Document.getElementsByTagName("MAP")(1) With objIE.Document.getElementsByTagName("MAP")(2) With objIE.Document.getElementsByTagName("MAP")(3) With objIE.Document.getElementsByTagName("MAP")(4) With objIE.Document.getElementsByTagName("MAP")(5) すべてダメでした。 実行時エラー'438 オブジェクトはこのプロパティまたは メソッドをサポートしていません だけではなく 実行時エラー91「オブジェクト変数またはWithブロック変数が設定されていません」 になるときもありました。 よくわからないのでまずそのことについて調べてみます。 実際ログインできないのにいろいろと考えていただき、ありがとうございました。