I figured it out from alternate sites. Just wanted to post for all
those that were having the same problem I was.
Sub webtest()
Dim ie As Object
Dim projNum As String
Dim dept As String
projNum = InputBox("Please enter a project number?", "Time Run")
On Error GoTo 1
Set ie = CreateObject("InternetExplorer.Application")
With ie
.navigate "<URL goes here"
.Visible = True
Do While .Busy: DoEvents: Loop ' Loop until page is loaded
Do While .readyState < 4: DoEvents: Loop
With .document.forms("F001") ' form name goes in ()
.project_id_pulldown.Value = projNum 'all form values listed
below
.xl_or_html.Value = "XL"
.dept_id.Value = "L" & dept
.output_format.Value = "EST"
.submit 'submit form values
End With
End With
Set ie = Nothing
Exit Sub
1: MsgBox "Unexpected Error, sorry."
ie.Quit
Set ie = Nothing
End Sub
Hope this is of help for all those that can't find help on automating
internet explorer from excel. All you need to know is your site form
names and input value fields.
Best Regards,
Mjack
--
mjack003
------------------------------------------------------------------------
mjack003's Profile:
http://www.excelforum.com/member.php...fo&userid=5141
View this thread:
http://www.excelforum.com/showthread...hreadid=494309