是否可以使用VBA从网站的下拉列表中选择项目？

Question

我正在尝试创建一个自动填充表单的宏，但是我陷入了一个下拉菜单，无法使其选择“ 00001-TESOURO NACIONAL”项。

我从来没有做过这样的事情，所以我只是在搜索它。

Sub autoForm()

    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://consulta.tesouro.fazenda.gov.br/GRU_NOVOSITE/GRU_SIMPLES.ASP"


    While IE.readyState <> 4 Or IE.Busy: DoEvents: Wend
    Call IE.document.getElementById("codigo_favorecido").Click

    Dim lista
    lista = Array("0", "2", "0", "0", "5", "4")

    For Each Heading In lista
        Application.SendKeys (Heading)
    Next Heading
    Application.SendKeys ("{TAB}")

    'Application.Wait (Now + TimeValue("0:00:05"))

    Dim list As Object
    With IE.document
        Set list = .querySelectorAll("[name=gestao] option")
        .querySelector("[name=gestao] option[value='00001**6']").Selected = True
    End With


End Sub

我希望选择项目“ 00001-TESOURO NACIONAL”并能够继续，但是出现错误：“此对象不接受该属性或方法”。