Question

我是这个论坛的新手……请解决以下问题：我想单击搜索按钮以打开可以在其中搜索的新页面，但是我无法单击搜索按钮，因为在检查元素代码中仅给出了按钮名称。下面是元素代码。

点击 button type =” button“”搜索/ button

请提供VBA代码建议以单击搜索按钮。抱歉，我无法提供该网址，因为它将无法在办公室外使用。

谢谢从下面的代码中，我可以在页面上登录，然后在我停留在该页面上的情况下，可以转到其中有搜索按钮的页面。

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

Answer 1

尝试以下类似操作，直接运行onclick事件javascript。

 ieApp.document.parentWindow.execScript "window.location='Go?action=agent'"

需要单击搜索按钮，但没有按钮ID，类名

1 个答案: