エクセルVBA

Question

Sub ie_test() 'IEテストする。
'IEの起動
Dim objIE As InternetExplorer
Dim htdoc As HTMLDocument
Dim link As HTMLAnchorElement
Dim htdoc_frame As HTMLDocument

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

'処理したいページを表示します。
objIE.navigate "https://mainmenu.rms.rakuten.co.jp/"

AppActivate objIE.Name
'ページの表示完了を待ちます。
While objIE.readyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents
Wend

Set htdoc = objIE.document

For Each link In objIE.document.Links
If link.href = "https://mainmenu.rms.rakuten.co.jp/rms" Then
link.Click
Exit Sub
End If
Next

Application.Wait [Now()+"00:00:05"]

objIE.document.all("login_id").Value = "jiki"
objIE.document.all("passwd").Value = "jiki"

End Sub

IE11を利用しています。
指定したURLをクリックさせるまでできたのですが
その次のIDとPASSが入力されません。。
さらに 次へ を押すコードもわかりません。。
どなたか教えて頂けると大変有難いです。。

よろしくお願い致します。

＜追記＞
＜リンク＞ をクリックさせて ＜IDとパスワード＞ を入力して ＜次へ＞ を
押して次ページへアクセスするまでの勉強させてください。

Answer 1

Sub ie_test() 'IEテストする。
'IEの起動
Dim objIE As InternetExplorer
Dim htdoc As HTMLDocument
Dim link As HTMLAnchorElement
Dim htdoc_frame As HTMLDocument

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

'処理したいページを表示します。
objIE.navigate "https://mainmenu.rms.rakuten.co.jp/rms"

AppActivate objIE.Name
'ページの表示完了を待ちます。
While objIE.readyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents
Wend

objIE.document.all("login_id").Value = "jiki"
objIE.document.all("passwd").Value = "jiki"
objIE.document.all("submit").Click
End Sub

Answer 2

Exit Subを
Exit For
に変え

    objIE.document.all("rlogin-username-ja").Value = "jiki"
    objIE.document.all("rlogin-password-ja").Value = "jiki


    objIE.document.all("submit").Click

とする
2016/10/24 14:32追記
そのサイトのbutton name="submit"でしたので追記したClickでbuttonを押せます

Comments

[qopedoeqp]

ご回答ありがとうございます。
オブジェクトが必要です
というエラーになります。。

[qopedoeqp]

うまくいきました！！！
ありがとうございます！