S
save_antartica
I am Trying to Automate the opening and copying of a information from a
website into Excel. In order to do that I first need to login... I
was able in the past to just use something like:
Set ie = CreateObject("InternetExplorer.Application")
With ie
..Visible = True
' Go to login page
..Navigate "http://www.PageIamTryingToLogon.com/"
' Loop until the page is fully loaded
Do Until .ReadyState = 4
DoEvents
Loop
' Make the desired selections on the web page and click the submit
Button
Set ipf = ie.Document.all.Item("userid")
ipf.Value = "FirstName.LastName"
Set ipf = ie.Document.all.Item("passwd")
ipf.Value = "MyPassword"
Set ipf = ie.Document.all.Item("logon")
ipf.Click
The "ipf.Click" no longer works... after they changed the website...
Now the login section code looks like that:
"...
<td valign="middle" style="HEIGHT: 23px" align="left"><input
onkeypress="return(sendLoginCheck(false));"
onblur="setLoginFlag(false);" onfocus="setLoginFlag(true);"
type="password" maxLength="30" size="20" name="passwd"></td>
<td vAlign="baseline" align="right" colSpan="2"><span
style="CURSOR:hand; cursor: pointer"
onkeypress="sendLoginCheck(false);return(false);"
onclick="sendLogin(this);return(false);"><img src="/Login.gif"
border=0></span>
</td>
...."
I would like to find a way to submit the "sendLoginCheck" in IE from
within Excel..
Any help is welcome!!!
website into Excel. In order to do that I first need to login... I
was able in the past to just use something like:
Set ie = CreateObject("InternetExplorer.Application")
With ie
..Visible = True
' Go to login page
..Navigate "http://www.PageIamTryingToLogon.com/"
' Loop until the page is fully loaded
Do Until .ReadyState = 4
DoEvents
Loop
' Make the desired selections on the web page and click the submit
Button
Set ipf = ie.Document.all.Item("userid")
ipf.Value = "FirstName.LastName"
Set ipf = ie.Document.all.Item("passwd")
ipf.Value = "MyPassword"
Set ipf = ie.Document.all.Item("logon")
ipf.Click
The "ipf.Click" no longer works... after they changed the website...
Now the login section code looks like that:
"...
<td valign="middle" style="HEIGHT: 23px" align="left"><input
onkeypress="return(sendLoginCheck(false));"
onblur="setLoginFlag(false);" onfocus="setLoginFlag(true);"
type="password" maxLength="30" size="20" name="passwd"></td>
<td vAlign="baseline" align="right" colSpan="2"><span
style="CURSOR:hand; cursor: pointer"
onkeypress="sendLoginCheck(false);return(false);"
onclick="sendLogin(this);return(false);"><img src="/Login.gif"
border=0></span>
</td>
...."
I would like to find a way to submit the "sendLoginCheck" in IE from
within Excel..
Any help is welcome!!!