时间戳

首页 > 解决方案 > VBA 从网页上的下拉框中选择一个值

html - VBA 从网页上的下拉框中选择一个值

问题描述

在此处输入图像描述已更新我正在尝试使用 VBA 将我登录到安全网页，然后导航到我需要在搜索数据库之前从下拉框中选择一个值的网页。

我无法让它在下拉框中选择值的最后一部分起作用，我使用了下面的代码。

下拉框名称为 = District，文本值为“South”，South 的组合值为 HTML 代码中的 A。有人可以帮忙（阅读其他几篇文章但不理解）。

    Sub database()

Dim IE As Object
Dim objElement As Object
Dim objCollection As Object

'add worksheet
Sheets.Add After:=ActiveSheet


'destination
 Set destsheet = ActiveSheet
'use internet explorer
 Set IE = CreateObject("InternetExplorer.application")
' with internet open, make this visable and go to webpage x, enter username 
and passwork
With IE
    .Visible = True
    .Navigate ("URL")
    While .Busy Or .ReadyState <> 4: DoEvents: Wend
'.Document.getElementsbyname("User name").Focus
.Document.getElementsByName("username")(0).Value = "username"
.Document.getElementsByName("password")(0).Value = "Pword"
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Set objCollection = IE.Document.getElementsByTagName("input")
'log in (submit)
i = 0
While i < objCollection.Length
           If objCollection(i).Type = "submit" And _
           objCollection(i).Name = "" Then
             ' "Search" button is found
            Set objElement = objCollection(i)

    End If
    i = i + 1
Wend
'upon logging in naviage to webpage...
objElement.Click
.Navigate ("URL 2")

    While .Busy Or .ReadyState <> 4: DoEvents: Wend
    Debug.Print .LocationURL
End With

With IE
IE.doc.getElementsByName("district").Item(A).Selected = True

End With
End Sub

标签： htmlexcelvbawebweb-scraping

解决方案

尝试

.document.querySelector("Select[name=District] option[value=A]").Selected = True

这Select[name=District] option[value=A]是一个 CSS 选择器。它查找带有option标签的元素，其属性为valuevalue = A，父元素的标签为Select，其属性name为 value District。document 的 querySelector 方法应用了选择器。

推荐阅读