About Us

sal21[_55_]

Wrote:
Hi Dave,

I am trying to do something similar and was on the board looking for
solutions...

I started with something like this ....
it filled in the Username and Password ... my problem is that on the
site I am hitting another window opens up which I am trying to figure
out how to close so that the focus is returned to the login window.

__________________________________________________ _____________________________
Public Sub FillInUserName()
Dim brokerAcct As InternetExplorer
Dim OBJ As Object

Set brokerAcct = New InternetExplorer
brokerAcct.Visible = True
brokerAcct.Navigate "<<login URL"
Do Until brokerAcct.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

'Log on
Set OBJ = brokerAcct.Document.all.Item("userName")
OBJ.Value = "<<USERNAME"
Set OBJ = brokerAcct.Document.all.Item("Password")
OBJ.Value = "<<PASSWORD"
Set OBJ = brokerAcct.Document.all.Item("<<loginform")
ifp.Submit

brokerAcct.Quit
Set brokerAcct = Nothing

End Sub
__________________________________________________ __________________________

I have arranged your code but vba return error (block variable not
dedfined-run time 91) why?

Sub LoginSite()
Dim oIE As New SHDocVw.InternetExplorer
Dim sSearchTerm As String
Dim sURL As String

sSearchTerm = "programically fill out web form"

sURL = "http://liberomail.libero.it/"

'open a new, visible IE window
Set oIE = New SHDocVw.InternetExplorer
oIE.Visible = True

'go to desired page
oIE.Navigate sURL

'wait for page to finish loading
Do Until oIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

oIE.Document.all("Username:").Value = Range("a1")
oIE.Document.all("Password:").Value = Range("b1")
oIE.Document.all("Dominio:").Value = Range("c1")

oIE.Document.forms(0).submit
Do Until oIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
' **oIE.Document.forms(0).submit
' This doesn't work either:
' oIE.Document.all("entra").click
End Sub

TIA, Sal

--
sal21

------------------------------------------------------------------------
sal21's Profile: http://www.excelforum.com/member.php...fo&userid=2040
View this thread: http://www.excelforum.com/showthread...hreadid=314336

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Hellllllp Can,t remember pasword	chesjak	Excel Worksheet Functions	3	April 30th 08 05:07 PM
can i carryover data automatically from page to page and how?	JimVT	New Users to Excel	3	September 4th 07 05:42 PM
Excell VBA pasword	Sparky13	Excel Discussion (Misc queries)	5	June 22nd 07 06:40 PM
How do I automatically insert the user (login name) in Excel?	ABlazer	Excel Discussion (Misc queries)	1	September 19th 05 02:48 AM
To print multiple selection and how to back VBA module pasword	Kamran Khatri	Excel Programming	5	September 8th 03 06:17 AM

Menu

About Us