Question

我已经查看了其他几个类似的问题，但我还没有能够让他们的任何解决方案适用于此页面。我正在尝试编写VB代码来更改年份下拉列表，填写地址字段，然后单击搜索。到目前为止，我可以填写信息，但我无法弄清楚如何点击“搜索”信息。按钮。当我尝试人们发布的其他几个问题的解决方案时，我会得到错误，例如＆＃34;来自hresult 0x800A01B6＆＃34;的异常。我对此很陌生，所以非常感谢任何帮助。

链接：https://geomap.ffiec.gov/FFIECGeocMap/GeocodeMap1.aspx

当前代码：

dim oIE

oIE = CreateObject("InternetExplorer.application")
oIE.Visible = True
oIE.Navigate("https://geomap.ffiec.gov/FFIECGeocMap/GeocodeMap1.aspx")

While oIE.Busy: End While

With oIE.Document
    .GetElementById("yearSelect").Value = "2015"
    .GetElementById("Address").Value = "Enter address here"
End With

Answer 1

我认为这是您在查看页面后需要添加的全部内容。您可以使用元素的click方法。

dim oIE as Object ' Changed the type here, it will be an Object

oIE = CreateObject("InternetExplorer.application")
oIE.Visible = True
oIE.Navigate("https://geomap.ffiec.gov/FFIECGeocMap/GeocodeMap1.aspx")

While oIE.Busy: End While

With oIE.Document
    .GetElementById("yearSelect").Value = "2015"
    .GetElementById("Address").Value = "Enter address here"
    .GetElementById("btnSearch").Click
End With

如何使用VB点击网页上的按钮

1 个答案: