View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] save_antartica@yahoo.com is offline
external usenet poster
 
Posts: 2
Default How can I call a JavaScript Function from Excel VBA

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!!!