1

我遇到了问题，不知道如何解决，在 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 日，当我手动执行时，它可以工作。为什么会这样？

4

1 回答 1

1

以下似乎工作正常。将 css 选择器调整为您要为结束日期选择的值。特别看一下我在下面大量使用的 css属性 = 值选择器。

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
于 2019-06-14T07:08:46.353 回答