![]()
Sub submitFeedback3() Dim itm As Variant Application.ScreenUpdating = False Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate 'the url link is http://www.heiinfo.slc.co.uk/hei-services/bursaries-service.aspx followed by clicking on hyperlink HE Services Portal While IE.Busy DoEvents Wend delay 5 IE.Document.getElementsbyname("ssousername")(0).Value = "JOEBLOGGS" 'THIS IS WHERE i NEED TO CLICK THE CONTINUE BUTTON Private Sub delay(seconds As Long) Dim endTime As Date endTime = DateAdd("s", seconds, Now()) Do While Now() < endTime DoEvents Loop End Sub
Bookmarks