Hi,
I've seen this same question posted on this forum as an avid viewer but I can't seem to relate any of the answers to my HTML so I'm looking for some help.
Below is my HTML.
and below is my current VBA:
Can anybody please help me automating this based on the above HTML.
I've seen this same question posted on this forum as an avid viewer but I can't seem to relate any of the answers to my HTML so I'm looking for some help.
Below is my HTML.
HTML:
<img class="hand" type="image" name="addNewJobImage" src="images/btn_add.gif" alt="Add Job" *******="addJob('new'); return false;">
and below is my current VBA:
Code:
Sub LoadInternet()
Dim url As String
Dim ele As Object
Set ie = New InternetExplorerMedium
' You can uncoment Next line To see form results
ie.Visible = True
url = Sheets("Setup").Range("B9")
ie.navigate url
Application.StatusBar = "Please wait..."
' Wait while IE loading...
Do While ie.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
'Call firstpage
FillInputBox "input", "SCHEME_TITLE", "TESTEST"
FillInputBox "input", "A1141", "TEST1141"
FillInputBoxAfter "select", "PLANNING_SOURCE", "UNK", i
FillInputBoxAfter "select", "JOBSOURCE", "OTHER", i
FillInputBoxAfter "select", "JobType", "31", i
FillInputBox "input", "CRD", Sheets("Sheet1").Range("B8")
FillInputBox "input", "TaskRequiredByDate", Sheets("Sheet1").Range("B8")
FillInputBox "input", "JOBNUM", "TEST"
'automation for clicking add button
Set goBtn = ie.document.getElementById("proceedImage")
goBtn.Click
End Sub
Can anybody please help me automating this based on the above HTML.