|
現在、下記のVBAにてあるサイトにログインすることが出来ました。
しかし、その先の操作について、どのように命令したら良いのかがわかりません。
やりたいことは、下記のVBAでログインすると、URLが変わり、
1.変わった先のボタン(info)をクリックし、
2.その先のテキストボックス(dscrCdNm)にテキストを入れて、
3.検索ボタン(submit)を押す。
この一連の作業を行いたいのですが、まずはじめのログインした後に表示されるドキュメントの操作の方法がわかりません。
表示されたものを一旦、取得しなければいけないのか???
どなたか、教えてください。よろしくお願いします。
Option Explicit
Sub IE_login()
Dim objIE As Object
Dim strURL_1 As String, strLogin As String, strPassword As String
Set objIE = CreateObject("InternetExplorer.application")
With objIE
.Visible = True
strURL_1 = "楽天証券ログイン.html"
strLogin = "loginid"
strPassword = "passwd"
objIE.Navigate strURL_1
Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.document.ReadyState <> "complete"
DoEvents
Loop
With objIE.document
.all.loginid.Value = strLogin
.all.passwd.Value = strPassword
.getElementById("submit%template").Click
Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.document.ReadyState <> "complete"
DoEvents
Loop
End With
End With
Set objIE = Nothing
End Sub
|
|