If I get a visit from the FBI for testing your code....
http://msdn.microsoft.com/library/de...gobjnotset.asp
The error you are getting (Object variable or With block variable not set)
means either sUName or does not have a "value"
You need to do some error checking before those lines run.
I don't know if your syntax is correct or not. ".value=" may not be correct
if the data is not numeric.
--
John
johnf202 at hot mail dot com
"mfq" wrote in message
ups.com...
I'm getting Error 91 inconsistently when I run my macro. Macro stops
when it reaches the "USERNAME" line. I've tried setting the object to
nothing at the end and also using a fully qualified name. None works.
Anybody have any ideas? Does this have something to do with the browser
object? (I'm using Excel 2000)
Here's my code:
'''''''''''''''''''''''''''''''''''''''''''''''''' START''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''
Public Sub FHLBSF()
Dim dFRC(1 To 13, 1 To 3) As Double
Dim ie As Object, ipf As Object, tmpWksht As Object
Dim dDuration As Double, PctDone As Double
' Prepare to open the web page
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False
With ie
.navigate "https://member.fhlbsf.com/member/admin/login.asp?"
Do Until Not .Busy
DoEvents
Loop
End With
' INCONSISTENT ERROR 91 HERE
ie.document.all.Item("UserName").Value = sUName
' ERROR
ie.document.all.Item("Password").Value = sPW
ie.document.all.Item("submitButton").Click
ie.navigate sStandardVRCURL
Do Until Not ie.Busy
DoEvents
Loop
ie.ExecWB 17, 2
ie.ExecWB 12, 0
'Logout
With ie
Set ipf = ie.document.all.Item("menu5")
ipf.Click
End With
ie.Quit
Set ipf = Nothing
Set ie = Nothing
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''' END''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''