问用VBA在IE中导航日期选择器

EN

Sub Get_RawFile()
    '
    '
    '
    Dim IE As New InternetExplorer
    Dim HTMLDoc As HTMLDocument
    Dim HTMLselect As HTMLSelectElement

    With IE
        .Visible = True
        .Navigate ("--------------------------")

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

    Set HTMLDoc = IE.document
    HTMLDoc.all.UserName.Value = Sheets("Data Dump").Range("A1").Value
    HTMLDoc.all.Password.Value = Sheets("Data Dump").Range("B1").Value
    HTMLDoc.getElementById("login-btn").Click

    While IE.Busy Or IE.readyState <> 4: DoEvents: Wend
    Application.Wait (Now + TimeValue("0:00:05"))

    Set objButton = HTMLDoc.getElementById("s2id_ddlReportType")
    Set HTMLselect = HTMLDoc.getElementById("ddlReportType")
    objButton.Focus
    HTMLselect.Value = "1"

    Set HTMLselectZone = HTMLDoc.getElementById("ddlTimezone")
    HTMLselectZone.Value = Sheets("Data Dump").Range("B9").Value

    Set subgroups = HTMLDoc.getElementById("s2id_ddlSubgroups")
    subgroups.Click
    Set subgroups2 = HTMLDoc.getElementById("ddlSubgroups")
    subgroups2.Value = "1456_17"

    'HTMLDoc.getElementById("dtStartDate").Value = Sheets("Attendance").Range("B6").Value
    'HTMLDoc.getElementById("dtStartDate").Click

    'HTMLDoc.getElementById("dtEndDate").Value = Sheets("Attendance").Range("X6").Value
    'HTMLDoc.getElementById("dtEndDate").Click


       HTMLDoc.getElementById("btnGetReport").Click
       Application.Wait (Now + TimeValue("0:00:10"))

       HTMLDoc.getElementById("btnDowloadReport").Click

       End With
    End Sub