vba - 使用 VBA 选择网站上的下拉值

Question

我正在尝试创建一个从网站提取报告的宏，它有四个下拉列表来选择值。我可以登录该页面并将自己定向到报告页面，但由于某种原因，我在使用下拉列表时遇到了问题。我尝试了在线提供的几种“解决方案”，但我不断收到错误消息:

Run-time error '438': Object doesn't support this property or method.

以下是可供选择的下拉菜单之一:

<select name="LocationID">
<option value="0" selected="">All Location</option>
<option value="9">Atlanta</option>
<option value="7">Denver</option>
<option value="3">Las Vegas</option>
<option value="1">Los Angeles</option>
<option value="4">Miami</option>
<option value="6">New Jersey</option>
<option value="10">Phoenix</option>
<option value="2">San Francisco</option>
<option value="8">Seattle</option>
<option value="11">Vancouver</option>
</select>

这是我目前在 VBA 中拥有的内容:

Option Explicit
Const MyUserID As String = "test123"
Const MyPassword As String = "test123"
Const READYSTATE_COMPLETE As Integer = 4
Dim objIE As Object


Public Sub LoginScript()

Set objIE = CreateObject("InternetExplorer.Application")

With objIE
.Visible = True
.Silent = True
.navigate ("https://wwww.mywebsite.com")
Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now() + TimeValue("00:00:02")
.document.all.txtuserid.Value = MyUserID
.document.all.txtPassword.Value = MyPassword
objIE.document.getElementsByName("btnSubmit")(0).Click
Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now() + TimeValue("00:00:02")
.navigate("https://www.mywebsite.com/sample.html")
Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop
.document.getElementByName("LocationID").Value = "7"
objIE.document.getElementsByName("view")(0).Click
End With
End Sub

Answer 1

我假设您在这一行收到错误消息？..

.document.getElementByName("LocationID").Value = "7"

那是因为 Name 是一个元素集合。与 ID (getElementByID) 不同，元素在集合上是复数。

在这种情况下正确的语法是:

.document.getElementsByName("LocationID")(0).Value = "7"

还注意到附加的(0)吗？这是因为它又是一个集合，因此您还需要选择集合项目。 (不一定是 (0)，但如果不查看整个 HTML 代码，我无法确定地告诉你。)