Question

所以我遇到了一个问题，不知道如何解决，在Excel VBA中，我有这段代码可以引导我浏览网站（https://indexcalculator.ftserussell.com/），但是在网站的第3步中，当我更改通过vba选择的索引我可以看到它们在网页上被更改，但是当单击下一页按钮时，就好像从未单击过。

所选索引正在更改：

点击获得退货后：

    months = Format(DateSerial(year(Date), month(Date) - 1, 1), "m")
    days = Format(DateSerial(year(Date), month(Date), 0), "d")
    years = CInt(Format(DateSerial(year(Date), month(Date) - 1, 1), "yyyy")) - 1994

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

    'If the year pops up blank that means that the base year is no longer 1994
    HTMLdoc.getElementsByName("m_startDate")(0).selectedIndex = CInt(months - 1)
    HTMLdoc.getElementsByName("d_startDate")(0).selectedIndex = CInt(days - 1)
    HTMLdoc.getElementsByName("y_startDate")(0).selectedIndex = years
    Application.Wait (Now + TimeValue("0:00:02"))

    Set oButton = HTMLdoc.querySelector("a[href='javascript:submitForm(document.forms[0].action);']")
    oButton.Click

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

    Set oButton = HTMLdoc.querySelector("a[href='javascript:document.forms[0].target='_blank';submitForm('IndexDownload.aspx');']")
    oButton.Click

第4步页面应该说5月31日而不是6月13日，当我手动执行时它可以工作。有人知道为什么会这样吗？

Answer 1

以下似乎很好用。将CSS选择器调整为要为结束日期选择的值。特别要注意下面我大量使用的css attribute = value选择器。

Option Explicit

Public Sub test()
    Dim ie As Object, days As Long, months As Long, years As Long
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
        .Navigate2 "https://indexcalculator.ftserussell.com/"

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

        months = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "m")
        days = Format(DateSerial(Year(Date), Month(Date), 0), "d")
        years = 1994


        With .document
            .querySelector("[value='irs3']").Click 'step 1
            .querySelector("#Ctlnavigation2_lblControl [href*=action]").Click

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

            .querySelector("#rdoSpDtRng").Click 'step 2
            .querySelector("#Ctlnavigation2_lblControl [href*=action]").Click

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

            .querySelector("[value='" & months & "']").Selected = True 'step 3
            .querySelector("[value='" & days & "']").Selected = True
            .querySelector("[value='" & years & "']").Selected = True
            .querySelector("[name='m_endDate'] [value='" & months + 1 & "']").Selected = True
            .querySelector("[name='d_endDate'] [value='" & days - 1 & "']").Selected = True
            .querySelector("[name='y_endDate'] [value='" & years + 1 & "']").Selected = True
            .querySelector("#Ctlnavigation2_lblControl [href*=action]").Click
            While ie.Busy Or ie.readyState < 4: DoEvents: Wend

        End With
        Stop                                     '<delete me later
        .Quit
    End With
End Sub

.GetElementsByName.SelectedIndex可以更改选项，但不能以编程方式更改？

1 个答案: