使用 VBA 循环浏览下拉式浏览器菜单

Question

我需要遍历特定网站的下拉列表并下载每个条目的最新文件。我设法打开网站并单击“提交”按钮，但我找不到循环浏览所有下拉条目的解决方案。

Dim reportnr As String
Dim internetadress As String
Dim btn As Object
Dim IE As SHDocVw.InternetExplorer

reportnr = 10
                         
                                                      
                            
 internetadress = adress & reportnr
    
                    Set IE = CreateObject('InternetExplorer.Application')
                            IE.Visible = True
                            IE.navigate internetadress
                            Do While IE.Busy
                            Application.Wait DateAdd("s", 2, Now)
                            Loop
 

While IE.Busy
DoEvents
Wend

    For Each btn In IE.document.getElementsByClassName("btn btn-primary")

        If btn.name = "submit" Then
            btn.Click
        End If

    Next btn

网站上关于下拉菜单的代码。

我尝试了几种方法，但会出错或什么也没有发生。我尝试的最后一件事是：

Option Explicit
'VBE > Tools > References:
' Microsoft Internet Controls
Public Sub SelectQuantity()
    Dim ie As New InternetExplorer, numberOfOptions As Long, i As Long

    With ie
        .Visible = True
        .Navigate2 "https://www.amazon.com/belif-True-Cream-Aqua-Korean/dp/B00H4GOAZO/ref=pd_cart_crc_cko_cp_2_2/139-8277217-3794320?_encoding=UTF8&pd_rd_i=B00H4GOAZO&pd_rd_r=e154e278-8a11-4ab0-8173-5d0dbaff1938&pd_rd_w=Hm8FW&pd_rd_wg=Hpv4X&pf_rd_p=eff166ab-25d2-4f2c-a51d-0a0e86061f9d&pf_rd_r=EVT26E6K7CV8T1QMTY7H&psc=1&refRID=EVT26E6K7CV8T1QMTY7H"

        While .Busy Or .readyState < 4: DoEvents: Wend

        With .document
            numberOfOptions = .querySelectorAll("#quantity option").Length 'gather option tag element children of parent select element with id quantity
            For i = 1 To numberOfOptions
                .querySelector("#quantity [value='" & i & "']").Selected = True
                ActiveSheet.Cells(i, 1) = i
            Next
            Stop
        End With
    End With
End Sub

来源：VBA loop through dropdown elements from web page and download to excel sheet

预先感谢您的帮助。

Answer 1

从您提供的网站，您可以尝试使用以下代码循环下拉列表以选择您想要的选项：

Set lists = IE.document.getElementsByClassName("active-result")  'get all the options li elements

For Each liElement In lists
    If liElement.innerText = "something" Then
         liElement.setAttribute "class", "active-result result-selected"
    End If
Next liElement

我发现所选择的选项有不同的类，即 active-result result-selected，所以我想也许您可以更改类以选择该选项。