Thread: HTML values
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
mjack003
 
Posts: n/a
Default HTML values


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