Question

我正在构建一个宏来访问密码保护的网站，我想在该网站上“单击”一个下拉列表，然后在出现该选项时选择某个条目。加载重定向页面后，我想提取一个值，然后重复进行处理。

我已经完成了第一步，即访问受密码保护的网站。但是，我无法单击下拉列表并无法选择条目。

Sub OmfireLogin()

Dim objIE As Object
Set objIE = CreateObject("internetexplorer.Application")

With objIE
.Visible = True
.Navigate2 "http://app.omlocal.de/users/login"
Do While .Busy And .Readystate <> 4
  DoEvents
Loop
.Document.getElementById("username").Value = "USERNAME"
.Document.getElementById("password").Value = "PASSWORD"

Set htmlDOC = .Document
Set frm = htmlDOC.forms(0)
frm.submit
End With

直到此处代码有效。然后，我添加了以下内容以作为第一步单击下拉列表：

With objIE
.Document.getElementById("select2-accounts-container").Click
End With

但是，这不起作用。来自网站的下拉列表HTML如下：

<span class="select2-selection__rendered" id="select2-accounts-container" role="textbox" aria-readonly="true" title="Account">Account</span>

我希望上面的命令会打开下拉列表，但是我收到一条通知，指出它需要调试。我也尝试过与

合作

.Document.getElementByClassName

但是我的Excel表示不支持此命令...？感谢您的帮助，谢谢！

VBA单击下拉列表并选择条目

0 个答案: