Я новичок в этом форуме ... пожалуйста, решите мою проблему ниже:
Я хочу нажать кнопку поиска, чтобы открыть новую страницу, где я могу выполнить поиск, но я не могу нажать кнопку поиска, так как в коде элемента inspect указано только имя кнопки.
ниже приведен код элемента.
button type = "button" on click = "window.location = 'Go? Action = agent'" Поиск / кнопка
пожалуйста, предложите код VBA, чтобы нажать кнопку поиска. извините, но я не могу предоставить URL, так как он не будет работать вне офиса.
спасибо
из приведенного ниже кода я могу войти на страницу и перейти на страницу, где находится кнопка поиска, после чего я застрял на этой странице.
Sub login_page()
Dim IE App As Internet Explorer
Dim IE Doc As Object
'create a new instance of IE
Set IE App = New Internet Explorer
IE App.Visible = True
IE App.navigate "URL"
Do While IE App.Busy: Do Events: Loop
Do Until IE App.ready State = READY STATE_COMPLETE: Do Events: Loop
Set IE Doc = IE App.document
With IE Doc.forms(0)
.user.Value = "id"
.Password.Value = "password"
.submit
End With
IE App.navigate "hyperlink URL"
Do While IE App.Busy: Do Events: Loop
'Do Until IE App.ready State = READY STATE_COMPLETE: Do Events: Loop
IE App.navigate "hyperlink URL"
Do While IE App.Busy: Do Events: Loop
IE App.navigate "hyperlink URL"
Do While IE App.Busy: Do Events: Loop
ieApp.document.getElementsById("go").Value = "123"
With ieApp.document
.getElementById("go").Value = "123"
End With
ieApp.document.parentWindow.getElementsbyid("go").Value = "123"
ieApp.document.parentWindow.getElementbyid("go").Value = "123"
ieApp.document.getElementById("go").Value = "123"
End Sub