ＶＢＡでＩＥ操作

質問

こんばんは。エクセル２００３です。
証券会社にＶＢＡでログインを試みてるのですができません。

ソースの一部を転記します。

<label for="account_id"><span>ユーザー名</span></label>
<input type="text" tabindex="1" id="account_id" name="account_id" />
<label for="password"><span>パスワード</span></label>
<input type="password" tabindex="2" id="password" name="password" />
<div id="rememberbox">
<label for="remember" id="rememberlabel">ユーザー名を記録する</label>
<input type="checkbox" tabindex="3" name="remember" id="remember" />
</div>

なので、下記ＶＢＡコードを作りました。

Sub IGマーケット証券()
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.igmarkets.co.jp/login/"

Do While objIE.Busy = True
DoEvents
Loop
Const READYSTATE_COMPLETE As Long = 4
Do Until objIE.ReadyState = READYSTATE_COMPLETE
Loop

objIE.Document.all("account_id").Value = "test"
objIE.Document.all("password").Value = "test"

objIE.Document.Forms(0).submit
Set objIE = Nothing
End Sub

ですが、
objIE.Document.all("account_id").Value = "test"
のところでエラーになってしまいます。
objIE.Document.all("login").Value = "test"
に変えても同じです。

何がいけないのでしょうか？
アドバイスよろしくお願いします。

回答No.2

hotosys · ベストアンサー

>objIE.Document.all("account_id").Value = "test"
>objIE.Document.all("password").Value = "test"

を

objIE.Document.all("account_id")(0).Value = "test"
objIE.Document.all("password")(0).Value = "test"

に

お礼

いろいろやり方があるのですね！助かりました！ありがとうございました。

回答No.1

Hypnomatic

フォームを指定していないからだと思います

Sub IGマーケット証券()
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.navigate "http://www.igmarkets.co.jp/login/"

Do While objIE.Busy = True
DoEvents
Loop
Const READYSTATE_COMPLETE As Long = 4
Do Until objIE.readyState = READYSTATE_COMPLETE
Loop

objIE.document.forms(0).elements("account_id").Value = "test"
objIE.document.forms(0).elements("password").Value = "test"

objIE.document.forms(0).submit
Set objIE = Nothing
End Sub

お礼

うまくできました！助かりました！
elementsは初めて知ったので調べてみます！
ありがとうございました。