Question

我正在尝试制作一个能够打开IE＆lt;的Excel宏。然后进入www.selectleaders.com，然后在位置字段中输入一个位置（理想情况下，从Excel中的单元格中拉出一个位置，而不是在宏中硬编码），然后激活搜索字段。

到目前为止我所拥有的内容如下，但我不知道该为什么插入？让它工作。

有任何建议或提示吗？

Sub SelectLeadersSignIn()
Dim ie As Object
Dim location
Dim button
Set ie = CreateObject("InternetExplorer.Application")
With ie
    .Visible = True
    .Navigate ("https://www.selectleaders.com")
    While ie.ReadyState <> 4
        DoEvents
    Wend
    Set location = .document.getElementById("?????")
    Set button = .document.getElementById("?????")
    button.Click
    While ie.ReadyState <> 4
        DoEvents
    Wend
End With
Set ie = Nothing

End Sub

Answer 1

请尝试填写您的问号。

Set location = .document.getElementById("location")
Set button = .document.getElementById("btnContainer").Children(0)

location很简单，跟随我的评论。提交按钮没有id，因此必须找到其父ID，然后选择它作为父母的孩子。

不过，现在您已经识别了这些元素，不知道您想对这些元素做些什么。

Excel VBA自动搜索特定网站

1 个答案: