VBAでIEを操作submit処理について

質問

ExcelVBAでIEを操作する処理について勉強中です。

formで、nameが定義されておらず、submitが複数(4つ)ある場合です。
HTMLが下記記載の場合で、submit”A”をクリックしたいです。

<form action="XXXX/admin.cgi" method=POST><td>
<input type="submit" value="A"></td></form>
<form action="XXXX/admin.cgi" method=POST><td>
<input type="submit" value="B"></td></form>
<form action="XXXX/admin.cgi" method=POST><td>
<input type="submit" value="C"></td></form>
<form action="XXXX/admin.cgi" method=POST><td>
<input type="submit" value="D"></td></form>

VBAでのsubmitの記述を下記で試してみたのですが、うまくクリックできません。

ObjIE.document.forms(0).Action = "XXXX/admin.cgi"
ObjIE.document.forms(0).submit

どのように変えたらよいのでしょうか。。。
ご教授お願い致します。

回答No.1

007itochan · ベストアンサー

レスが付かないので
考えだけ

submit　を　オブジェクトで　取り込む
For　でオブジェクトを　回して確認
そのオブジェトが　答え　A　と一致したら
叩く

Dim Item As Object
dim ID
dim hit

ID=" submit "
hit="A"

Set Item = oObjDoc.getElementByType(ID)
If IsEmpty(Item) Or pItem Is Nothing Then
Set pItem = oObjDoc.getElementByName(ID)
’オブジェクトが　取れる　のを　探す
endif

For Each Item In oObjDoc.getElementsByTagName("submit")

'上と同じで　Name　じゃなく　Type　かも

If Item.value = hit Then
Item.Click
End If
Next

基本　この手の質問は　技術者向けＰＣ　ＩＥ　あたりで・・・

お礼

ご回答、ありがとうございます。
なるほど、まず、質問カテゴリーの選択ミスですね。
質問投稿、はじめてしたもので。。。すみません。

考え方のご教授、ありがとうございます。
ネット検索で模索しながら勉強してました。
何分初心者なもので、ぱっと内容理解するまでに至りませんが、
やってみます！！！

あいまいな質問にも関わらず、ご回答頂き、
ありがとうございました。m(. .)m