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

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

Hahaha - about the FBI comment although with the way things have been
developing in the news of late, it wouldn't be totally impossible.
Anyway, thanks for the site reference.