サイトのソースのsubmitボタンの数を取得したい

質問

サイトのソースのsubmitボタンの数を取得したいのですが

Sub test()
Dim objIE As InternetExplorer
Dim MyRow As Long

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.coneco.net/"

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop

Debug.Print objIE.Document.all.tags("input").Type("submit").Count

Set objIE = Nothing
End Sub

だとうまく動きません。
どう、変更すればよろしいですか？

回答No.1

jcctaira · ベストアンサー

khepzzdw9さん
多分、submit件数は一気に取得できないと思います。
以下のようにINPUTタグの中を調べてカウントすれば良いかと思います。

Sub test()
　Dim objIE　 As InternetExplorer
　Dim I　　　 As Long
　Dim submit　As Long

　Set objIE = CreateObject("InternetExplorer.Application")
　objIE.Visible = True
　objIE.Navigate "http://www.coneco.net/"

　Do While objIE.Busy = True Or objIE.ReadyState <> 4
　　DoEvents
　Loop

　With objIE.Document
　　For I = 0 To .getelementsbytagname("INPUT").Length - 1
　　　If .getelementsbytagname("INPUT")(I).Type = "submit" Then
　　　　submit = submit + 1
　　　End If
　　Next I
　End With
　Debug.Print submit

　Set objIE = Nothing
End Sub

お礼

一気には無理なのですね。
提示のコードで取得できました。参考になりました。ありがとうございます。