使用Excel / VBA在用户窗体Web浏览器上单击按钮

时间:2019-12-30 22:09:28

标签: excel vba button click webbrowser-control

我创建了一个用户表单来自动加载网页以供工作。 Web浏览器位于用户窗体中,我希望保持这种状态,而不是启动IE实例。我整理了一些代码,使我可以从下拉框中选择元素,将它们放在一起以构造适当的URL,然后将我发送到那里。问题是当我到达那里时,结果需要“折叠”,这意味着使用网页上的按钮进行压缩。我正在尝试查找按钮的名称,但到目前为止我还没有成功,需要帮助的是确保我有正确的代码来实际单击按钮。这是我到目前为止的内容:

'Public Sub WebsiteLaunch()

'Declare different variables
Dim main As String
Dim term As String
Dim state As String
Dim Product As String
Dim other As String
Dim category As String

'Individual URL parts
main = "http://privateworkurl"
term = "blahdeblah" & ComboBox_PreA.Value
state = "blahdeblah" & ComboBox_State.Value
Product = "blahdeblah"
other = "blahdeblah"
category = "blahdeblah"

'Combine the URL parts together to get finalized URL
strHTML2 = main & term & state & Product & other & category

'Launch webbrowser, navigate to URL, and click button
Me.WebBrowser1.Navigate strHTML2
Me.WebBrowser1.Document.All("not sure name of button").InvokeMember("click")

End Sub

这是我要出错的部分,但不知道如何解决。 Me.WebBrowser1.Document.All("not sure name of button").InvokeMember ("click")

有人有什么建议吗?我尝试查找的所有内容仅适用于IE实例,并且我不想在用户窗体中使用IE而不是Webrowser。任何帮助将不胜感激。

0 个答案:

没有答案